Jumat, 28 Oktober 2011

MENGHITUNG LUAS LAYANG-LAYANG DENGAN TURBO PASKAL






 L = panjang ab x panjang cd
                            2







LANGKAH-LANGKAHNYA YAITU :
1.       MASUKAN SCRIP DI BAWAH INI KEDALAM APLIKASI TURBO PASCAL


Program Menghitung_luas_layang_layang;
Uses Windos, Wincrt;
var
L, ab, cd  :real;
ch:char;
Begin
Clrscr;
writeln ('program ini di buatoleh :');
writeln ('NAMA : HENDRIK WIJAYA');
writeln ('NIM : AFD 109 005');
writeln ('==============================');
writeln ('Menghitung Luas layang-layang');
writeln ('==============================');
writeln ('masukan nilai ab :              ');
readln (ab);
writeln ('masukan nilai cd :              ');
readln (cd);
L:=ab*cd/2;
writeln ('Luas layang-layangyaitu = ',L:10:0,'cm2');
readln;
end.
                                                                                                                                                                                                    
2.       SETELAH SELESAI JALANKAN APLIKASINYA,
3.       MASUK KE BAGIAN MENU BAR  “RUN ATAU CTRL+F9”. (UNTUK MELIHAT HASILNYA)
4.       SELAMAT MENCOBA.


UNTUK LEBIH JELASNYA ANDA BISA DOWNLOAD SCRIP YANG SUDAH 
SAYA BUAT KE DALAM TURBO PASCAL
KLIK DISINI UNTUK DOWNLOAD

0 komentar:

Posting Komentar