Вывести на экран данные обо всех автомобилях стоимость которых менее 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='); 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.