Developing.ru

Структура записи
Фамилия студента
Индекс группы
Домашний адрес
Номер комнаты в общежитии.
Кол-во студентов n.
1.Выдать список студентов, фамилия, номер комнаты.
2.По введенной фамилии вывести номер комнаты в котором проживает.

а записи откуда беруться? вы их с клавиатуры вводите, или из файла. Если из файла, прикрепите пример файла.

[syntax=pascal]
uses crt;
type
PLAN=record
fio:string;
ind:string;
adr:string;
nom:integer;
end;
var a:array[1..50] of plan;
i,kol,n:byte;
otvet:char;
s:string;
begin
i:=0;n:=0;
repeat
clrscr;
i:=i+1;
writeln('#',i);
write('FIO: ');
readln(a.fio);
write('Index gruppy: ');
readln(a.ind);
write('Domashnii address: ');
readln(a.adr);
write('Nomer komnaty: ');
readln(a.nom);
kol:=i;
writeln('OK!');
writeln('ESC - EXIT');
write('Press key to continue... ');
otvet:=readkey;
until otvet=#27;
clrscr;
writeln('Sozdano ',kol,' zapisei.');
writeln('Press any key... ');
readkey;
clrscr;
textmode(259);
writeln(' ------------------------------------------------------');
writeln('| FIO | NOMER KOMNATY |');
writeln(' ------------------------------------------------------');
for i:=1 to kol do
writeln('|',a.fio:38,'|',a.nom:15,'|');
writeln(' ------------------------------------------------------');
readln;
clrscr;
writeln('Vvedite FIO: ');
readln(s);
clrscr;
for i:=1 to kol do
if a.fio=s then
begin
writeln;
writeln('#',i);
writeln('FIO: ',a.fio);
writeln('Nomer komnaty: ',a.nom);
n:=n+1;
end;
writeln;
writeln('Naideno zapisei: ',n);
readln;
end.
[/syntax]

Esgal писал(а):а записи откуда беруться? вы их с клавиатуры вводите, или из файла. Если из файла, прикрепите пример файла.

Записи вводятся с клавиатуры