Program Bilangan (pascal)

Program Bilangan (pascal)

Friday, September 04, 2015, Friday, September 04, 2015
Program Bilangan (pascal) - Hallo sahabat 116Lou.com, Pada Artikel yang anda baca kali ini dengan judul Program Bilangan (pascal), kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya, mudah-mudahan isi postingan Artikel Pemrograman, Artikel Software, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Program Bilangan (pascal)
link : Program Bilangan (pascal)

Program Bilangan (pascal)

Contoh script Program Bilangan (pascal)

Uses crt;
Var
bil, panjang, lebar, pilih, luas:integer;

begin
clrscr;
writeln(‘1.Luas Lingkaran’);
writeln(‘2.Bil genap-ganjil’);

write(‘Pilih menu 1 atau 2);

case pilih of
1:begin
Writeln(‘mencari luas Persegi Panjang’);
Writeln(‘============================’);
Writeln(‘masukkan panjang: ’);readln(panjang);
Writeln(‘masukkan lebar: ’);readln(lebar);
Luas:=panjang*lebar;
Write(‘Luasnya adalah : ‘, luas);
end;
Writeln(‘mencari Bilangan genap-ganjil’);
Writeln(‘==============================’);
Writeln(‘masukkan bilangan : ’);readln(bil);
if bil mod 2=0 then
write(‘Bilangan ‘,bil,’merupakan Bilangan Genap’);
 else
write(‘Bilangan ‘,bil,’merupakan Bilangan Ganjil’);
 end;
end;
readln;
end.




Demikianlah Artikel Program Bilangan (pascal)

Sekianlah artikel Program Bilangan (pascal) kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Program Bilangan (pascal) dengan alamat link http://www.116lou.com/2015/09/program-bilangan-pascal.html

TerPopuler