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

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

Задание : создать базу данных - Легковые автомобили.Название, Завод изготовитель, стоимость , год выпуска.Вывести на экран данные обо всех автомобилях стоимость которых менее 80 тысяч. вот моя программа
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='); read(n);
for i:=1  to n do
with avtomobili[i] do
begin 
writeln ('NAZVANIE :'); readln(NAZVANIE );
writeln ('GOD:'); readln(GOD);
writeln ('STOIMOST :'); readln(STOIMOST);
writeln ('ZAVOD-IZGOTOVITEL :'); readln(ZAVODIZGOTOVITEL);
end;
for i:=1 to n do
begin
avtomobili[i].stoimost;
if avtomobili[i].stoimost<80000 then writeln (stoimost:6)
end;
end.
но я вроде сделала что то не так, помогите пожалуйста

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.364 из 5


СДЕЛАЙТЕ РЕПОСТ