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

[Дон]

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

[Дон]

TextColor(2);
Write('Парикмахерская');
TextColor(7);

Вот какая фигня...текст-то он окрасил...
Только вот когда я задаю Uses Crt; в начале программы,CTRL-Z у меня работать перестает..как они связаны?когда убираю Uses Crt; все прекрасно работает...

Hour,Min:integer;
Ziro:string[1];

Здесь все ясно.Задаем часы,минуты, и ноль...

Hour:=Trunc(t);
Min:=Round(Frac(t)*60);
if Min<10 then Ziro:='0' else Ziro:='';
WriteLn('Время ',t :2 :4,' соответствует ', Hour,':',Ziro,Min);

А это куда вставлять?

[Lapp]

когда я задаю Uses Crt; в начале программы,CTRL-Z у меня работать перестает..как они связаны?когда убираю Uses Crt; все прекрасно работает...

Что ж, поздравляю - ты сам отлично справился с диагностикой проблемы! это не так просто, можно и не обратить внимания на всякме там CRT..
Серьезно - CRT действительно, з@р@з@, переделывает стандартный ввод по-своему, и за это я ее не люблю. Когда я советовал тебе использовать этот модуль, я забыл, что мы работаем с EoF, извини.. Но вышло даже хорошо - ты набираешь опыт! .
Значица, так.. Сейчас я в другой твоей теме брошу ссылку на один простенький но крайне полезный документ. В Сети есть много его HTML-версий, но у них у всех битые связи. А этот хоть и не HTML, но, вроде, правильный - ты его скачай и распакуй.
Там зайди в приложение, описывающее модуль CRT. Мне кажется, этой информации тебе должно хватить, чтобы ты мог заставить Ctrl-Z снова заработать. Только замечу, что после этого тебя ждет другая неприятность - может перестать работать ReadLn (задержка в конце). Советую заменить его на ReadKey (это функция/процедура CRT, очень полезная сама по себе).

А это куда вставлять?

Ну, это не совсем вставлять.. Это я пример типа привел, как сделать вывод времени абстрактно. Ты как бы должен его переработать, взять из него необходимое, лишнее выбросить, что-то изменить - ну и вставить, куда нужно, тоже . Я в конце прошлого мессаджа намекал, что хорошо бы организовать этот вывод как процедуру или функцию - причем, функция (типа String), мне кажется, предпочтительнее. Если ты еще не разбирался с процедурами/функциями - самое время начать. Я сейчас не стану тебе спойлить удовольствие, но если не получится - в следующий раз разберем .