Определить стоимость самого дешевого блюда в ресторане - Pascal ABC
Формулировка задачи:
Помогите с задачей на записи: Составить программу, выводящую на экран меню ресторана "Дракон" (наименование блюда, вес, стоимость). Определить стоимость самого дешевого блюда. В паскале.
Решение задачи: «Определить стоимость самого дешевого блюда в ресторане»
textual
Листинг программы
program pr; uses crt; type list = record dish: string[50]; weight: double; price: integer; end; var menu: array of list; i, n: integer; min, index: integer; begin writeln('Составим меню'); writeln('Сколько блюд вы хотите внести в меню?'); readln(n); setlength(menu,n); for i := 0 to n-1 do begin writeln('Введите название блюда'); readln(menu[i].dish); writeln('Введите вес блюда (кг)'); readln(menu[i].weight); writeln('Введите цену блюда'); readln(menu[i].price); end; clrscr; writeln('Меню ресторана "Дракон"'); for i := 0 to n-1 do begin writeln(' " ', menu[i].dish, ' " '); writeln('Вес: ', menu[i].weight, ' кг.'); writeln('Цена: ', menu[i].price, ' рублей.'); writeln; end; min := menu[0].price; for i := 0 to n-1 do if menu[i].price < min then begin min := menu[i].price; index := i; end; writeln; writeln('Самое дешёвое блюдо: ', menu[index].dish, ' , цена: ', min, ' рублей.'); end.
Объяснение кода листинга программы
- Создается программа на языке Pascal ABC.
- Создается тип данных
list
, который представляет собой запись с полямиdish
(название блюда),weight
(вес блюда) иprice
(цена блюда). - Создается переменная
menu
типа array of list, которая будет хранить информацию о блюдах. - Создаются две переменные
i
иn
для итерации по элементам меню. - Задается вопрос пользователю о количестве блюд, которые он хочет добавить в меню.
- Вычисляется общая длина меню с помощью функции setlength.
- Запускается цикл, в котором пользователь вводит название, вес и цену каждого блюда.
- После завершения цикла очищается экран с помощью функции clrscr.
- Выводится меню ресторана
Дракон
. - Запускается еще один цикл, в котором выводятся название, вес и цена каждого блюда.
- В конце программы выводится самая дешевая еда в ресторане.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д