Rabu, 24 April 2013

Program Pascal Membuat Menu

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.

Jual Aneka Kemeja, Kaos, Polo Shirt Murah Berkualitas

Ditulis Oleh : Benny Dwi Hari: Rabu, April 24, 2013 Kategori:

2 komentar:

  1. wahhh si mas ini jago pascal ya...jadi pengen blajar nih mas

    BalasHapus
  2. kaka follow back ya blog saya danker-corporation.blogspot.com

    klo bisa berikan pendapat ka :D

    BalasHapus

 

Followers

Blog Widget

DMCA.com
Future Google PR for wongzo.blogspot.com - 3.08 Free PageRank Checker Free counters! Free SEO Tools
IP review wongzo.blogspot.com on alexa.com Bloggers - Meet Millions of Bloggers