DEFIEN want to have

Ini program pascal pertama yang saya buat untuk memenuhi tugas akhir Komputasi


Program Hitung_Lingkaran;
uses wincrt;

const

pi=3.14;

var

Hitungan : Integer;
r,luas,jari:real;
Begin
writeln(' Menghitung jari-jari Atau Luas Lingkaran');
writeln(' by: Mohammad Defien');
writeln('---------------------------------------------------------------------');
Writeln;
Writeln;
Writeln('Luas Lingkaran = 1; Jari-jari Lingkaran = 2');
write('Apa yang anda ingin hitung? ');
Readln (hitungan);
Case hitungan of
1:begin

clrscr;

gotoxy(20,1);writeln('Menghitung Luas Lingkaran');

writeln;

write('Masukan Jari-jari: ');readln(r);

luas:=pi*sqr(r);

writeln;

writeln('luas lingkarannya adalah: ',luas:3:2);

end;

2: begin

clrscr;

gotoxy(20,1);writeln('Menghitung Jari-Jari Lingkaran');

writeln;

write('masukan luas dari lingkaran: ');readln(luas);

jari:=sqrt(luas/pi);

writeln;

writeln('jari-jarinya adalah: ',jari:3:2);

end;
end;
end.