Сколько стоит самый дешевый и самый дорогой обед? - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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