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.
Categories:
