Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

asd

By: a guest on May 28th, 2012  |  syntax: Delphi  |  size: 4.15 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program Project2;
  2. //program str129n24e11;
  3. {Ñâåäåíèÿ îá ó÷åíèêå ñîñòîÿò èç åãî èìåíè è ôàìèëèè, íàçâàíèÿ êëàññà (ãîäà
  4. îáó÷åíèÿ è áóêâû), â êîòîðîì îí ó÷èòñÿ, îöåíîê, ïîëó÷åííûõ ó÷åíèêîì çà
  5. ïîñëåäíþþ ÷åòâåðòü. Ïóñòü äàí ìàññèâ, ñîäåðæàùèé ñâåäåíèÿ îá ó÷åíèêàõ
  6. øêîëû:
  7. e) âûÿñíèòå, íà ñêîëüêî ÷åëîâåê â âîñüìûõ êëàññàõ áîëüøå, ÷åì â äåñÿòûõ;}
  8.  
  9. {$APPTYPE CONSOLE}
  10.  
  11. uses
  12.   Windows,
  13.   SysUtils;
  14.  
  15. const
  16.  maxn = 5;  {Ìàêñ êîë-âî îöåíîê îäíîãî ó÷åíèêà}
  17.  
  18. Type
  19.      student = record
  20.       name: string;             {Èìÿ}
  21.       surname: string;          {Ôàìèëèÿ}
  22.       god: integer;             {Ãîä îáó÷åíèÿ, òî åñòü íûíåøíèé êëàññ}
  23.       klass: char;               {Ëèòåðà êëàññà}
  24.       //Îöåíêè çà ÷åòâåðòü
  25.       rus : integer;  //Ðóññêèé ÿçûê
  26.       math : integer; //Ìàòåìàòèêà
  27.       geo : integer; //Ãåîìåòðèÿ
  28.       info : integer; //Èíôîðìàòèêà
  29.       fizra : integer; //Ôèçêóëüòóðà
  30.      end;
  31.  
  32.  
  33. Var i,n: integer;
  34.     x: array of student;
  35.     god8: integer;              {Êîëè÷åñòâî ó÷àùèõñÿ â 8-ûõ êëàññàõ}
  36.     god10: integer;             {Êîëè÷åñòâî ó÷àùèõñÿ â 10-ûõ êëàññàõ}
  37.  
  38. Procedure Read_Ocenka(Mess:String;Var x:Integer);
  39. begin
  40.   write(Mess);
  41.   readln(x);
  42.   While Not (x In [1..5]) Do
  43.   Begin
  44.     writeLn;
  45.     writeLn('Îöåíêà ìîæåò áûòü îò 1 äî ïÿòè !!!');
  46.     writeLn;
  47.     write(Mess);
  48.     readln(x);
  49.   End;
  50. End;
  51.  
  52. Procedure Read_Ocenki(Var x:student);
  53. begin
  54.   {Ââîäèì äàííûå îá îöåíêàõ ó÷åíèêà}
  55.   Read_Ocenka('Ðóññêèé ÿçûê: ',x.rus);
  56.   Read_Ocenka('Ìàòåìàòèêà: ',x.math);
  57.   Read_Ocenka('Ãåîìåòðèÿ: ',x.geo);
  58.   Read_Ocenka('Èíôîðìàòèêà: ',x.info);
  59.   Read_Ocenka('Ôèçêóëüòóðà: ',x.fizra);
  60. end;
  61.  
  62. procedure print_data;
  63. var i:integer;
  64. begin
  65.   writeln;
  66.   writeln;
  67.   for i:=0 to n-1 do         {Äëÿ íàãëÿäíîñòè âûâîäèì äàííûå íà ýêðàí}
  68.   with x[i] do
  69.   begin
  70.     writeln('Èìÿ: ',name:8,' Ôàìèëèÿ: ',surname:10,' Ãîä: ',god:2,' Êëàññ: ',klass:1);
  71.     writeln('Ðóññêèé ÿçûê: ', rus);
  72.     writeln('Ìàòåìàòèêà: ', math);
  73.     writeln('Ãåîìåòðèÿ: ', geo);
  74.     writeln('Èíôîðìàòèêà: ', info);
  75.     writeln('Ôèçêóëüòóðà: ', fizra);
  76.     writeln;
  77.   end;
  78. end;
  79.  
  80. begin
  81.   setconsolecp(1251);
  82.   setconsoleoutputcp(1251);      {Âêëþ÷àåì ðóññêèé ÿçûê}
  83.   repeat
  84.   writeln('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ');  {Ââîäèì äàííûå îá ó÷åíèêàõ}
  85.    readln(n);
  86.   until n>1;
  87.   SetLength(x,n);
  88.   for i:=0 to n-1 do
  89.   with x[i] do
  90.   begin
  91.     writeln;
  92.     write('Ââåäèòå èìÿ: '); readln(name);
  93.     write('Ââåäèòå ôàìèëèþ: '); readln(surname);
  94.     write('Ââåäèòå ãîä îáó÷åíèÿ: '); readln(god);
  95.     write('Ââåäèòå êëàññ: '); readln(klass);
  96.     write('Îöåíêè çà ÷åòâåðòü: ');
  97.     writeln;
  98.     Read_ocenki(x[i]);
  99.   end;
  100.   writeln;
  101.  
  102.   print_data;
  103.  
  104.   god8:=0; god10:=0;
  105.  
  106.   for i:=0 to n-1 do
  107.   begin
  108.     if x[i].god=8      {Ïîäñ÷èòûâàåì êîëè÷åñòâî ó÷àùèõñÿ â 8-ûõ êëàññàõ}
  109.     then inc(god8);
  110.  
  111.     if x[i].god=10
  112.     then inc(god10);   {Ïîäñ÷èòûâàåì êîëè÷åñòâî ó÷àùèõñÿ â 10-ûõ êëàññàõ}
  113.   end;
  114.   if god8>god10
  115.      then writeln('Ó÷åíèêîâ âîñüìûõ êëàññîâ áîëüøå íà ',god8-god10);
  116.   if god8<god10
  117.      then writeln('Ó÷åíèêîâ âîñüìûõ êëàññîâ ìåíüøå íà ',god10-god8);
  118.   if god8=god10
  119.      then writeln('Îäèíàêîâîå êîëè÷åñòâî ó÷åíèêîâ âîñüìûõ è äåñÿòûõ êëàññîâ');
  120.  readln;
  121.  Finalize(x);
  122. end.
create a new version of this paste RAW Paste Data