Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Даден е списък на учениците от един випуск, явили се на поправителен изпит по информатика, съдържащ следната информация: номер в класа, пълно име и получената оценка. Напишете програма, която въвежда информация за 25 ученика и като резултат отпечатва имената на всички ученици с успех над 5,50.


  • number : byte;
  • write('Enter name: ');
  • end;
  • readln(s[i].name);
  • write('Enter number: ');
  • for i:= 1 to n do
  • for i:=1 to n do
  • end;
  • const n=25;
  • begin
  • readln(s[i].mark);
  • write('Enter mark: ');
  • type student = record
  • if s[i].mark>5.50 then
  • writeln(s[i].name)
  • readln(s[i].number);
  • mark : real
  • var s : array[1..n] of student;
  • end.
  • begin
  • name : string[30];
  • i : byte;