Program Hitungan (pascal) - Hallo sahabat 116Lou.com, Pada Artikel yang anda baca kali ini dengan judul Program Hitungan (pascal), kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya, mudah-mudahan isi postingan
Artikel Pemrograman, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.
Judul : Program Hitungan (pascal)
link : Program Hitungan (pascal)
Anda sekarang membaca artikel Program Hitungan (pascal) dengan alamat link https://www.116lou.com/2015/09/program-hitungan-pascal.html
Judul : Program Hitungan (pascal)
link : Program Hitungan (pascal)
Program Hitungan (pascal)
program menu_gabungan;
uses crt;
var
panjang,lebar,L_persegipanjang:integer;
jari:integer;
L_lingkaran:real;
bil:integer;
pilih:integer;
const
phi:3.14;
begin
clrscr;
writeln('------ MENU GABUNGAN -----');
writeln('--------------------------');
writeln('1. Luas Persegi Panjang');
writeln('2. Luas Lingkaran');
writeln('3. Bilangan Genap-Ganjil');
writeln('--------------------------');
write('Pilih Menu 1-3: ');readln(pilih);
writeln('--------------------------');
case pilih of
1:begin
writeln('Mencari Luas Persegi Panjang');
writeln('----------------------------');
write('Inputkan Panjang: ');readln(panjang);
write('Inputkan Lebar: ');readln(lebar);
L_persegipanjang:=panjang*lebar;
write('Luas persegi panjang adalah ',L_persegipanjang);
end;
2:begin
writeln('Mencari Luas Lingkaran');
writeln('----------------------');
write('Inputkan jari-jari: ');readln(jari);
L_lingkaran:=phi*jari*jari;
write('Luas lingkaran adalah ',L_lingkaran);
end;
3:begin
writeln('Mencari Bilangan Genap Ganjil');
writeln('-----------------------------');
write('Inputkan Sebuah 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.
Thank You.....!
uses crt;
var
panjang,lebar,L_persegipanjang:integer;
jari:integer;
L_lingkaran:real;
bil:integer;
pilih:integer;
const
phi:3.14;
begin
clrscr;
writeln('------ MENU GABUNGAN -----');
writeln('--------------------------');
writeln('1. Luas Persegi Panjang');
writeln('2. Luas Lingkaran');
writeln('3. Bilangan Genap-Ganjil');
writeln('--------------------------');
write('Pilih Menu 1-3: ');readln(pilih);
writeln('--------------------------');
case pilih of
1:begin
writeln('Mencari Luas Persegi Panjang');
writeln('----------------------------');
write('Inputkan Panjang: ');readln(panjang);
write('Inputkan Lebar: ');readln(lebar);
L_persegipanjang:=panjang*lebar;
write('Luas persegi panjang adalah ',L_persegipanjang);
end;
2:begin
writeln('Mencari Luas Lingkaran');
writeln('----------------------');
write('Inputkan jari-jari: ');readln(jari);
L_lingkaran:=phi*jari*jari;
write('Luas lingkaran adalah ',L_lingkaran);
end;
3:begin
writeln('Mencari Bilangan Genap Ganjil');
writeln('-----------------------------');
write('Inputkan Sebuah 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.
Thank You.....!
Demikianlah Artikel Program Hitungan (pascal)
Sekianlah artikel Program Hitungan (pascal) kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Anda sekarang membaca artikel Program Hitungan (pascal) dengan alamat link https://www.116lou.com/2015/09/program-hitungan-pascal.html