Парикмахерская, программа Опции

[Дон]

Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем..
Помогите,плизз,если кто может..

[Дон]

Не спеши. Время есть пока?

В принципе да..курсовую через три дня сдавать)

Например,
while 2*2=4 do ...
- будет повторяться бесконечно. А этот:
while 2*2=5 do ...
- не выполнится ни разу (здесь и выше идет речь о выполнении того, что стоит на месте многоточия). А вот этот:
i:=1;
while i<50 do i:=i*2;
- выполнится раз. В первый раз i=1, во второй 2, в третий 4, в четвертый 8, потом 16, потом 32 - и все, для i=64 он уже не выполнится, и программа продолжит выполняться дальше, причем значение переменной i при этом уже будет равно 64.

с while все ясно..
с алгоритмикой у мну все в порядке..оформлять я не умею,иногда просто тупо забываю какой знак за каким стоит..буду тренироваться!

Вот новая версия программы. Подтверди, пожалуйста, что она нормально отрабатывает и что тебе все понятно. Или задавай вопросы

Все работает и пока что все ясно!

[Lapp]

Все работает и пока что все ясно!

Это очень хорошо.
Я извиняюсь за некоторый перерыв - был занят другими делами, на форум почти не заглядывал .
Если это еще актуально - выкладываю окончательную версию. Она отличается от того варианта, что я выкладывал раньше.
1. Я не использую записи (record) для упрощения.
2. Убрал использование функции.
Без всего этого можно обойтись. Ну, и перевел на "квазирусский" (больше не проси.. утомительно это - писать латиницей..)
Работа программы ясна из комментариев. Если есть вопросы - задавай.

{ for Don, BarberShop, ver.06, 05/12/06 }
{ by Lapp }

var
  TimeIn:array[1..100]of real;   {время прихода кждого клиента}
  ServiceTime:array[1..100] of Real; {время обслуживания каждого клиента}
  t,t1,t2,TWork,TOpen,TClose:real;
  n,i,k:integer;         {общее число клиентов}

begin
  TOpen:=9;          {время открытия парикмахерской}
  TClose:=17;        {время закрытия}
  WriteLn;
  WriteLn('The Barber''s shop is open ',tOpen:4:2,' through ',tClose:4:2);
  WriteLn('Vvedite vremya prihoda i obsluzhivaniya kazhdogo klienta po poraydku');
  WriteLn('cherez probel po odnomu clientu na stroke.');
  WriteLn('V konce nazhmite Ctrl-Z i Enter');
  n:=0;              {счетчик клиентов в очереди}
  while not EoF do begin           {регистрация клиентов}
    Inc(n);
    ReadLn(TimeIn[n],ServiceTime[n])
  end;
  WriteLn('Barber shop posetili ',n,' klientov. Vremya prihoda i obsluzhivaniya:');
  for i:=1 to n do WriteLn(i,': ',TimeIn[i] :4 :2,'  ',ServiceTime[i] :4 :2);

  t:=TOpen;      {текущее время по часам мастера, начинается с открытия}
  TWork:=0;      {рабочее время, подготавливаем}
  k:=0;          {счетчик обслуженных клиентов, подготавливаем}
  for i:=1 to n do begin {вызываем следующего по очереди}
    {начало обслуживания клиента - это либо время его прихода...}
    t1:=TimeIn[i];
    {.. либо время, когда мастер освободился, если он был занят}
    if t>t1 then t1:=t;
    {выводим время простоя, если оно было}
    if t1>t then WriteLn('Vremya prostoya ',t1-t:4:2,' chasov');
    {вычисляем время окончания сеанса:}
    t2:=t1+ServiceTime[i];
    if t2<=TClose then begin  {если хватает рабочего времени ..}
      t:=t2;                       {.. то обновляем текущее время концом сеанса (стрижем)}
      TWork:=TWork+ServiceTime[i]; {увеличиваем счетчик рабочего времени}
      Inc(k);                      {увеличиваем счетчик обслуженных клиентов}
      {выводим информацию об обслуживании клиента и время сеанса}
      WriteLn('Klient #',i,' byl obsluzhen s ',t1:4:2,' do ',t2:4:2)
    end
    {.. если не хватает времени - выводим информацию об отказе}
    else WriteLn('Klientu #',i,' bylo otkazano v servise')
  end;
  {esli v konce rabochego dnya ne bylo clientov, vyvodim vremya prostoya}
  if t<TClose then WriteLn('Vremya prostoya ',tClose-t:4:2,' chasov');
  WriteLn('Za vesj denj bylo obsluzheno ',k,' klientov');
  WriteLn('Rabochee vremya sostavilo ',tWork:4:2,' chasov');
  ReadLn
end.

Желаю успехов! И не бросай программирование..
PS
Плохо выглядит вывод времени в долях часа.. По-хорошему, надо сделать вывод в часах и минутах, но это отдельный разговор