PASCAL MENGHITUNG LUAS BALOK

-

Untuk menghitung luas persegi panjang pada aplikasi turbo pascal, anda dapat menulis perintah sebagai berikut :

Program menghitung_luas_persegi_panjang ;
Uses crt;
Var luas,P,L:integer;
Begin
Clrscr;

Write (‘masukan panjang=’);
Readln (P);
Write (‘masukan lebar=’);
Readln (L);

Luas:=P*L;
Write (‘luas persegi panjang adalah:’,Luas);
Readln;
End.




hasil setelah di RUN




Postingan populer dari blog ini

MEMASUKAN PRESET KAMERA RAW KE ADOBE PHOTOSHOP CC

-
Gambar
  Selamat pagi dan selamat beraktifitas ya sobat semua pada kesempatan ini saya akan membagikan tutorial cara menambahkan preset camera RAW di adobe CC, yuk langsung saya simak caranya   1.        Siapkan file preset yg akan kita insert ke photoshop, kemudian silahkan sobat copy kemudian pastekan di folder setting dengan cara Local Disk C >   User > AppData > Roaming > Adobe > Camera Raw > Setting. Jika folder app data belum muncul silahkan sobat munculkan terlebih dahulu atau caranya bisa sobat lihat disini 2.        Lalu silahkan sobat pastekan di folder setting tadi 3.        Setelah selesai lalu silahkan buka adobe photoshop sobat pilih Filter > Camera Raw Filter 4.        Setelah muncul kotak dialog pilih preset maka otomatis preset yang kita tambahkan tadi akan muncul Sekian semoga bermanfaat bagi teman-teman terim...
Baca selengkapnya

CARA MEMBUAT PROGRAM PERKALIAN SEDERHANA PADA VISUAL BASIC

-
Gambar
Untuk cara-cara nya simak langkah- langkah sebagai berikut :  1.        Masukkanlah 4 buah label, 3 buah teks box, dan 3 buah command.. 2.        Buatlah field – field sebagai berikut : Atribut Caption Name Command1 &Hitung Cmdhitung Command2 &Hapus Cmdhapus Command2 &Keluar Cmdkeluar Label1 RUMUS PERKALIAN Label1 Label2 Bilangan Pertama Txtbil1 Label3 Bilangan Kedua Txtbil2 Label1 Hasil txtbilhasil 3.        Klik 2x pada command hitung lalu tuliskan scrip sebagai berikut : Private Sub cmdhitung_Click(Index As Integer) Dim bil1, bil2, bilhasil bil1 = Val(txtbil1.Text) bil2 = Val(txtbil2.Text) bilhasil = bil1 * bil2 txtbilhasil.Text = bilhasil End Sub 4.        Untuk co...
Baca selengkapnya

MENGHITUNG FAKTORIAL PADA VISUAL BASIC

-
Gambar
Langkah – langkah untuk menghitung Factorial pada VB adalah sebagai berikut : 1.        Desain form seperti gambar di bawah. 2.        Buatlah field – field sebagai berikut : Kontrol Caption Name Command1 Hitung Cmdhitung Command2 Hapus Cmdhapus Command3 Keluar Cmdkeluar TextBox1 - Txt1 TextBox2 - Txt2 Label1 Menghitung Faktorial Label1 Label2 Masukan Nilai Label2 Label3 Hasil Label3 3.        Masukkan code script berikut pada command Hitung Private Sub Cmdhitung_Click() Dim A As Double A = 1 For i = 1 To Text1.Text A = A * i Next i Text2.Text = A End Sub 4.        Pada command hapus tuliskan code berikut Private Sub cmdhapus_Click(Index As Integer) Text1.Tex...
Baca selengkapnya