Диалоговая программа связанная со временем Опции

[Lidroot]

Задача: Создать диалоговую программу, ответы которой связаны со временем. Например, на ввод пользователя "Hello" программа в зависимости от времени суток отвечает "Good Day", "Good Night"... Должно быть реализовано не менее 8 диалогов и по 2 варианта на ввод пользователя, выводящихся случайным образом.

Народ объясните мне как она должна быть реализована? и я даже не представляю 8 диалогов связанных со временем Поможите кто чем сможет... Заранее благодарю!

[klem4]

ну так получаешь текущий час и в зависимости от него выводишь сообщение, только по поводу 2-х вариантов я не очень понял ... Так?

uses Dos;

function GetCurrentHour: Word;
var
  h, m, s, ss: Word;
begin
  GetTime(h, m, s, ss);
  GetCurrentHour := h;
end;

var
  H: Word;
  A: Array [1..2, 0..1] of String = (
  ('Доброе утро', 'Good Morning'),
  ('Добрый день', 'Good Day')
  );

begin

  H := GetCurrentHour;

  if (H >= 7) and (H < 12) then
   writeln(A[1, Random(2)])
  else
   writeln(A[2, Random(2)]);

end.

[Lidroot]

Klem4 спасибо за код. Использую по назначению. А вот с этими диалогами... Их же 8! Что писать? Какой именно диалог нужен? Может кто сталкивался с такими задачами?

[klem4]

Ну так я тебе основной принцип показал, если он подходит, то добавиь еще фраз в массив и условий, например если текущее время > 17 часов, то кумпутер ответит тебе Good Evening если больше 21 часа то Good Nigth ну придумать можно чонить ...

Или моя идея не верна ?

[мисс_граффити]

8 и получается: доброе утро, день, вечер, ночь. На русском и английском.

[Lidroot]

Klem4 идея твоя верна! Ты на правильном пути Добавил еще варианты... посмотрим примет препод или нет. Вот такие задачи нынче пошли только если ее смысл поймешь - уже зачет ставить !

Спасибо за помощь Klem4 и мисс_граффити...

[Archon]

Я так понял, нужно восемь возможных вопросов(связанных с временем суток) и по 2 варианта ответа на них.
Примеры(на русском):
Привет! : "Добрый день", "Доброй ночи".
Который час : "Начало 8-ого", "9 часов доходит"
Не пора ли обедать : "Определённо, пора!", "Скорее ужинать "
Доброе утро! : "Утро доброе!", "Мужик, ты путаешь. Какое утро?"
Пойду гулять : "Пока!", "Куда? Ночь на дворе"
и тд

[Bokul]

Привет! : "Добрый день", "Доброй ночи".
Который час : "Начало 8-ого", "9 часов доходит"
Не пора ли обедать : "Определённо, пора!", "Скорее ужинать smile.gif"
Доброе утро! : "Утро доброе!", "Мужик, ты путаешь. Какое утро?"
Пойду гулять : "Пока!", "Куда? Ночь на дворе"
и тд

С таким творческим подходом, тему скоро придется переносить в "Свободное общение", или даже в "Творчество"...