Вывести на экран данные обо всех автомобилях стоимость которых менее 80 тысяч - Turbo Pascal

Узнай цену своей работы

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

Задание : создать базу данных - Легковые автомобили.Название, Завод изготовитель, стоимость , год выпуска.Вывести на экран данные обо всех автомобилях стоимость которых менее 80 тысяч. вот моя программа
но я вроде сделала что то не так, помогите пожалуйста

Решение задачи: «Вывести на экран данные обо всех автомобилях стоимость которых менее 80 тысяч»

textual
Листинг программы
program prim;
uses crt;
type
tablica = record
NAZVANIE  : STRING [25];
GOD : WORD;
STOIMOST : REAL;
ZAVODIZGOTOVITEL: STRING[25];
END;
var i,n:integer;
avtomobili: array[1..30] of tablica;
BEGIN  clrscr;
write ('n='); readln(n);
for i:=1  to n do
with avtomobili[i] do
begin 
write ('NAZVANIE :'); readln(NAZVANIE );
write ('GOD:'); readln(GOD);
write ('STOIMOST :'); readln(STOIMOST);
write ('ZAVOD-IZGOTOVITEL :'); readln(ZAVODIZGOTOVITEL);
end;
for i:=1 to n do
begin
if avtomobili[i].stoimost<80000 then
Begin
  write(avtomobili[i].NAZVANIE,'  ');
  write(avtomobili[i].GOD,'  ');
  write(avtomobili[i].stoimost:6,'  ');
  writeln(avtomobili[i].ZAVODIZGOTOVITEL);
end;
end;
end.

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

Этот код написан на языке Turbo Pascal и предназначен для вывода на экран данных об автомобилях, стоимость которых меньше 80 тысяч. Программа начинается с объявления необходимых переменных и типов данных. Затем происходит чтение количества автомобилей (переменная n) с помощью функции readln. Далее следует цикл for, который проходит по каждому автомобилю в массиве avtomobili. Внутри цикла происходит вывод данных об автомобиле на экран с помощью функции write. Если стоимость автомобиля меньше 80 тысяч, то выводится информация о нем. После этого идет еще один цикл for, который также проходит по каждому автомобилю в массиве avtomobili. Если стоимость автомобиля меньше 80 тысяч, то выводится информация о нем. В конце программы происходит выход из программы с помощью функции end.

Оцени полезность:

11   голосов , оценка 4.364 из 5
Похожие ответы