Напечатать фамилии, имена и подсчитать общее число жителей родившихся в 1990 г - Turbo Pascal
Формулировка задачи:
Даны результаты, ререписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990г.
Решение задачи: «Напечатать фамилии, имена и подсчитать общее число жителей родившихся в 1990 г»
textual
Листинг программы
program ghost; uses crt; type man = Record fam: String; name: String; data: Integer; end; var perepis: array[1..3] of man; i: Integer; count: Integer; begin clrscr; perepis[1].fam := 'ivanov'; perepis[1].name := 'ivan'; perepis[1].data := 1990; perepis[2].fam := 'petrov'; perepis[2].name := 'petr'; perepis[2].data := 1991; perepis[3].fam := 'sidorov'; perepis[3].name := 'sidr'; perepis[3].data := 1992; count := 0; for i := 1 to 3 do if (perepis[i].data = 1990) then Inc(count); for i := 1 to 3 do begin write('famaly: ', perepis[i].fam); writeln; write('name: ', perepis[i].name); writeln; write('data: ', perepis[i].data); writeln; writeln('_____'); end; writeln('count: ', count); readkey; end.
Объяснение кода листинга программы
- Создается программа
ghost
с использованием модуляcrt
. - Определяется тип
man
, который представляет собой запись с полямиfam
(фамилия),name
(имя) иdata
(год рождения). - Определяется переменная
perepis
, которая является массивом из 3 элементов типаman
. - Определяется переменная
i
, которая будет использоваться для цикла. - Определяется переменная
count
, которая будет использоваться для подсчета количества жителей, родившихся в 1990 году. - Выполняется инициализация переменной
perepis
и ее полей. - Выполняется цикл
for i := 1 to 3 do
, который будет выполняться 3 раза. - Внутри цикла проверяется условие
if (perepis[i].data = 1990) then
. Если это условие истинно, то значение переменнойcount
увеличивается на единицу. - После выполнения цикла
for i := 1 to 3 do
выводится сообщениеcount:
, которое показывает количество жителей, родившихся в 1990 году. - Программа завершается с помощью функции
readkey
, которая ожидает ввода пользователя.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д