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.