Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
1 / 1 / 1
Регистрация: 27.09.2015
Сообщений: 69
1

Ввод времени суток в формате hh:mm с ограничением ввода

06.05.2016, 12:15. Показов 1747. Ответов 2
Метки нет (Все метки)

Ввод времени суток в формате hh:mm с ограничением ввода.
ввод кроме цифр блокируется(при нажатии буквы она не отображается на экране);
по нажатии enter читать время
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2016, 12:15
Ответы с готовыми решениями:

На ввод времени суток вывести соответствующее пожелание
Записать программу, которая на ввод времени суток выводит соответствующее по- желание доброго...

Программа, которая на ввод времени суток выводит соответствующее пожелание
Написать программу, которая на ввод времени суток выводит соответствующее пожелание доброго утра,...

Ввод времени в формате чч:мм
дана задача: путник двигался t1 часов со скоростью v1 км/ч, затем t2 часов - со скоростью v2 км/ч...

На ввод времени суток вывести соответствующие пожелания доброго утра, дня, вечера и спокойной ночи
Помогите! Сколько вожусь уже с этим кодом, никак не выходит то, что требуется в задании.. ...

2
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
06.05.2016, 18:19 2
Лучший ответ Сообщение было отмечено Чирикан как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses
    Crt;
type
    TMyTime = record
        hh, mm: String[2];
    end;
procedure InputNumb(var c: Char; const limit: Char);
begin
    repeat
        c := ReadKey();
    until (c in ['0'..limit]);
    Write(c);
end;
var
    time: TMyTime;
    c: Char;
begin
    time.hh := '  ';
    time.mm := '  ';
    Write('Input time (HH:MM): ');
    InputNumb(time.hh[1], '2');
    if (time.hh[1] = '2')
    then
        InputNumb(time.hh[2], '3')
    else
        InputNumb(time.hh[2], '9');
    Write(':');
    InputNumb(time.mm[1], '5'); InputNumb(time.mm[2], '9');
    WriteLn; Write('Press enter to continue...');
    repeat
        c := ReadKey();
    until (c = #13);
    WriteLn;
    WriteLn('Time is: ', time.hh, ':', time.mm);
end.
1
1 / 1 / 1
Регистрация: 27.09.2015
Сообщений: 69
08.05.2016, 14:10  [ТС] 3
что делает limit??

Добавлено через 5 минут
понял
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2016, 14:10

Ввод времени в нужном формате (TDateTimePicker)
По умолчанию TDateTimePicker сконфигурирован для облегчённого ввода нужной даты. Нужно чтобы в нём...

Ввод времени с клавиатуры в формате ЧЧ:ММ и обработка введенных данных
Добрый день. Помогите разобраться как в с++ ввести время в формате чч:мм с обязательным последующим...

Ввод чисел в формате integer и real с контролем правильности ввода
Товарищи, прошу вас помочь мне. Осталось 3 дня до сдачи сессии. а мне еще 2 задачи решить надо. Да...

Кнопка Ок с ограничением по времени
Здравствуйте. Возник вопрос: как сделать кнопку (ок) с ограничением по времени, то есть требуется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru