Minggu, 22 Januari 2012

PROGRAM PASCAL MENGHITUNG LUAS & KELILING BANGUN DATAR

TUGAS PROGRAM KOMPUTER :

PROGRAM MENGHITUNG LUAS DAN KELILING BANGUN DATAR DENGAN DAFTAR MENU PILIHAN

INPUT :
program menu_bangun_datar;
uses crt;
label tekan;
const pi = 3.14;
var diameter, radius, luas, keliling, volume : real;
a, t, s, p, l, s1, s2, s3 : real;
procedure menu;
begin
writeln(’1. lingkaran’);
writeln(’2. segitiga’);
writeln(’3. persegi panjang’);
writeln(’4. kubus’);
end;
procedure lingkaran;
begin
writeln(‘==============================================’);
writeln(‘PROGRAM MENGHITUNG LUAS DAN KELILING LINGKARAN’);
writeln(‘=============================================’);
write(‘masukan nilai diameter = ‘);readln(diameter);
radius := diameter/2;
writeln(”);
writeln(‘maka’);
writeln(”);
luas := pi* radius * radius;
writeln(‘nilai luas = ‘,luas:2:2);readln;
keliling := pi * diameter;
writeln(‘nilai keliling = ‘,keliling:2:2);readln;
end;
procedure segitiga;
begin
writeln(‘=============================================’);
writeln(‘PROGRAM MENGHITUNG LUAS DAN KELILING SEGITIGA’);
writeln(‘=============================================’);
write(‘masukan nilai a = ‘);readln(a);
write(‘masukan nilai t = ‘);readln(t);
write(‘masukan nilai s1 = ‘);readln(s1);
write(‘masukan nilai s2 = ‘);readln(s2);
write(‘masukan nilai s3 = ‘);readln(s3);
writeln(”);
writeln(‘maka : ‘);
writeln(”);
luas := 1/2 * ( a * t);
write(‘nilai luas =’,luas:2:2); readln;
keliling := s1 + s2 + s3;
write(‘nilai keliling = ‘,keliling:2:2);readln;
end;
procedure persegi_panjang;
begin
writeln(‘====================================================’);
writeln(‘PROGRAM MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG’);
writeln(‘====================================================’);
write(‘masukan nilai p = ‘);readln(p);
write(‘masukan nilai l = ‘);readln(l);
luas := p * l;
writeln(‘nilai luas = ‘,luas:2:2);readln;
keliling := 2 * (p + l);
writeln(‘nilai keliling = ‘,keliling:2:2);readln;
end;
procedure kubus;
begin
writeln(‘========================================’);
writeln(‘PROGRAM MENGHITUNG LUAS DAN VOLUME KUBUS’);
writeln(‘========================================’);
write(‘masukan nilai s = ‘);readln(s);
luas := 6 * (s * s);
write(‘nilai luas = ‘,luas:2:2);readln;
volume := s * s * s;
write(‘nilai volume = ‘,volume:2:2);readln;
end;
var
pilihan : char;
begin
clrscr;
writeln(‘DAFTAR MENU :’);
writeln(’1. lingkaran’);
writeln(’2. segitiga’);
writeln(’3. persegi panjang’);
writeln(’4. kubus’);
writeln(‘ ‘);
writeln(‘OLEH : WAWAN SETIAWAN 070788′);
writeln(‘ ‘);
writeln(‘masukan pilihan menu ! ‘);
write(‘menu yang di pilih : ‘);readln(pilihan);
writeln(”);
case pilihan of
’1′: begin lingkaran end;
’2′: begin segitiga end;
’3′: begin persegi_panjang end;
’4′: begin kubus end;
end; readln;
end.
OUTPUT :
1. Misalkan menu yang kita pilih adalah no. 1 yaitu menghitung luas dan keliling lingkaran, maka outputnya terlihat pada gambar di bawah ini :
gam1
2. Selanjutnya jika menu yang kita pilih adalah no. 2 yaitu menghitung luas dan keliling segitiga, maka outputnya terlihat pada gambar di bawah ini :
gam2
3. Selanjutnya jika menu yang kita pilih adalah no. 3 yaitu menghitung luas dan keliling persegi panjang, maka outputnya terlihat pada gambar di bawah ini :
gam3
4. Selanjutnya jika menu yang kita pilih adalah no. 4 yaitu menghitung luas dan volume kubus, maka outputnya terlihat pada gambar di bawah ini :
gam4
TERIMA KASIH TELAH MEMBACA PROGRAM PASCALKU, SEMOGA BERMANFAAT.
0 Comments
Tweets
Comments

Tidak ada komentar:

Poskan Komentar

Berkomentarlah dengan bijak ^_^