Dalam postingan sebelumnya kita sudah membahas tentang beberapa cara mengedit blog, nah sekarang saya akan mencoba share ilmu yang sudah saya pelajari tentang pemrograman. Karena saya masih dalam tahap belajar mungkin program ini masih cukup sederhana, dan semoga bisa bermanfaat bagi yang membaca artikel ini...
uses wincrt;
type larik = array [1..100] of real;
const phi = 22/7;
var r,l : larik;
i,n,pilih : byte;
ya : char;
begin
repeat
begin
writeln ('-----------Silahkan Pilih------------');
writeln ('1. Luas Lingkaran');
writeln ('2. Luas Bujur Sangkar');
write ('Pilih Nomor 1 sampai 2 => '); readln(pilih);
clrscr;
case pilih of
1:
begin
writeln('program untuk menghitung luas lingkaran');
repeat
begin
inc(n);
writeln('menghitung luas lingkaran ke ',n);
write ('masukkan jari jari = '); readln(r[n]);
l[n]:=phi*r[n]*r[n];
write('mau mencari luas lingkaran selnajutnya <y/t>?');readln(ya);
end;
until (ya='t');
clrscr;
for i := 1 to n do
begin
writeln; writeln('luas lkingkaran adalah ke',i,'dengan jari jari',r[i]:0:2,' = ',l[i]:0:2);
end;
end;
2:
begin
writeln('program untuk menghitung luas bujur sangkar');
repeat
begin
inc(n);
writeln('menghitung luas bujur sangkar ke ',n);
write ('masukkan sisi = '); readln(r[n]);
l[n]:=r[n]*r[n];
write('mau mencari luas bujur sangkar selnajutnya <y/t>?');readln(ya);
end;
until (ya='t');
clrscr;
for i := 1 to n do
begin
writeln; writeln('luas bujur sangkar adalah ke',i,'dengan sisi',r[i]:0:2,' = ',l[i]:0:2);
end;
end;
end;
write('mau menghitung lagi <y/t>?'); readln(ya);
end;
until (ya='t');
end.
Tidak ada komentar:
Posting Komentar