Program Pascal Pengurutan dengan Selection Sort

Contoh program pascal untuk melakukan sorting/pengurutan
data angka menggunakan Selection Sort.
Berikut Source Codenya:
program sort;
var
angka: array[1..5] of integer;
i,a, temp: integer;
begin
{Mengisi array}
angka[1] := 3;
angka[2] := 5;
angka[3] := 4;
angka[4] := 2;
angka[5] := 1;

{Tampilkan data sebelum diurutkan}
writeln('Sebelum diurutkan : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;

{Lakukan pengurutan/sorting}
for i:=1 to 4 do
begin
for a:=i+1 to 5 do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;

{Tampilkan data setelah diurutkan}
writeln('Setelah diurutkan : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
end.

Program Pascal Menentukan Derajat Graph

uses crt;
var
x, m,n,i,j,s:integer;
map: array[1..10,1..10] of boolean;
nil_map,temp:array[0..10,0..10] of integer;
a, derajat:array[1..10] of integer;
fi,fo:text;
procedure isi_nilai(n:integer);
{mengisi nilai kolom matrik sesuai keterhubungan}
begin
for i:= 1 to n do
for j:= 1 to n do
begin
if map[i,j]=true then
begin
nil_map[i,j]:=1;
end
else nil_map[i,j]:=0;
end;
end;
procedure baca_file(var fi:text);
begin
assign(fi,'input.in');
reset(fi);
readln(fi,n);
{m:=0;}
repeat
readln(fi,i,j);
if (i>=0) and (j>=0) then
begin
map[i,j]:=true;
map[j,i]:=true;
{inc(m);}
end;
until (i=0) and (j=0);
end;
procedure hitung(n:integer);
begin

x:=0;
a[1]:=0;
repeat
i:=1+x;
for j:= 1 to n do
begin
a[i]:=a[i]+nil_map[i,j];
end;
derajat[x+1]:=a[i];
writeln('derajat[',x+1,']:',derajat[x+1]);
inc(x);
until x=n;
end;
procedure buat_output(n:integer;var fo:text);
var k:integer;
begin

for k:= 1 to n do
begin
write(fo,'derajat[',k,']=',derajat[k]);
writeln(fo);
end;

end;
begin
baca_file(fi);
close(fi);
assign(fo,'output.out');
rewrite(fo);
isi_nilai(n);
hitung(n);
buat_output(n,fo);
close(fo);
readln;
end.

Program Pascal Menentukan Bilangan ASCII

uses crt;
var i: char;
k:integer;
f : text;
begin
k:=0;
assign(f,'d:\cbasscii.txt');
rewrite(f);
for i:= #00 to #255 do
begin
writeln(f,k,'====',i);
k:=k+1;
end;
end.

Program Pascal Menentukan Bilangan ASCII

Program dengan bahasa Pascal untuk menentukan Bilangan ASCII
Berikut Source Codenya, Harap dikembangkan lagi!
uses crt;
var i: char;
k:integer;
f : text;
begin
k:=0;
assign(f,'d:\cbasscii.txt');
rewrite(f);
for i:= #00 to #255 do
begin
writeln(f,k,'====',i);
k:=k+1;
end;
end.

Program C++ Graph Terhubung

Ini Merupakan Program C++, yang dibuat untuk mengetahui sebuah graph terhubung atau tidak!
Berikut Source Codenya:
#include
#include
void main(){
bool ketemu,nolsemua;
int matrix[10] [10];
int i,j,jumlah_simpul,jumlah_sisi,asal,tujuan;
//isnisialisasi matrix
cout<<"jumlah simpul:";
cin>>jumlah_simpul;
cout<<"jumlah_sisi:";
cin>>jumlah_sisi;
for (i=1;i<=jumlah_simpul;i++)
for (j=1;j<=jumlah_simpul;j++)
matrix[i][j]=0;
//isi matrix sesuai input graf
for (i=1;i<=jumlah_sisi;i++){
cout<<"simpul asal:";
cin>>asal;
cout<<"simpul tujuan:";
cin>>tujuan;
matrix[asal][tujuan]=1;
matrix[tujuan][asal]=1;
}
//telusuri graf
i=1;nolsemua=false;
while (i<=jumlah_simpul && !nolsemua){
j=1;ketemu=false;
while (j<=jumlah_simpul && !ketemu){
if (matrix[i][j]==1)
ketemu=true;
else
j++;
}
if (!ketemu)
nolsemua=true;
else
i++;
}

if(nolsemua)
cout<<"graf tidak terhubung";
else
cout<<"graf terhubung";
getch();

}