L = panjang ab x panjang cd
2
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 : SUSANTO');
writeln ('NIM : AFD 109 014');
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.
Tidak ada komentar:
Posting Komentar