Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
CaptainPike
0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 29
#1

Известно количество денег у каждого из N учеников, а также стоимость 4 комплексных обедов в школьной столовой. Напечатать сколько каких обедов будет к - Pascal ABC

03.03.2013, 09:52. Просмотров 662. Ответов 1
Метки нет (Все метки)

Здравствуйте. Помогите пожалуйста с задачей. В задаче использовать только один массив.

Известно количество денег у каждого из N учеников, а также стоимость 4 комплексных обедов в школьной столовой. Напечатать сколько каких обедов будет куплено и сколько учеников останутся голодными, если каждый ученик выбирает наиболее дорогой обед, который он может купить.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2013, 09:52
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Известно количество денег у каждого из N учеников, а также стоимость 4 комплексных обедов в школьной столовой. Напечатать сколько каких обедов будет к (Pascal ABC):

Сгенерировать меню школьной столовой - Pascal ABC
Составьте пожалуйста программу, которая генерирует и выводит меню школьной столовой. Спасибо за помощь!

Известно количество денег у каждого из N учеников, а также стоимость 4 комплексных обедов в школьной столовой - Turbo Pascal
Известно количество денег у каждого из N учеников, а также стоимость 4 комплексных обедов в школьной столовой. Напечатать сколько каких...

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

Программа заказов обедов в офис - Java SE
Нам дано меню: наименования блюд и их стоимость. Даны заказы: Фамилии работников и наименования заказанных ими блюд. Программа должна...

Сколько и каких животных живут на ферме, если известно общее количество ног - Visual Basic .NET
В Qbasic все правильно считает,а в консольных приложениях выдает ошибку и неправильные ответы Добавлено через 14 секунд Module...

Программа, которая будет выводить фамилии и имена учеников, набравших максимальную сумму баллов, а также колличество таких учеников. - Turbo Pascal
uses crt; var surname:string; name:string; a1,a2,a3,a4:array of integer; k,i,n,max:integer; sum:array; begin clrscr; ...

1
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
03.03.2013, 11:45 #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
uses crt;
const o1=200;
      o2=150;
      o3=100;
      o4=50;
      nmax=100;
var a:array[1..nmax] of integer;
    n,i,k1,k2,k3,k4,g:byte;
begin
randomize;
repeat
write('Количество учеников до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Наличие денег у учеников');
k1:=0;
k2:=0;
k3:=0;
k4:=0;
g:=0;
for i:=1 to n do
 begin
  a[i]:=20+random(300);
  write(a[i]:4);
  if a[i]>=o1 then inc(k1)
  else if a[i]>=o2 then inc(k2)
  else if a[i]>=o3 then inc(k3)
  else if a[i]>=o4 then inc(k4)
  else inc(g)
 end;
writeln;
writeln('Обед за ',o1,' руб. могут взять ',k1,' учен.');
writeln('Обед за ',o2,' руб. могут взять ',k2,' учен.');
writeln('Обед за ',o3,' руб. могут взять ',k3,' учен.');
writeln('Обед за ',o4,' руб. могут взять ',k4,' учен.');
writeln('Голодными останутся ',g,' учен.')
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2013, 11:45
Привет! Вот еще темы с ответами:

В меню столовой 10 блюд. Сколько людей могут пообедать в субботу в столовой? - Логика и множества
Первая задача на скрине, вторая вот: В меню столовой 10 блюд. По субботам повара не повторяют одинаковых заказов, то есть не продают в...

Какая сумма будет подарена на каждый день рождения до совершеннолетия? Сколько всего денег будет подарено? - Turbo Pascal
мой богатый дядюшка подарил мне доллар на день рождения. в каждый следующий день рождения он удваивал свой подарок и прибавлял к нему...

Составьте алгоритм определения общей стоимости обеда в столовой, и во сколько раз возрастёт стоимость обеда, е - Delphi
Дорогие программисты помогите пожалуйста решить 3 задания, к нам приехала комиссия и дала контрольные на выполнение, а половину тем в делфи...

Известны оценки каждого из 18 учеников по трем предметам,найти количество троек у каждого ученика - Pascal ABC
известны оценки каждого из 18 учеников по трем предметам,найти:количество троек у каждого ученика.


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

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

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