Информация за ученик

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

  1. имената и успеха на ученика в прегледен вид
  2. дали ще се явява на поправителен
  3. подходящо интересно съобщение в зависимост от успеха му
Публикувано в 10в с етикети . Постоянна връзка.

2 Responses to Информация за ученик

  1. kaloyan каза:
    TYPE
      uchenik=record
        ime:string[20];
        familia:string[20];
        klas:integer;
        uspeh:real;
      end;
    VAR x:uchenik;
        n:string;
    BEGIN
    //Въвеждаме
      write('Ime: '); readln(x.ime);
      write('Familia: '); readln(x.familia);
      write('Klas: '); readln(x.klas);
      write('Uspeh: '); readln(x.uspeh);
    //Извеждаме
    writeln;
      writeln('Ime: ', x.ime,' ',x.familia);
      writeln('Klas: ', x.klas);
        if ((x.uspeh>=2) and (x.uspeh<=2.49)) then n:='slab'
           else
        if ((x.uspeh>=2.50) and (x.uspeh<=3.49)) then n:='sreden'
           else
        if ((x.uspeh>=3.50) and (x.uspeh<=4.49)) then n:='dobar'
           else
        if ((x.uspeh>=4.50) and (x.uspeh<=5.49)) then n:='mnogo dobar'
           else
        n:='otlichen';
      writeln('Uspeh: ',n,' ',x.uspeh:0:2);
    
    readln;
    END.
  2. sup3rEva каза:
    TYPE
      uchenik=record
        ime:string[10];
        klas:integer;
        uspeh:integer;
      end;
    VAR
      x:uchenik;
    BEGIN
    //Въвеждаме данните
      write('Vavedete ime: ');
        readln(x.ime);
      write('Vavedete klas: ');
        readln(x.klas);
      write('Vavedete uspeh: ');
        readln(x.uspeh);
    //Извеждаме данните
    writeln;
      writeln('Ime: ',x.ime,' ot ',x.klas,' klas');
      writeln('Uspeh: ',x.uspeh);
    if x.uspeh<3 then writeln(x.ime,' ostava na popravitelen')
      else
    writeln('Uchenikat preminava v po-goren klas');
    
    readln;
    END.

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