Версия для печати темы

Автор: Lidroot 4.12.2006 3:56

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

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

Автор: klem4 4.12.2006 12:00

ну так получаешь текущий час и в зависимости от него выводишь сообщение, только по поводу 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 4.12.2006 22:17

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

Автор: klem4 4.12.2006 22:47

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

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

Автор: мисс_граффити 5.12.2006 0:03

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

Автор: Lidroot 5.12.2006 4:01

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

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

Автор: Archon 5.12.2006 4:25

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

Автор: Bokul 5.12.2006 4:31