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

Публикувано на 15 януари, вторник от Данаил

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

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

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

  1. kaloyan каза:
    15 януари, вторник в 22:20 
    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 каза:
    17 януари, четвъртък в 14:58 
    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.

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