-

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


Selamat mencoba ..

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 terimakasih  
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 command hapus tuliskan scrip sebagai berikut : Private Sub cmdhapus_Click(Index As Integer) txtbil1.Text = ""
Baca selengkapnya

Cara Menampilkan folder yang tersembunyi (hidden) di windows 7

-
Gambar
Secara default di windows terdapat beberapa file tersembunyi yang bertujuan untuk menjaga agar file tersebut tidak rusak atau terhapus oleh user, lalu bagaimana cara agar folder tersebut bisa muncul ? disini saya akan memberi tutorialnya yaitu sebagai berikut :   1.        Buka Windows Explorer sobat 2.        Setelah muncul pilih menu organize > folder and search options 3.        Setelah muncul kotak dialog pilih tab View kemudian ceklis di bagian Show hidden files, folder,and drives seperti gambar berikut : 4.        Setelah selesai klik OK
Baca selengkapnya