Распечатать список типов программного обеспечения со всеми характеристиками, имеющих заданный год выпуска - PascalABC.NET

Формулировка задачи:

Подготовить следующую информацию: − Название программного обеспечения; − Цена; − Изготовитель; − Год выпуска. А) Распечатать список типов программного обеспечения со всеми характеристиками, имеющих цену свыше 5 тыс. рублей. Б) Распечатать список типов программного обеспечения со всеми характеристиками, имеющих заданного изготовителя. В) Распечатать список типов программного обеспечения со всеми характеристиками, имеющих заданный год выпуска.

Решение задачи: «Распечатать список типов программного обеспечения со всеми характеристиками, имеющих заданный год выпуска»

Листинг программы

program pr;
uses crt;
type
info=record
name:string[50];
price:integer;
maker:string[50];
year:integer;
end;
var
i,n:integer;
s:string;
god:integer;
po:array of info;
begin
writeln('Введите количество записей для добавления');
readln(n);
setlength(po,n);
for i:=0 to n-1 do
begin
writeln('Введите название');
readln(po[i].name);
writeln('Введите цену');
readln(po[i].price);
writeln('Введите изготовителя');
readln(po[i].maker);
writeln('Введите год  выпуска');
readln(po[i].year);
end;
clrscr;
writeln('ПО имеющие цену выше 5000 рублей');
for i:=0 to n-1 do
begin
if (po[i].price>5000) then
begin
writeln(po[i].name);
writeln(po[i].price);
writeln(po[i].maker);
writeln(po[i].year);
end;
end;
writeln;
writeln('Введите изготовителя');
readln(s);
for i:=0 to n-1 do
begin
if (po[i].maker=s)then
begin
writeln(po[i].name);
writeln(po[i].price);
writeln(po[i].maker);
writeln(po[i].year);
end;
end;
writeln;
writeln('Введите год выпуска');
readln(god);
for i:=0 to n-1 do
begin
if (po[i].year=god)then
begin
writeln(po[i].name);
writeln(po[i].price);
writeln(po[i].maker);
writeln(po[i].year);
end;
end;
end.

Объяснение кода листинга программы

Список действий в коде:

Задание типа записи info для хранения данных о программном обеспечении.
Объявление переменных:
- i, n - для подсчета количества записей и циклов;
- s - для хранения названия производителя;
- god - для хранения года выпуска.
Создание массива po типа array of info для хранения данных о программном обеспечении.
Ввод количества записей для добавления в массив po.
Заполнение массива po данными о программном обеспечении с помощью цикла for и операций чтения введенных пользователем значений.
Очистка экрана и вывод списка ПО с ценой выше 5000 рублей с помощью цикла for и условия if.
Ввод названия производителя s и вывод списка ПО с соответствующим производителем с помощью цикла for и условия if.
Ввод года выпуска god и вывод списка ПО с соответствующим годом выпуска с помощью цикла for и условия if.