Tugas Prokom

TUGAS PASCAL 1

program tugas_prokom;
uses wincrt;
var baris,n:integer;
jenis,c:char;
r,a,t,luas1,luas2:real;
const phi=3.14;
begin
repeat
writeln('----------------------------------');
writeln('[ jenis ]');
writeln('[pilih x untuk luas lingkaran]');
writeln('[pilih y untuk luas segitiga]');
writeln('[pilih z untuk perulangan bintang]');
writeln('----------------------------------');
writeln('jenis= ');read(jenis);
if jenis='x' then
begin
writeln('luas lingkaran');
writeln('masukan jari-jari=');readln(r);
luas1:= phi*sqr(r);
writeln('luas lingkaran= ',luas1:8:2);
end
else
if jenis='y' then
begin
writeln('luas segitiga');
writeln('masukan a=');readln(a);
writeln('masukan t=');readln(t);
luas2:=0.5 * a * t;
writeln('luas= ',luas2:0:2);
end
else
if jenis='z' then
begin
writeln('masukkan gambar bintang=');readln(n);
for baris:= 1 to n do
write('*');
end
else
writeln('[anda salah memasukan jenis]');
writeln;
writeln('-------------------------');
write('mau coba lagi? Y atau T: ');read(c);
clrscr;
until(c='T') or (c='t');
write;
writeln('Terimakasih telah mencoba progam sederhana ini');
end.