Program Untuk Mencari Nilai Maksimum dan Minimum Data

const

  MaxData = 100;

var

    data : array[1..MaxData] of real;

    N : byte;

    i : byte;

    max : real;

    min : real;

begin

  write('Masukkan jumlah data : ');

  readln (N);

  for i := 1 to N do

  begin

    write('Data ke- ',i,': ');

    readln (data[i]);

  end;

  max :=data[1];

  min := data[1];

  for i := 2 to N do

  begin

    if (data[i] < min) then

    min := data[i];

    if (data[i] > max) then

    max := data[i];

  end;

  writeln('Data terkecil : ', min:1:3);

  writeln('Data terbesar : ', max:1:3);

  readln

end.     

Program untuk Memilih Warna

var
w : integer;
mau : char;
begin
ulang;
writeln(‘pilihan warna :’);
writeln(‘1. Hijau, 2. Kuning, 3. Kelabu, 4. Merah muda, 5. Biru’);
writeln(‘masukkan nomor warna yang diinginkan’);
readln(w);
case w of
1: writeln(‘hijau’);
2: writeln(‘kuning’);
3: writeln(‘kelabu’);
4: writeln(‘merah muda’);
5: writeln(‘biru’);
else writeln(‘anda belum beruntung’);
end;
readln;
write(‘mau mengulang?’); readln(mau);
if mau=’y’then goto ulang;
end

Program untuk Menentukan Akar-akar Suatu Persamaan Kuadrat

var
a, b, c, deskri : integer;
begin
write(‘Masukkan koefisien a :  ‘); readln(a);
write(‘Masukkan koefisien b:  ‘); readln(b);
write(‘Masukkan koefisien c:  ‘); readln(c);
deskri:=b*b-4*a*c;
{
if deskri<0 then writeln(‘akarnya imajiner’)
                      else if deskri=0 then writeln(‘akarnya nyata kembar’)
                                                      else writeln(‘akarnya nyata beda’);
if deskri=0 then writeln(‘akarnya nyata kembar’)
                      else if deskri<0 then writeln(‘akarnya imajiner’)
                                                      else writeln(‘akarnya nyata beda’);
if deskri>0 then writeln(‘akarnya nyata beda’)
                      else if deskri=0 then writeln(‘akarnya nyata kembar’)
                                                      else writeln(‘akarnya imajiner’);
}
if deskri<>0 then if if deskri>0 then  writeln(‘akarnya nyata beda’)
                                                           else writeln(‘akarnya imajiner’)
                      else writeln(‘akarnya nyata kembar’);
readln;
end

Program untuk Menentukan Apakah Suatu Bilangan Genap atau Ganjil

var
x : integer;
sisa : byte;
begin
write(‘Masukkan sebuah bilangan bulat : ‘);readln(x);
sisa:=x mod 2;
if sisa=0 then writeln(x,’ adalah bilangan genap’)
             else writeln(x,’ adalah bilangan ganjil’);
readln;
end