Question

Составить программный код на языке pascalabc , нужно составить до завтра. вот описать комбинированный тип данных со следующей структурой:  поле строкового типа для хранения фамилии, имени, отчества студента;  поле целого типа для хранения года рождения студента;  поле вещественного типа для
хранения среднего за экзаменационную сессию. распечатать анкетные данные для студентов – отличников.

Answer 1

Вот программный код на языке PascalABC, который соответствует требованиям задания:

```
program Students;

type
Student = record
name: string;
birthYear: integer;
averageGrade: real;
end;

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

begin
// Заполняем данные для 5 студентов
students[1].name := 'Иванов Иван Иванович';
students[1].birthYear := 2001;
students[1].averageGrade := 4.5;

students[2].name := 'Петров Петр Петрович';
students[2].birthYear := 2002;
students[2].averageGrade := 5.0;

students[3].name := 'Сидоров Сидор Сидорович';
students[3].birthYear := 2001;
students[3].averageGrade := 4.9;

students[4].name := 'Смирнова Анастасия Петровна';
students[4].birthYear := 2002;
students[4].averageGrade := 4.8;

students[5].name := 'Козлов Николай Александрович';
students[5].birthYear := 2001;
students[5].averageGrade := 5.0;

// Выводим анкетные данные для студентов-отличников
writeln('Анкетные данные для студентов-отличников:');
for i := 1 to 5 do
begin
if students[i].averageGrade = 5.0 then
begin
writeln('ФИО: ', students[i].name);
writeln('Год рождения: ', students[i].birthYear);
writeln('Средний балл: ', students[i].averageGrade:0:1);
end;
end;
end.
```

Объявляется тип данных `Student`, который представляет собой комбинированный тип с полями `name` (строка), `birthYear` (целое число) и `averageGrade` (вещественное число).

Далее создается массив `students` класса `Student` размером 5, в который будут сохранены данные для студентов.

Затем, данные для каждого студента заполняются в соответствии с требованиями задания. Вы можете добавить или изменить данные студентов по своему усмотрению.

После этого, происходит вывод анкетных данных для студентов-отличников. Происходит перебор всех студентов в массиве `students`, и для каждого студента проверяется совпадение `averageGrade` с 5.0. Если совпадение найдено, то анкетные данные студента выводятся на экран.

Таким образом, при запуске программы, будут выведены анкетные данные всех студентов, у которых `averageGrade` равно 5.0.