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

[Дон]

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

[Дон]

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

Я в паскале очень слаб...он у нас идет первый год,преподы постоянно менялись,вообщем ничему нас не учили...давали на самостоятельное изучение...
Вообщем я сегодня-завтра сбегаю за учебником по паскалю и начну штудировать.может быть подскажите автора?
А за алгоритм большое спасибо!!!!!!

[Lapp]

сегодня-завтра сбегаю за учебником по паскалю и начну штудировать.может быть подскажите автора?

Рекомендую начать в Фаронова. Я имею в виду его книгу по Turbo Pascal, которая давно стала классикой.
И, если хочешь, параллельно могу давать тут по кусочку программы с объяснениями. Только учти: если ты не будешь одновременно читать учебник - ты обманешь больше себя, чем меня..
Говори, что тебе уже известно, а что не понятно.

Начинаем со структуры основных данных. Поскольку у нас много клиентов, то их описывать должен массив - в каждой ячейке данные очередного клиента. Но данных на каждого клиента больше одного (время прихода и время сервиса) - как быть? На этот случай есть форма данных, называемая record (запись). Она может содержать несколько величин, при этом они могут быть различного типа (в нашем случае обе величины одного типа - real). Такие вот записи мы объединим в массив. Размер массива можно задать прямо при его определении, но удобнее (для дальнейшего развития программы) задавать сначала константу, чтобы потом использовать ее при задании границ массива.

const
  M=100;  {максимално возможное число клиентов (размер массива)}

type
  tCust=record
    TIn,TServ:real   {время прихода и необходимое время обслуживания клиента}
  end;

var
  Line:array[1..M]of tCust;

begin
end.

В этом фрагменте есть все основные разделы задания данных:

const - константы. В данном случае используется просто как число, то есть везде, где компилятор встретит M, он подстаавит 100. Попытка изменения М будет трактоваться ошибкой.

type - тип. Подготавливает только структуру данных. Не саму память, а способ расположения в ней данных. Название типа (tCust, я образовал от английского Customer - заказчик, покупатель, клиент -, а буква t означает, что это тип) должно быть использовано при определении переменных. Здесь мы определяем запись, в которой должно быть два действительных числа: время прихода клиента (TIn) и время, необходимое для его обслуживания (TServ).

var - переменные. Тут задаются реальные данные. У нас организуется в памяти блок данных, содержащий 100 записей, пронумерованных от 1 до 100, каждая из которых содержит два действительных числа.

Каждый раздел может содержать много определений (констант, типов, переменных). Конечно, тут еще не все данные пока.

О названиях.
Названия для констант, типов, переменных ты выбираешь сам. Желательно иметь для себя некоторые правила, чтоб не путаться. Например, переменные можно называть по смыслу словами (без пробелов, если несколько слов), начиная каждое слово с большой буквы: ProcessTime, PointEnergy, DlinaVolny ... Простые переменные (обычно одно-двухбуквенные) могут быть маленькими: i, n, r0, c1 ... Названия типов можно образовывать по тому же правилу, но добавлять маленькую t в начале. Константы обычно не нужно отличать от переменных в этом смысле.

О регистре.
Большие и маленькие буквы в Паскале не различаются, то есть переменные start, Start, START - это все одно и то же. То же самое в словах языка.

Приведенный фрагмент представляет собой полную программу. Хотя это программа ничего не делает, она будет компилироваться (попробуй обязательно!). Видишь внизу begin и end? Между ними мы будем вставлять операторы. Кроме того, мы добавим и данных. Программа заканчивается точкой.

Еще раз повторяю: это минимум объяснений, которого явно недостаточно. Посмотри учебник по этому поводу и задавай вопросы.

[Lapp]

Дон, я понял, что надо не так резко.
Начнем с самого простого и постараемся подобраться к программе, о которой шла речь.
Разбери в деталях вот эту прогу. Обязательно запускай все, что изучаешь! Старайся, чтоб не оставалось ничего непонятного. Читай, спрашивай, возвращайся к предыдущим постам...

var
  TOpen,TClose:real;

begin
  TOpen:=9;          {время открытия парикмахерской}
  TClose:=17;        {время закрытия}
  WriteLn;
  WriteLn('The Barber''s shop is open ',tOpen:4:2,' through ',tClose:4:2);
  ReadLn
end.

Успехов! Все зависит от твоего отношения..

PS
Я использую английский для печати в программе, так как правильный вывод русского - отдельная проблема. Если тебя это напрягает - можно перейти на русский латиницей. Комментарии можно писать по-русски, но будь все же аккуратен при копировании файлов..