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)
Anda sekarang membaca artikel Program Bilangan (pascal) dengan alamat link https://www.116lou.com/2015/09/program-bilangan-pascal.html
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.
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 https://www.116lou.com/2015/09/program-bilangan-pascal.html