| Код |
uses crt;
type student=record
fio:string[10];
crs:byte
end;
type students=array[1..100] of student;
{----------------------------------------------------------------------------}
procedure fill_in(var school:students);
var student:integer;
begin
write('Fill in the number of the student: ');
read(student);
with school[student] do
begin
write('Fill in the FIO of ',student,' student: ');
readln(fio);
write('Fill in the Cource of ',student,' student: ');
readln(crs);
writeln;
write('Information has been adden sucessfully!');
repeat until keypressed;
clrscr
end;
writeln;
end;
{----------------------------------------------------------------------------}
procedure print(var school:students);
var student:integer;
begin
write('Fill in the number of the student: ');
read(student);
with school[student] do
begin
writeln('The FIO of the ',student,' student is ',fio);
writeln('The Cource of the ',student,' student is ',crs);
repeat until keypressed;
clrscr
end
end;
{----------------------------------------------------------------------------}
procedure menu;
var value,student:integer;
school:students;
begin
value:=3;
repeat
begin
writeln('To fill in the information about student type "1" ');
writeln('To print the information about student type "2" ');
writeln('To clear the screen type "3" ');
write('>>> ');
readln(value);
case value of
1: begin
writeln;
fill_in(school);
end;
2: begin
writeln;
print(school)
end;
3: clrscr;
end;
end
until value=0
end;
{----------------------------------------------------------------------------}
var school:students;
begin
menu;
end.
|
проблема такова:
в процедуре FILL_IN в один из элементов массива (состоящего из записей каждого студента) STUDENTS заносится ФИО и курс студента...
так вот оператор ввода ФИО пропускается...
наверно я не знаю какогото теоретического факта на тему...
проясните ситуацию пожалуйста |
)
Ты приколист!!! я понял... У тебя же Student=record и Student:integer... 
