Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Lig Puan Tablosu (Lig Programı)


Lig Puan Tablosu (Lig Programı)

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:

  1.  
  2.  
  3. uses crt;
  4. var
  5. takim:array[1..5] of string[20];
  6. tablo:array[1..5,1..4] of integer;
  7. av:array[1..5] of integer;
  8. puan:array[1..5] of integer;
  9.  
  10. i,j,k,yk:integer;
  11. is:string;
  12.  
  13. begin
  14. clrscr;
  15. writeln('5 takim isimlerini giriniz...');
  16. for i:=1 to 5 do
  17.  readln(takim[i]);
  18.  
  19. writeln('5 takim icin degerleri giriniz...');
  20. writeln('Degerler kumesi _ [G. B. A. Y.]');
  21.  
  22. for i:=1 to 5 do
  23. begin
  24.  for j:=1 to 4 do
  25.   read(tablo[i,j]);
  26.  puan[i]:= tablo[i,1]*3+tablo[i,2];
  27.  av[i]:=tablo[i,3]-tablo[i,4];
  28.  
  29. readln;
  30.  
  31. writeln('');
  32. for i:=1 to 5 do
  33. writeln(takim[i],' ',tablo[i,1],' ',tablo[i,2],' ',tablo[i,3],' ',tablo[i,4],' ', puan[i], ' ', av[i]);
  34.  
  35. for i:=1 to 4 do
  36. for j:=i+1 to 5 do
  37. begin
  38. if puan[i]<puan[j] then
  39. begin
  40. yk :=puan[i];
  41. puan[i]:=puan[j];
  42. puan[j]:=yk;
  43.  
  44. is:=takim[i];
  45. takim[i]:=takim[j];
  46. takim[j]:=is;
  47.  
  48. for k:=1 to 4 do
  49. begin
  50. yk:=tablo[i,k];
  51. tablo[i,k]:=tablo[j,k];
  52. tablo[j,k]:=yk;
  53.  
  54. yk :=av[i];
  55. av[i]:=av[j];
  56. av[j]:=yk;
  57.  
  58.  
  59. writeln('');
  60. writeln('Siralamadan sonra:  ');
  61. for i:=1 to 5 do
  62. writeln(takim[i],' ',tablo[i,1],' ',tablo[i,2],' ',tablo[i,3],' ',tablo[i,4],' ', puan[i], ' ', av[i]);
  63.  
  64. writeln('');
  65. writeln('Puanlar esitse: ');
  66. for i:=1 to 4 do
  67. for j:=i+1 to 5 do
  68. begin
  69. if puan[i]=puan[j] then
  70. begin
  71.  
  72. if av[i]<av[j] then
  73. begin
  74. is:=takim[i];
  75. takim[i]:=takim[j];
  76. takim[j]:=is;
  77.  
  78. for k:=1 to 4 do
  79. begin
  80. yk:=tablo[i,k];
  81. tablo[i,k]:=tablo[j,k];
  82. tablo[j,k]:=yk;
  83.  
  84. yk :=av[i];
  85. av[i]:=av[j];
  86. av[j]:=yk;
  87.  
  88. writeln('');
  89. writeln('Averaja gore siralamadan sonra:  ');
  90. for i:=1 to 5 do
  91. writeln(takim[i],' ',tablo[i,1],' ',tablo[i,2],' ',tablo[i,3],' ',tablo[i,4],' ', puan[i], ' ', av[i]);
  92.  
  93.      
  94. readln;
  95.  
  96.  
  97.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
 
backlinktr.biz | 521: Web server is down

Error 521 Ray ID: 4c9bb74dcecaa7dc • 2019-04-19 03:15:47 UTC

Web server is down

You

Browser

Working
Istanbul

Cloudflare

Working
backlinktr.biz

Host

Error

What happened?

The web server is not returning a connection. As a result, the web page is not displaying.

What can I do?

If you are a visitor of this website:

Please try again in a few minutes.

If you are the owner of this website:

Contact your hosting provider letting them know your web server is not responding. Additional troubleshooting information.