Сколько стоит самый дешевый и самый дорогой обед? - VB
Формулировка задачи:
Проектная задача!!! В столовой предлагается N комплексных обедов, состоящих из Q блюд. Известна стоимость и калорийность каждого блюда. Сколько стоит самый дешевый и самый дорогой обед? Сколько калорий включает в себя самое калорийное блюдо?
Решение задачи: «Сколько стоит самый дешевый и самый дорогой обед?»
textual
Листинг программы
uses crt; type blyudo=record stm:real; kal:integer; end; var n,q,i,j:integer; a:array[1..6,1..6] of blyudo; kl,mxk:integer; st,mxs,mns:real; begin repeat write('Количество обедов от 1 до 6 n='); read(n); until n in [1..6]; repeat write('Количество блюд в обедах от 3 до 5 q='); read(q); until q in [3..6]; writeln('Введите данные'); for i:=1 to n do begin writeln('Обед ',i); for j:=1 to q do begin writeln(' - блюдо ',j); write(' - стоимость=');read(a[i,j].stm); write(' - калорийность=');read(a[i,j].kal); end; end; mxs:=0; mns:=1000000; mxk:=0; for i:=1 to n do begin st:=0; for j:=1 to q do begin st:=st+a[i,j].stm; if a[i,j].kal>mxk then mxk:=a[i,j].kal; end; if st>mxs then mxs:=st; if st<mns then mns:=st; end; writeln('Самый дешевый обед стоит ',mns:0:2); writeln('Самый дорогой обед стоит ',mxs:0:2); writeln('Самое калорийное блюдо включает ',mxk,' кал.'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д