Pertama-tama
sobat masuk dulu ke program free pascal.
Lalu ketikan
program berikut ini.
1.
uses crt;
2.
var alas,
tinggi, luas:real;
3.
begin
4.
clrscr;
5.
write('masukan alas = ');readln(alas);
6.
write('masukan tinggi =');readln(tinggi);
7.
luas:=0.10*alas*tinggi;
8.
write('jadi luas segitiga adalah', luas
:4:2);
9.
readln;
10.
end.
Setelah program tersebut telah
sobat ketik jangan lupa menyimpan terlebih dahulu file nya, namun di Pascal
cara menyimpan file nya berbeda dari bahasa pemrograman lainnya…..biasanya klau
di VB kita menyimpan file dengan cara menakan di keyboar seperti ctrl+S atau
ctrl+shift+S…. di Pascal cukup dengan menekan tombol F2 pada keyboard…jnagn
lupa usahan nama file nya tanpa spasi ya.
Setalah coba jalankan programnya
dengancara menekan tombol ctrl+F9 pada keyboard,,,,kalau programnya jalan makan
akan muncul gambar sebagai berikut…
Nah gimna sob,,, mudah-mudahan dapat
bermanfaat ya J
Selamat mencoba ya….
0 comments:
Post a Comment