Статистика за ученици

2 Responses to Статистика за ученици

1. kaloyan каза:

   24 януари, четвъртък в 21:34

   TYPE
     uch=record
       ime,familiq:string[20];
       uspeh:real;
     end;
   VAR
     uchenik:array[1..30] of uch;
     x:boolean;//Тази променлива ще ни служи при проверката за поправителен и за отличниците, където ако няма ученици ще отпечатваме, че няма
     i,n:integer;
   BEGIN
     write('Broi uchenici: '); readln(n);
   //Въвеждаме данните за учениците
       for i:=1 to n do
         with uchenik[i] do begin
           write('Ime: '); readln(ime);
           write('Familiq: '); readln(familiq);
           write('Uspeh: '); readln(uspeh);
           writeln;
         end;
   writeln;
   writeln;
   //Извеждаме данните за учениците
       for i:=1 to n do
         with uchenik[i] do begin
           writeln('Uchenik: ', ime,' ',familiq);
           writeln('Uspeh:   ',uspeh:0:2);
           writeln;
         end;
   //Проверяваме дали някой ще остава на поправителен
   x:=true;
     writeln('Na popravitelen ostavat:');
       for i:=1 to n do
         with uchenik[i] do
           if uspeh<2.50 then begin
             writeln(' ',ime,' ',familiq);
             x:=false;
           end;
     if x=true then writeln(' Nqma uchenici, koito she ostavat na popravitelen');
   writeln;
   //Проверяваме кои от учениците са отличници
   x:=true;
     writeln('Otlichnicite sa:');
       for i:=1 to n do
         with uchenik[i] do
           if uspeh>=5.50 then begin
             writeln(' ',ime,' ',familiq);
             x:=false;
           end;
     if x=true then writeln(' Nqma otlichnici');
   
   readln;
   END.

   Влезте, за да отговорите
   • Данаил каза:

     25 януари, петък в 01:28

     Много добро решение и добре коментирано браво! Само вместо if x=true then може да проверяваш директно с if x then – ако x е true, то условието ще е изпълнено :-)

     Влезте, за да отговорите