Выполнять в Паскале
Задание 1.
Опишите комбинированный тип для записей, содержащих следующие данные учеников: фамилию, имя, год рождения, рост (в сантиметрах), вес (в килограммах).
Задание 2.
Опишите содержимое текстового файла, из которого будут вводиться данные, соответствующие описанию из предыдущего задания, для нескольких учеников класса (не менее 5).

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program StudentRecords;

type
Student = record
lastName: string;
firstName: string;
birthYear: integer;
height: integer;
weight: integer;
end;

var
students: array[1..5] of Student; // создаем массив из 5 записей типа Student
i: integer;

begin
// Ввод данных для каждого ученика
for i := 1 to 5 do
begin
writeln('Введите фамилию ученика ', i, ': ');
readln(students[i].lastName);

writeln('Введите имя ученика ', i, ': ');
readln(students[i].firstName);
writeln('Введите год рождения ученика ', i, ': ');
readln(students[i].birthYear);
writeln('Введите рост ученика ', i, ' (в см): ');
readln(students[i].height);
writeln('Введите вес ученика ', i, ' (в кг): ');
readln(students[i].weight);

end;

// Вывод информации о каждом ученике
for i := 1 to 5 do
begin
writeln('Информация об ученике ', i, ':');
writeln('Фамилия: ', students[i].lastName);
writeln('Имя: ', students[i].firstName);
writeln('Год рождения: ', students[i].birthYear);
writeln('Рост: ', students[i].height, ' см');
writeln('Вес: ', students[i].weight, ' кг');
end;

readln;
end.

Для ввода данных из текстового файла данный код программы можно модифицировать следующим образом:

program StudentRecords;

type
Student = record
lastName: string;
firstName: string;
birthYear: integer;
height: integer;
weight: integer;
end;

var
fileInput: Text;
students: array[1..5] of Student;
i: integer;

begin
assign(fileInput, 'students.txt');
reset(fileInput);

for i := 1 to 5 do
begin
readln(fileInput, students[i].lastName);
readln(fileInput, students[i].firstName);
readln(fileInput, students[i].birthYear);
readln(fileInput, students[i].height);
readln(fileInput, students[i].weight);
end;

close(fileInput);

for i := 1 to 5 do
begin
writeln('Информация об ученике ', i, ':');
writeln('Фамилия: ', students[i].lastName);
writeln('Имя: ', students[i].firstName);
writeln('Год рождения: ', students[i].birthYear);
writeln('Рост: ', students[i].height, ' см');
writeln('Вес: ', students[i].weight, ' кг');
end;

readln;
end.

Текстовый файл "students.txt" должен содержать данные для каждого ученика в следующем формате:
[Фамилия]
[Имя]
[Год рождения]
[Рост в см]
[Вес в кг]