Pascal programlama dilinde yazılmış bu programda 5 takımlı bir ligde, her takımın galibiyet, beraberlik, attıkları gol sayısı ve yedikleri gol sayısını okuyup, puan sıralaması çıkarılmaktadır. Puanları eşit olan takımlarda averaja bakılır, averaj da eşitse daha çok gol atan takım üstte yer alır.

Program Kodu:

 
 
uses crt;
var
takim:array[1..5] of string[20];
tablo:array[1..5,1..4] of integer;
av:array[1..5] of integer;
puan:array[1..5] of integer;
 
i,j,k,yk:integer;
is:string;
 
begin
clrscr;
writeln('5 takim isimlerini giriniz...');
for i:=1 to 5 do
 readln(takim[i]);
 
writeln('5 takim icin degerleri giriniz...');
writeln('Degerler kumesi _ [G. B. A. Y.]');
 
for i:=1 to 5 do
begin
 for j:=1 to 4 do
  read(tablo[i,j]);
 puan[i]:= tablo[i,1]*3+tablo[i,2];
 av[i]:=tablo[i,3]-tablo[i,4];
end;
 
readln;
 
writeln('');
for i:=1 to 5 do
writeln(takim[i],' ',tablo[i,1],' ',tablo[i,2],' ',tablo[i,3],' ',tablo[i,4],' ', puan[i], ' ', av[i]);
 
for i:=1 to 4 do
for j:=i+1 to 5 do
begin
if puan[i]<puan[j] then
begin
yk :=puan[i];
puan[i]:=puan[j];
puan[j]:=yk;
 
is:=takim[i];
takim[i]:=takim[j];
takim[j]:=is;
 
for k:=1 to 4 do
begin
yk:=tablo[i,k];
tablo[i,k]:=tablo[j,k];
tablo[j,k]:=yk;
end;
 
yk :=av[i];
av[i]:=av[j];
av[j]:=yk;
 
end;
end;
 
writeln('');
writeln('Siralamadan sonra:  ');
for i:=1 to 5 do
writeln(takim[i],' ',tablo[i,1],' ',tablo[i,2],' ',tablo[i,3],' ',tablo[i,4],' ', puan[i], ' ', av[i]);
 
writeln('');
writeln('Puanlar esitse: ');
for i:=1 to 4 do
for j:=i+1 to 5 do
begin
if puan[i]=puan[j] then
begin
 
if av[i]<av[j] then 
begin
is:=takim[i];
takim[i]:=takim[j];
takim[j]:=is;
 
for k:=1 to 4 do
begin
yk:=tablo[i,k];
tablo[i,k]:=tablo[j,k];
tablo[j,k]:=yk;
end;
 
yk :=av[i];
av[i]:=av[j];
av[j]:=yk;
end;
 
end;
end;
writeln('');
writeln('Averaja gore siralamadan sonra:  ');
for i:=1 to 5 do
writeln(takim[i],' ',tablo[i,1],' ',tablo[i,2],' ',tablo[i,3],' ',tablo[i,4],' ', puan[i], ' ', av[i]);
 
     
readln;
end.