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

Език

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

Реклами




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

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

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


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

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


  • write('Enter name: ');
  • end.
  • for i:=1 to n do
  • if s[i].mark<3.0 then br :=br+1;
  • begin
  • end;
  • readln(s[i].name);
  • readln(s[i].mark);
  • readln(s[i].number);
  • i, br : byte;
  • var s : array[1..n] of student;
  • begin
  • const n=5;
  • write('Enter number: ');
  • number : byte;
  • end;
  • write('Enter mark: ');
  • type student = record
  • write('br=',br)
  • for i:= 1 to n do
  • name : string[30];
  • mark : real
  • br := 0;