Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Длина окружности и площадь круга https://www.cyberforum.ru/ pascalabc/ thread766957.html
Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.
Матрица: замена элементов, вставка и удаление строк / столбцов Pascal ABC
дан двумерный массив размером 5*6, заполненный случайным образом 1. заменить максимальный элемент каждой строки на противоположный 2. вставить после столбцов с максимальными элементами столбец из...
Pascal ABC Вычислить сумму ряда https://www.cyberforum.ru/ pascalabc/ thread766947.html
2. Вычислить:Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.
Pascal ABC Если первое число больше второго по абсолютной величине, то необходимо уменьшить первое в 5 раз 1. Даны два числа. Если первое число больше второго по абсолютной величине, то необходимо уменьшить первое в 5 раз, иначе оставить числа без изменения. https://www.cyberforum.ru/ pascalabc/ thread766900.html
Pascal ABC Вычислить длину окружности и площадь круга одного и того же заданного радиуса R
1. Даны x,y,z. Вычислить a,b, если:
Pascal ABC Составить программу перевода дюймов в миллиметры (1 дюйм равен 2,3995 мм) от 20 дюймов до 38 шагом в 2 дюйма https://www.cyberforum.ru/ pascalabc/ thread766867.html
1. Составить программу перевода дюймов в миллиметры (1 дюйм равен 2,3995 мм) от 20 дюймов до 38 шагом в 2 дюйма.
Pascal ABC Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи Дан двумерный массив.Составить одномерный массив из номеров столбцов,где на главной диагонали число Фибоначи.оформить в виде основной программы ПОМОГИТЕ РЕШИТЬ ПОЖАЙЛУСТА,БУДУ ОЧЕНЬ БЛАГОДАРНА https://www.cyberforum.ru/ pascalabc/ thread766862.html Pascal ABC Определить произведение элементов массива под побочной диагональю
ПОМОГИТЕ РЕШИТЬ ЛЮДИ ДОБРЫЕ ОЧЕНЬ СРОЧНО Дан двумерный массив А .Если все элементы на главной диагонали...
Pascal ABC Определить, верно ли, что данное слово начинается и заканчивается на одну и туже букву https://www.cyberforum.ru/ pascalabc/ thread766857.html
Дано слово.Верно ли что оно начинается и заканчивается на одну и туже букву?
Pascal ABC Определить, является ли введенная буква русского алфавита гласной https://www.cyberforum.ru/ pascalabc/ thread766855.html
1. Определить, является ли введенная буква русского алфавита гласной. 2. Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент), длина окружности (третий элемент)....
Pascal ABC Цикл с параметром for: Найти все трехзначные числа, которые делятся на n
Прошу помочь решить задачи к зачету, в паскале не селен к сожалению 1. Дано вещественное число A и целое число N (>0). Найти A 2. 2. Найти все трехзначные числа, которые делятся на n
Pascal ABC В каждой строке матрицы заменить последний отрицательный элемент нулем https://www.cyberforum.ru/ pascalabc/ thread766841.html
В каждой строке матрицы заменить последний отрицательный элемент нулем. Вот начало программы uses crt; var a: array of integer; n, j, i: integer; begin writeln('vvedite masiv'); read(n);...
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
21.01.2013, 10:18 0

Определить, сколько стоит самый дешевый и самый дорогой обед - Pascal ABC - Ответ 4032823

21.01.2013, 10:18. Показов 3800. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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.


Вернуться к обсуждению:
Определить, сколько стоит самый дешевый и самый дорогой обед Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2013, 10:18
Готовые ответы и решения:

Определить, сколько стоит самый дорогой автомобиль
В массиве хранится информация о стоимости каждой из 50 марок легковых автомобилей. Определить,...

Найдите самый дорогой и дешевый принтер
Не получается написать программу в паскале. Файл с исходными данными создан заранее(сведения о...

Определить, сколько стоит самый дешевый и самый дорогой обед
Здравствуйте товарищи администраторы программисты, помогите пожалуйста решить данную задачу по...

Определить, сколько стоит самый дешевый и самый дорогой обед
В столовой предлагаются N комплексных обедов, состоящих из Q блюд. Известна стоимость и...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2013, 10:18
Помогаю со студенческими работами здесь

Определить сколько стоит самый дешевый и самый дорогой обед
В столовой предлагается N комплексных обедов, состоящих из Q блюд. Известна стоимость и...

Сколько стоит самый дешевый и самый дорогой обед?
Проектная задача!!! В столовой предлагается N комплексных обедов, состоящих из Q блюд. Известна...

Выяснить, сколько стоит самый дорогой и самый дешевый препарат в аптеке
Условие задачи: На аптечном складе хранятся лекарства. Сведения о лекарствах содержаться в...

Записи: сколько стоит самый дорогой и самый дешёвый препарат на складе?
На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости:...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru