Помогите пожалуйста с решением задачки:Составить запись:студент с полями фамилия,имя,год рождения и группа.Для произвольного количества студентов вывести на экран студентов заданной группы.Надеюсь на Вашу помощь.Заранее огромное спасибо.
Tan
25.05.2007 23:15
Цитата
Для произвольного количества студентов вывести на экран студентов заданной группы
Можно объяснить, что - то до меня это предложение не доходит. Если верно понял :
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.