IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Диалоговая программа связанная со временем
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


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

Народ объясните мне как она должна быть реализована? и я даже не представляю 8 диалогов связанных со временем smile.gif Поможите кто чем сможет... Заранее благодарю!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


Klem4 спасибо за код. Использую по назначению. smile.gif А вот с этими диалогами... Их же 8! Что писать? Какой именно диалог нужен? Может кто сталкивался с такими задачами?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


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

Спасибо за помощь Klem4 и мисс_граффити...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


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




--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Цитата

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

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


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.09.2020 7:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name