Membuat program dengan Turbo Pascal

Pemangkatan

Program Pemangkatan;
Uses Crt;
Var
m,n:integer;
Procedure Pangkat(Var x,y:integer);
Var
a,i:integer;
Begin
a:=1;
For i:= 1 to y do
a:=a*x;
Writeln(x,'Pangkat',y,'=',a);

End;
Begin
Clrscr;
Write('Masukkan bil yang akan dipangkatkan = ');
readln(m);
Write('MAsukkan bil Pemangkatnya = ');
readln(n);
Pangkat(m,n);
Readln;
End.

------------------------------------------------------------
Pencarian

Program Pencarian;
Uses Crt;
Var h2o:array[1..100] Of Integer;
j,i,n:Integer;

Procedure input(Var y:integer);
Begin
For i:= 1 to y do
Begin
Write('Masukkan data ke-',i,'=');
readln(h2o[i]);
end;
end;


procedure bagi_dua;
var ketemu:boolean;
idx,hi,lo,mid:integer;
begin
Lo:=1;
hi:=n;
ketemu:=false;
while(lo j then
Lo:= mid+1
else
hi:= mid-1;
end;
If (ketemu) then
Writeln('Data ditemukan pada elemen ke-',mid)
else
Writeln('Data tidak ditemukan');
end;

Procedure Mengurutkan;
Var maks,temp:integer;
Begin
For i:= n downto 2 do
Begin
maks:=1;
For j:= 2 to i do
If h2o[j] > h2o[maks] then maks:=j;
temp:= h2o[i];
h2o[i]:= h2o[maks];
h2o[maks]:= temp;
End;
End;

begin
clrscr;
Write('Masukkan Jumlah data=');
readln(n);
input(n);

Write('Data yang akan dibagi=');
readln(j);
Mengurutkan;
bagi_dua;
readln;
end.

-------------------------------------------------------
Buble

Program h2o_buble;
Uses Crt;
Var
j,i,n:integer;
h2o:array[1..100]of integer;
Procedure inputan (var y:integer);
begin
For i:= 1 to y do
begin
Write('Masukkan elemen ke-',i,'=');
readln(h2o[i]);
end;
end;
Procedure urutan;
var
Temp:integer;
begin
For i:= 1 to n-1 do
For j:= n downto i+1 do
If h2o[j]
Writeln(' ^^ Program h2o.Group ^^ ');
Writeln('-----------------------------');Writeln;
Write('Masukkan Jumlah data =');
readln(n);Writeln;
Writeln('-----------------------------');Writeln;
input_data(n);Writeln;
Writeln('-----------------------------');
Mengurutkan;
Writeln('Data setelah diurutkan');
For i:= 1 to n do
Writeln('Data ke-',i,'=',h2o[i]);
Readln;
End.