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 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.