Стек. Очередь. Делфи

[Fantazerishka]

Здравствуйте люди добрые, очень прошу помочь ежели кому не лень.
Есть две задачи:
1) Магазин за 1 день посещает 100 человек. Обслуживание покупателей предполагает продажу им : хлеба – 0-24; сыра – 25-49; печенья – 50-74; пиво – 75-99 из случайного числа в диапазоне от 0 – 100. Организовать очередь покупателей, а при ее обслуживании определить и напечатать какой продукт покупается чаще.

2) Алгебраическое выражение (без скобок) типа А*В+С*Е, введенное в режиме диалога с ЭВМ, посимвольно записать в стек. При очистке стека определить число сомножителей в выражении.

И хотя эти задачи мне собственно ясны, но я абсолютно не врубаюсь ни в стеки ни в очереди (и боюсь нынче ночью уже полностью и не врублюсь, а сдавать завтра). ПОсему очень прошу помочь, кто советом, кто пинком, а кто кодом заветным... Пожалуйста...
П.С. нынче ночью мну что-то больно сильно плющит, недосып и программирование сведут меня в могилу...

[skiffter]

Создайте очередь Рандомом меняйте кол-во продуктов И путем включения и исключения обслуживайте очередь

[Fantazerishka]

skiffter? ниче не понял %) Можно поподробнее пожалуйста?

эх ну хоть кто-нибудь бы объяснил что сказал skiffter...

[Stilet]

Ну вот смотри:

// Это масси количества твоих четырех продуктов
var a:array[1..4] of integer;i:integer;
begin
 for i:=1 to 100 do begin
  case random(100) of
   0..24:inc(a[1]);  25..49:inc(a[2]); 50..74:inc(a[3]); 75..99:inc(a[4]);
  end;
 end;

А теперь выводи на экран массив А, в котором будет указано количество купленных товаров, и находи в нем максимум.
Так понятнее?

[Fantazerishka]

Сообщение от Stilet

Ну вот смотри:

// Это масси количества твоих четырех продуктов
var a:array[1..4] of integer;i:integer;
begin
 for i:=1 to 100 do begin
  case random(100) of
   0..24:inc(a[1]);  25..49:inc(a[2]); 50..74:inc(a[3]); 75..99:inc(a[4]);
  end;
 end;

А теперь выводи на экран массив А, в котором будет указано количество купленных товаров, и находи в нем максимум.
Так понятнее?

Да в вашем коде все понятно, только я не понял что тогда есть очередь? Ключ выбора и все? А стек в таком случае нечто подобное?

[Stilet]

А вот насчет очереди так она тут в принципе лишня...
Не все ли равно какой покупец за каким стоит...
Если это бзик преподавателя, то очень глупый, по крайней мере исходя из задания.

[Fantazerishka]

Сообщение от Stilet

А вот насчет очереди так она тут в принципе лишня...
Не все ли равно какой покупец за каким стоит...
Если это бзик преподавателя, то очень глупый, по крайней мере исходя из задания.

Ясно, но к сожалению от этого задание не изменяется)

Спасибо)