PDA

Просмотр полной версии : запис



IceCube
03.12.2009, 21:51
помогите плиз
1. Дан список, содержащий не менее 10 записей, каждая из которых имеет
структуру:
Ф.И.О. Факультет Группа Год рождения
20 символов 5 символов 6 символов целое число
2. Разработать программу, выполняющую следующие функции:
- ввод данного списка в массив записей;
- вывод массива записей на экран в таблице;
- поиск всех студентов, группы " 97ВС1", родившихся в 1979
году с выводом найденных записей на экран.



Program Ice5;
uses crt;
Type
T_Stud=record
Student:string[20];
FIO:string[20];
Fac:string[5];
Group:string[6];
God_roj:byte;
End;
Var
Spisok:array [1..2] of T_Stud;
i: byte;
isk_stud:String[20] ;
Begin
for i:=1 to 2 do
WITH Spisok [i] do
Begin
Writeln('F.I.O.');
readln(FIO);
Writeln('Facul`tet');
readln(Fac);
Writeln('Grouppa');
readln (Group);
Writeln('God rojdenia');
readln(God_roj);
writeln;
end;

begin
Writeln ('Vvediti iskomuy Grouppu');
readln( isk_stud);
Writeln ('vvedite god rojdenia studenta');
readln( isk_stud);
for i:=1 to 10 do
WITH Spisok [i] do
IF Student= isk_stud then Writeln ( 'FIO','Fac',' Group','God_roj ') ;
readkey;
Halt;
end;
readkey;
end.

Хыиуду
04.12.2009, 09:12
Что-то подобное было в разделе "Алгоритмы".