Contoh Program Pascal Membuat Menu dengan Case Of - Hari ini saya akan share contoh aplikasi dari program pascal yaitu membuat menu dengan case of, yang didalamnya terdapat looping, kondisi dll. silahkan disimak jika membutuhkan silahkan dicopy.
Berikut ini adalah scriptnya untuk aplikasi pembuatan menu menggunakan case of dan beberapa tambahan lainnya
uses crt;
label akhir, awal;
var
menu:integer;
a,b,c,d,e:longint;
i,n,f:integer;
V, p, l, t: real;
begin
begin
awal :
clrscr;
gotoxy (33,2); writeln('======Menu======');
gotoxy (13,4);writeln('1. Bilangan Prima');
gotoxy (13,6);writeln('2. Bilangan Faktorial');
gotoxy (13,8);writeln('3. Menghitung Luas Bangun Ruang');
gotoxy (13,10);writeln('0. Selesai');
gotoxy (13,12);write('Pilih Menu No : '); read(menu);
end;
case menu of
1:begin
clrscr;
gotoxy (33,2);writeln('===Bilangan Prima===');
gotoxy (13,4);write('Input Bilangan Prima Sampai Nilai : '); readln(c);
writeln;
writeln('Hasilnya Adalah:');
writeln;
write('2':7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
write(e:7);
end;
readln;
goto awal
end;
2:begin
clrscr;
gotoxy (33,2);writeln('===Bilangan Faktorial===');
gotoxy (7,4);write('masukkan nilai n = '); read(n);
f:=1; i:=0;
repeat
i:=i+1;
f:=f*i;
until i=n;
writeln;
writeln(n,' faktorial = ',f);
readln;
readln;
goto awal
end;
3:begin
clrscr;
gotoxy (23,2);writeln('===Menghitung Luas Bangun Ruang===');
gotoxy (7,4);write (' - Masukan nilai p (panjang) = '); readln (p);
gotoxy (7,6);write (' - Masukan nilai l (lebar) = '); readln (l);
gotoxy (7,8);write (' - Masukan nilai t (tinggi) = '); readln (t);
V:=p*l*t;
writeln ('........................................');
writeln (' Jadi Volume Balok = ',V:10:2,' cm3');
readln;
goto awal
end;
0:begin
clrscr;
goto akhir
end;
end;
akhir:
readln;
end.
Itu dia scriptnya, cara copy paste di program pascalnya cukup mudah yaitu pertama buka program pascalnya > kemudian klik kanan pada title bar pascal > edit dan kemudian paste.
Jika masih ada yang bingung bisa langsung berikan komentar dipostingan ini
Terima Kasih.
wahhh si mas ini jago pascal ya...jadi pengen blajar nih mas
BalasHapuskak klo nentuin bilangan prima misalnya: yang d inputkannya itu 2 5 10, lalu nanti outputnya itu 10 dan 17 itu bagaimana ya ? Terimakasih
BalasHapus