Записи Опции

[emyly]

Составить список учебной группы, включающей 5 человек. Для каждого учащегося указать дату рождения, год поступления в ВУЗ, курс, группу, успеваемость по общеобразовательным предметам (математика, физика, информатика, история, ин. язык. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив. Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки.

В FAQ была,читала. Программка вот:

Код

program grupa;
type student=record
fio : string[10];
godr:1986..1988;
godpostup:2003..2005;
ocenky:record
matem,history,inform,inglish,fizika:1..5
end
end;
var grupa: array [1..5] of student;
s1: student; i,j: integer;
begin
with s1, ocenky   do
begin
for i:=1 to 5 do
begin
write('Vvedite danie=>');
for j:= 1 to 5  do
read(fio[j]);
readln(godr,godpostup,matem,history,inform,inglish,fizika); {при запуске в этой строке выдаётся ошибка 201:Ошибка при проверке границ.}
grupa[i]:=s1
end
end;
writeln ('Spisok studentov na bukvu A:');
for i:= 1 to 5  do with grupa[i] do
if fio[1] in [‘A’] then
writeln  (fio,'godr',godr:4,'godpostup=', godpostup:4, ocenky);
end.

Что посоветуете для устранения ошибки и по программе вообщем? И ещё, совершенно дурацкий вопрос: как вводить данные после запуска программы? В какой последовательности? Помогите пожалуйста.

[volvo]

Что посоветуете для устранения ошибки и по программе вообщем?

И ещё, совершенно дурацкий вопрос: как вводить данные после запуска программы? В какой последовательности?

Вот... А теперь совет: если бы ты эти вопросы задала в обратном порядке (сначала - что вводить), то второго вопроса просто не было бы...

Что такое "Ошибка 201: Range Check Error"? Это значит, что вводимые тобой данные выходят за границы своих типов, например переменная типа Byte (может принимать значения 0 .. 255), а ты пытаешься туда запихнуть -1, к примеру...

Смотрим на строку, ожидающую ввода данных:

readln(godr,godpostup,matem,history,inform,inglish,fizika);

Если ты это перепишешь вот так:

Write('Год рождения [1986 .. 1988] : '); readln(godr);
Write('Год поступления [2003 .. 2005] : '); readln(godpostup);
Writeln('Оценки [1 .. 5] :');
Write('математика: '); readln(matem);
Write('история: '); readln(history);
Write('информатика: '); readln(inform);
Write('английский: '); readln(inglish);
Write('физика: '); readln(fizika);

кому-то будет хуже? Нет, но ты же сама уже никогда не ошибешься при вводе значений...