Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
Сергей_freeze
6 / 6 / 1
Регистрация: 24.12.2011
Сообщений: 354
1

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

21.01.2013, 09:30. Просмотров 1721. Ответов 2
Метки нет (Все метки)

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

Добавлено через 56 минут
Составить программу на паскале. Тема: записи.

Добавлено через 18 часов 42 минуты
,помогите решить пжл.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2013, 09:30
Ответы с готовыми решениями:

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

Определить, какой человек указан в списке раньше: самый старший или самый младший
Известен возраст группы людей в списке. Какой человек указан в списке раньше: самый старший или...

Определить сколько человек имеют самый большой рост
В массиве хранится информация о росте 35 человек. Определить сколько человек имеют самый большой...

В двумерном массиве найти самый длинный и самый короткий элемент
В двумерном массиве найти самый длинный и самый короткий элемент

Поменять местами самый первый элемент массива и самый большой
Вводится какой-нибудь массив, поменять местами самый первый элемент массива и самый большой

2
Puporev
Модератор
56317 / 43104 / 29819
Регистрация: 18.05.2008
Сообщений: 102,432
21.01.2013, 10:18 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.
1
Сергей_freeze
6 / 6 / 1
Регистрация: 24.12.2011
Сообщений: 354
22.01.2013, 15:26  [ТС] 3
спасибо,все работает!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2013, 15:26

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

Найти среднее арифметическое компонент массива, удалив самый большой и самый маленький элементы
Найти среднее арифметическое компонент массива , убрав самый большой и самый маленький элементы

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru