записи Опции

[spektr]

Помогите пожалуйста с решением задачки:Составить запись:студент с полями фамилия,имя,год рождения и группа.Для произвольного количества студентов вывести на экран студентов заданной группы.Надеюсь на Вашу помощь.Заранее огромное спасибо.

[Tan]

Для произвольного количества студентов вывести на экран студентов заданной группы

Можно объяснить, что - то до меня это предложение не доходит.
Если верно понял :

uses crt;
Const STAmount = 10;
type   student = record
       fam : string[20];
      imja : string[20];
       god : integer;
     grupa : string[10];
  end;
var       college : array [1..STAmount] of Student;
     RecAmount, i : Integer;
     GroupNumber : string;
begin
Clrscr;
writeln ('Skoka zapisej ?');
readln (RecAmount);
for i := 1 to RecAmount do
 begin
     writeln (i,'<<record>>' ,'Input Surname : ');
     readln (college[i].fam);
     writeln (i, '<<record>>' ,'Input Name : ');
     readln (college[i].imja);
     writeln (i,'<<record>>','Input year : ');
     readln (college[i].god);
     writeln (i,'<<record>>','Input group : ');
     readln (college[i].grupa);
     Clrscr;
 end;
Writeln ('Vvedite gruppu v kotoroj iwem studentov');
readln (GroupNumber);
for i := 1 to RecAmount do
 If college[i].grupa = GroupNumber then
  begin
    write  (College[i].fam);  writeln  (' ',College[i].imja);
  end;
writeln ('Press any key to end...');
readkey;
end.

Сообщение отредактировано: Tan - 25.05.2007 23:37