Kode Pascal Program Bangun datar
Bangun Datar
Program Bangun_Datar_Muh_Ichsan_Mahmud;
Uses crt;
const pi=3.14;
label
tibes,akan,menjadi,sukses,hari,nanti;
var kl, mn, op, r, p, l :
real;
tanya : char;
D, D1, k, k1, luas :
real;
al, t, pjg, lebar,h :
real;
Begin
menjadi:
textcolor (red+green);
Clrscr;
writeln ('BANGUN DATAR');
writeln ;
begin
textcolor (red+green);
writeln ('loki maga
kawand.....?');
writeln ('1. segitiga');
writeln ('2. persegi
panjang') ;
writeln ('3. lingkarang')
;
write('pilih salah satu
(1/2/3): ');
readln(tanya);
writeln;
IF (tanya) = '1' then
goto sukses;
IF (tanya) = '2' then
goto tibes;
IF (tanya) = '3' then
goto akan;
end;
begin
sukses:
textcolor (red+green);
Clrscr;
writeln ('MENGHITUNG
SEGITIGA');
writeln;
textcolor (red);
writeln;
writeln('pilihan:');
writeln('1. luas');
writeln('2. keliling');
write('mau menghitung
apa? (1/2): ');
readln(tanya);
writeln;
IF (tanya) = '1' then
goto nanti;
IF (tanya) = '2' then
goto hari;
nanti:
textcolor (green+red);
Clrscr;
writeln ('MENGHITUNG LUAS
SEGITIGA');
writeln;
textcolor (red);
writeln;
write('panjang alas: ');
readln(al);
write('tinggi segitiga:
'); readln(t);
writeln;
luas := 0.5*al*t;
writeln('luasnya=
',luas:1:0,' cm2');
write('ingin mengulang
(y/t): ');
readln(tanya);
IF (tanya) = 'y' then
goto sukses;
IF (tanya) = 't' then
goto menjadi;
hari:
textcolor (green+red);
Clrscr;
writeln ('MENGHITUNG
KELILING SEGITIGA');
writeln;
textcolor (green);
writeln;
write('panjang ab: ');
readln(kl);
write('panjang bc: ');
readln(mn);
write('panjang ac: ');
readln(op);
writeln;
luas := kl+mn+op;
writeln('keliling :
',luas:1:0,' cm');
writeln;
write('ingin mengulang
(y/t): ');
readln(tanya);
IF (tanya) = 't' then
goto menjadi;
IF (tanya) = 'y' then
goto hari;
end;
tibes:
textcolor (yellow+red);
Clrscr;
writeln ('MENGHITUNG
PERSEGI PANJANG ');
writeln ;
begin
textcolor (blue+red);
writeln;
write('panjang persegi:
'); readln(p);
write('lebar persegi: ');
readln(l);
writeln;
k1 := p*l;
k := 2*p+2*l;
writeln('luas: ',k1:1:0,'
cm2');
writeln('keliling:
',k:1:0,' cm');
writeln;
write('ingin mengulang
(y/t): ');
readln(tanya);
IF (tanya) = 't' then
goto menjadi;
IF (tanya) = 'y' then
goto tibes;
end;
akan:
textcolor (brown+red);
Clrscr;
writeln ('MENGHITUNG
LINGKARAN');
writeln ;
begin
textcolor (green);
writeln;
write('panjang jari-jari:
'); readln(r);
writeln;
D := 2*pi*r;
D1:= pi*r*r;
writeln('luas:
',D1:10:2,' cm2');
writeln('keliling:
',D:10:2,' cm');
write('ingin mengulang
(y/t): ');
readln(tanya);
IF (tanya) = 't' then
goto menjadi;
IF (tanya) = 'y' then
goto akan;
begin
end;
end;
end.
0 komentar:
Posting Komentar