RSS

contoh program pascal

17 Apr

mau bagi pengetahuan dikit nich tentang mata kuliah pemrograman komputer….

Program kelompok_6_Menghitung_Bangun_Datar_Dan_Bangun_Ruang;
uses wincrt;
Var
Pilih : Integer;

Procedure persegi ;
Var
s, L, K : Real;
Begin
Writeln(‘ || Menghitung Luas dan Keliling Persegi ||’);
Writeln(‘ ‘);
Write(‘Masukkan sisi : ‘);Readln(s);
L := s*s;
K := 4*s;
Writeln(‘Luas : ‘, L:0:0);
Writeln(‘Keliling : ‘, K:0:0);
Readln;
end;

Procedure PersegiPanjang ;
Var
p, lbr, L, K : Real;
Begin
Writeln(‘ || Menghitung Luas dan Keliling Persegi Panjang || ‘);
Writeln(‘ ‘);
Write(‘Masukkan panjang : ‘);Readln(p);
Write(‘Masukkan lebar : ‘);Readln(lbr);
L := p*lbr;
K := 2*(p+lbr);
Writeln(‘Luas : ‘, L:0:0);
Writeln(‘Keliling : ‘, K:0:0);
Readln;
end;

Procedure Segitiga ;
Var
a, t, sm, L, K : Real;
Begin
Writeln(‘ || Menghitung Luas dan Keliling Segitiga Siku-Siku|| ‘);
Writeln(‘ ‘);
Write(‘Masukkan alas : ‘);Readln(a);
Write(‘Masukkan tinggi : ‘);Readln(t);
L:= 0.5*a*t;
sm:= sqrt(sqr(a)+sqr(t));
K:= a+t+sm;
Writeln(‘Luas : ‘, L:0:2);
Writeln(‘Keliling : ‘, K:0:2);
Readln;
end;

Procedure Lingkaran;
Var
r, L, K : Real;
Begin
Writeln(‘ || Menghitung Luas dan Keliling Lingkaran || ‘);
Writeln(‘ ‘);
Write(‘Masukan jari-jari : ‘);Readln(r);
L:= 22/7*(sqr(r));
K:= 2*22/7*r;
Writeln(‘Luas : ‘, L:0:2);
Writeln(‘Keliling : ‘, K:0:2);
Readln;
end;

Procedure Kubus;
Var
s, V, Lp : Real;
Begin
Writeln(‘ || Menghitung Volume dan Luas permukaan Kubus|| ‘);
Writeln(‘ ‘);
Write(‘Masukan sisi : ‘);Readln(s);
V:= s*s*s;
Lp:= 6*s*s;
Writeln(‘Volume : ‘, V:0:0);
Writeln(‘Luas Permukaan : ‘, Lp:0:0);
Readln;
end;

Procedure Balok;
Var
p, l, t, V, Lp : Real;
Begin
Writeln(‘ || Menghitung Volume dan Luas Permukaan Balok || ‘);
Writeln(‘ ‘);
Write(‘Masukan panjang : ‘);Readln(p);
Write(‘Masukan lebar : ‘);Readln(l);
Write(‘Masukan tinggi : ‘);Readln(t);
V:= p*l*t;
Lp:= 2*p*l+2*p*t+2*l*t;
Writeln(‘Volume : ‘, V:0:0);
Writeln(‘Luas Permukaan : ‘, Lp:0:0);
Readln;
end;

Procedure BangunDatar;

Begin repeat
clrscr;
Writeln(‘<<<<<<>>>>>> ‘);
writeln(‘=======================================================================’);
Writeln(‘ ‘);
Writeln(‘ Pilihan : ‘);
Writeln(‘ ‘);
Writeln(‘ 1. Menghitung Luas dan Keliling Persegi ‘);
Writeln(‘ 2. Menghitung Luas dan Keliling Persegi Panjang ‘);
Writeln(‘ 3. Menghitung Luas dan Keliling Segitiga ‘);
Writeln(‘ 4. Menghitung Luas dan Keliling Lingkaran ‘);
Writeln(‘ 5. exit ‘);
Write(‘ Pilih Angka untuk memilih pilihan : ‘);
Readln(pilih);
Writeln (‘ ‘);
Writeln (‘ Tekan Enter Untuk Kembali ke Menu’ );
Writeln (‘ ‘);
case pilih of
1 : Persegi ;
2 : PersegiPanjang ;
3 : Segitiga ;
4 : Lingkaran ;
5 : exit;
end;
until pilih = 5;
end;

Procedure BangunRuang;
Begin
repeat
clrscr;
Writeln(‘<<<>>>’);
writeln(‘================================================================’);
Writeln(‘ ‘);
Writeln(‘ Pilihan : ‘);
Writeln(‘ ‘);
Writeln(‘ 1. Menghitung Volume dan Luas Permukaan Kubus ‘);
Writeln(‘ 2. Menghitung Volume dan Luas Permukaan Balok ‘);
Writeln(‘ 3. exit ‘);
Write(‘ Pilih Angka untuk memilih pilihan : ‘);
Readln(pilih);
Writeln (‘ ‘);
Writeln (‘ Tekan Enter Untuk Kembali ke Menu’ );
Writeln (‘ ‘);
case pilih of
1 : Kubus;
2 : Balok;
3 : exit;
end;
until pilih = 3;
end;

procedure tampilan_awal ;
begin
writeln(‘—————————————– ‘);
writeln(‘ PROGRAM KELOMPOK 6 ‘);
writeln(‘ KELAS 2C’ );
writeln(‘ Tentang ‘);
writeln(‘ Bangun Datar ‘);
writeln(‘ Dan ‘);
writeln(‘ Bangun Ruang ‘);
writeln(‘—————————————–‘);
writeln(‘I KADEK RADHA CANDRA NIM 12 310 865 ‘);
writeln(‘I WAYAN SUARTONO NIM 12 310 863’);
writeln(‘NI NYOMAN TRI S. CANDRA NIM 12 310 882’);
writeln(‘INDRIYANTI KOBANDAHA NIM 12 312 492’);
writeln(‘IRGIANTO GOBEL NIM 12 314 610’);
writeln(‘RIDIK MAMENTIWALO NIM 12 313 569’);
writeln(‘—————————————–‘);
writeln;
end;

Begin
repeat
clrscr;
tampilan_awal;
Writeln(‘ || <<<<<<>>>>>> || ‘);
writeln(‘ ================================================================= ‘);
Writeln(‘ ‘);
Writeln(‘ Pilihan : ‘);
Writeln(‘ ‘);
Writeln(‘ 1. Mengerjakan Soal-Soal Mengenai Bangun Datar ‘);
Writeln(‘ 2. Mengerjakan Soal-Soal Mengenai Bangun Ruang ‘);
Writeln(‘ 3. Keluar ‘);
Writeln(‘ ‘);
Write(‘ Pilih Angka untuk memilih pilihan : ‘);
Readln(pilih);
case pilih of
1 : BangunDatar;
2 : BangunRuang;
3 : exit;
end;
until pilih = 3;
End.

 
Leave a comment

Posted by on April 17, 2013 in TUGAS KULIAH, UMUM

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
Korean Wave Indonesia

The Friendliest Newsbase For Korean Wave Fans in Indonesia

KHAIRUL'S BLOG

Sebaik-baik manusia, yang banyak memberikan manfaat pada orang lain

%d bloggers like this: