Selasa, 20 Januari 2009

Mencari Bilangan Terbesar dengan Array Pascal

program angka_terbesar;
uses wincrt;
var
bil:array[1..100] of integer;
i,k,n:integer;
begin
k:=-9999;
write(' Masukkan jumlah data yang akan diinputkan = ');readln(n);
for i:=1 to n do
begin
write(' Msukkan bilangan ke ',i,' = ');readln(bil[i]);
if bil[i]>k then
k:=bil[i];
end;
writeln;
writeln(' Tekan ENTER untuk mengetahui bilangan terbesar!');readln;
writeln(' Bilangan terbesar = ',k);
readln;
end.

3 komentar:

  1. mu tanya
    saya dapat pertanyaan dari guru matematika saya,,Bilangan terbesar dan bilangan terkecil apa sih?

    BalasHapus
  2. Terima kasih.Program di atas maksudnnya akan menampilkan bilangan terbesar di antara bilangan-bilangan yang diinputkan user,ada dua cara pertama memakai array yang kedua tidak memakai array.

    BalasHapus
  3. THANKS FOR YOUR ARTICLE...
    THAT'S VERY USEFUL FOR ME...

    BalasHapus

Kirim Komentar Anda
(Send Your Comment)