Помощь - Поиск - Пользователи - Календарь
Полная версия: записи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.