Перейти к содержимому


Помогите разобраться очень нужно


В этой теме нет ответов

#1 _azazello_

    Абитуриент

  • Пользователи
  • 4 сообщений
  • Пол:Мужчина
  • Город:Казахстан-г.Зыряновск
  • Интересы:Компьютеры, спорт, учеба.

Отправлено 17 декабря 2008 - 17:38

Помогите пожалуйста!!!, TPascal случайные процессы

Задача:В автоколонне 25 автобусов. Автобус находится в ремонте с вероятностью 4%. За смену автобус может сделать от 8 до 10 рейсов. За рейс перевозится от 30 до 120 пассажиров. Какова выручка автоколонны, если известно, что льготники, составляющие 20% пассажиров, платят по 20, а остальные – по 30?

var i:integer(количество автобусов);
j:integer(количество рейсов);
k:integer(пассжиров за рейс);
s:integer(всего пассажиров);
begin
s:=0;
randomize;
for i:=1 to 25 do
for j:=8 to 10 do
if random <0.96 then
begin
k:=30+random(91);
s:=s+k;
end;
writeln('Выручка автоколонны за день составила',?,);
end.

Как вычислить выручку за день?

ничего не выходит, не могу получить целого числа!
помогите!
Помогите пожалуйста!!!




Ответить



  


Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных