Mencari Bilangan Terendah dan Tertinggi Pascal

Pada Program Mencari Bilangan Terendah dan Tertinggi ini, saya menggunakan Array.

Berikut adalah salah satu contoh Program :
  • Program Array;
  • Uses Wincrt;
  • Var x : array [1..100] of integer;
  • n,i,max,min : integer;
  • Begin
  • Writeln('Program Array');
  • Writeln('=============');
  • Writeln;
  • Write('Masukkan Jumlah Data: ');readln(n);
  • Writeln;Writeln('Data Harus Urut');
  • For i:= 1 to n do
  • Readln(x[i]);
  • Writeln;
  • Write('Data Yang Telah Dimasukkan: ');
  • max:=x[1];
  • min:=x[1];
  • For i:= 1 to n do
  • Begin
  • Write(x[i],' ');
  • if (max<x[i]) then
  • max:=x[i]
  • else
  • min:=x[i];
  • End;
  • Writeln;
  • Writeln('Nilai Maximal: ',max);
  • Writeln('Nilai Minimal: ',min);
  • End.


Ingin lihat scriptnya download disini :

Share this post!

Bookmark and Share

My Blog List