dokter matematika

Kembali lagi di dokter matematika. Kali ini kita akan membahas mengenai penggunaan pascal untuk membuat program menentukan nilai terbesar. Dalam bahasan ini kita dapat memasukan tiga nilai, dan pada program ini kita menggunakan fungsi if. Nah untuk hasilnya akan berbentuk seperti ini.

Untuk program seperti diatas, maka enkripsinya adalah sebagai berikut.

Program Banding_Bilangan;
Uses wincrt;
var bil1,bil2,bil3: integer;
begin
begin
write('bilangan 1 : ');readln(bil1);
write('bilangan 2 : ');readln(bil2);
write('bilangan 3 : ');readln(bil3);
write('nilai');
writeln(bil1);
writeln(bil2);
writeln(bil3);
if bil1>bil2 then
   if bil1>bil3 then
      writeln('bilangan terbesar adalah ',bil1);
if bil2>bil1 then
   if bil2>bil3 then
      writeln('bilangan terbesar adalah ',bil2);
if bil3>bil1 then
   if bil3>bil2 then
      writeln('bilangan terbesar adalah ',bil3);
end;
end.

Selamat mencoba.

dokter matematika. :)