Program sederhana menghitung luas persegi panjang (turbo pascal)
Selamat
pagi, salam semangat. dalam kesempatan kali ini saya akan membahas tentang cara
menghitung luas persegi panjang menggunakan aplikasi turbo pascal. Tidak usah
berlama-lama lagi, check it out
Latihan 1
1. Buka
aplikasi TPW.exe yang bisa anda download disini
2. buka
aplikasi dan buat halaman baru seperti berikut :
3.
Copykan Code berikut ini dengan cara klik edit -> Copy
Program
latihan1;
Uses
wincrt;
Var
Luas,panjang,lebar:integer;
Begin
Read(panjang);read(lebar);
Luas:=panjang*lebar;
Write(luas);
End.
Maka tampilannya akan seperti ini jika sudah dirun
Atau
bisa juga menggunakan code yang kedua :
program
latihan1;
Uses
wincrt;
Var
Luas,panjang,lebar:integer;
Begin
write
('masukan panjang= ');
read
(panjang);
write
('masukan lebar= ');
read
(lebar);
luas
:= panjang*lebar;
write
('luas persegi panjsng=',luas);
end.
Maka tampilannya akan seperti ini jika sudah dirun
Perbedaan
dari kode kesatu dan kedua adalah dari opsinya saja.
4. Untuk memulai
program anda bisa menekan ctrl+F9.
Sekian atrikel kali
ini semoga bermanfaat, terimakasih.
Tags:
Algoritma dan pemograman
0 komentar