Program Pengurutan Data Menggunakan Bubble Sort (Pascal)

program Pengurutan_data;
uses crt;

type data=array[1..100] of integer;
var
 i,n,j:integer;
 a:data;

        procedure bubble;
        var temp:integer;
        begin
         for i:=1 to n-1 do
          begin
           for j:=n downto i+1 do
            begin
             if a[j] < a[j-1] then
             begin
              temp:=a[j];
              a[j]:=a[j-1];
              a[j-1]:=temp;
             end;
            end;
          end;
        end;

begin
clrscr;
 write('masukkan banyak data: '); readln(n);
 writeln;
 for i:=1 to n do
  begin
   write('data ke-',i,' : '); readln(a[i]);
  end;
  writeln('*************************');
   for i:=1 to n do
   begin
    write(a[i],' ');
   end;
   writeln;
   bubble;
    writeln('-------------------------');
    write('Data Urut: ');
      for j:=1 to n do
       write(a[j],' ');
  readln;
end.

Program Mencari Bilangan Ganjil dan Genap (pascal)

hallo teman-teman apa kabarmu?
sekarang saya akan mempost program untuk mencari bilangan ganjil dan genap menggunakan Pascal. langsung saja kita lihat syntax di bawah ini....


program bilGanjilGenap;
var
 angka : integer;
begin
 clrscr;
  write('masukkan angka: '); readln(angka);
  if angka mod 2=0 then
    write('genap')
  else
    write('ganjil');
  readln;
end.


teman-teman bisa myakinkan hasilnya dengan mencobanya,
Terima kasih...