Работа 3.9 Упр.7 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 7. Даны результаты переписи населения. Получить фамилии, имена и подсчитать общее число жителей, родившихся после 1990 года. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-9/7 98

Подробный ответ

Нужно обработать записи о жителях: вывести фамилию и имя каждого человека, а затем подсчитать, сколько записей удовлетворяют условию $$date > 1990$$.

Для этого удобно использовать запись с полями fio, name, date и файловый тип для работы с последовательностью записей.

type
Trec = record
fio: string[30];
name: string[30];
date: integer;
end;
Tfile = file of Trec;
var
f: Tfile;
rec: Trec;
i: integer;
begin
assign(f, ‘file.rec’);
rewrite(f);
repeat
writeln(‘vvedite danie’);
write(‘fio — ‘); readln(rec.fio);
write(‘name — ‘); readln(rec.name);
write(‘year — ‘); readln(rec.date);
write(f, rec);
writeln(‘dl9 okon4aniz vvod na#mite esc’);
until readkey = #27;
seek(f, 0);
i := 0;
clrscr;
writeln(‘—————————————-‘);
writeln(‘fio’:20, ‘|’, ‘name’);
writeln(‘—————————————-‘);
while not eof(f) do
begin
read(f, rec);
if rec.date > 1990 then inc(i);
writeln(rec.fio:20, ‘|’, rec.name);
end;
writeln(‘—————————————-‘);
writeln(‘kol > 1990 = ‘, i);
readln;
end.

В цикле перебираются все записи файла. Если год рождения больше 1990, счётчик i увеличивается на 1. Одновременно выводятся фамилия и имя каждого жителя.

После завершения просмотра файла выводится общее число жителей, родившихся после 1990 года.