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

Да се напише програма, която позволява да се въведат в масив от елементи от тип запис имената и успеха за срока на N ученици и отпечата:

  1. имената и оценките на учениците в прегледен вид
  2. дали ще има някой, който да се явява на поправителен
  3. имената на учениците, завършили с отличен

Задачата е подобна на предишната задача Информация за ученик, само че е за масив от записи.

Публикувано в 10в с етикети . Постоянна връзка.

2 коментара по Статистика за ученици

  1. kaloyan каза:
    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.

Вашият коментар