а почему такая нелюбовь к 10 минутам?! )
да и проще же так:
temp:=min; if temp >19 then temp := temp mod 10; case temp of 0,5..19 : s := ‘минут’; 1 : s := ‘минута’; 2..4 : s := ‘минуты’; end;
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,602
Serge_Bliznykov
Что-то я притормознул
Спасибо!
Регистрация: 07.12.2014
Сообщений: 2
Пример для минут. Для часов постарайтесь сделать самостоятельно.
uses sysutils; var t,s:string; temp,min,hour:integer; begin write(‘Введите время в формате чч:мм — ‘); readln(t); min:=strtoint(t[4]+t[5]); temp:=min; if temp >19 then temp := temp mod 10; case temp of 0,5..9,11..19 : s := ‘минут’; 1 : s := ‘минута’; 2..4 : s := ‘минуты’; end; writeln(min,’ ‘,s); readln; end.
А можете объяснить пожалуйста чуть подробней, что чему присваиваем? Просто не понимаю как выходит так что мы вправе вводить значение число:число(через двоеточие)
Последний раз редактировалось kollekcioner; 07.12.2014 в 14:40 .
Источник: www.programmersforum.ru
Pascal Полный курс с нуля за 4 часа
Паскаль написать программу которая переводит часы в минуты
Вопрос по информатике:
Напишите программу, переводящую время, указанное в
минутах, во время в часах и минутах.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 01.09.2015 08:59
- Информатика
- remove_red_eye 11141
- thumb_up 5
Ответы и объяснения 1
rerledim510
Var h,m:integer;
begin
write(‘Введите число минут: ‘);
readln(m);
h:=m div 60;
m:=m mod 60;
writeln(‘Час: ‘,h,’; мин: ‘,m);
end.
- 02.09.2015 22:52
- thumb_up 48
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Программирование на паскаль за 26 минут основы
Источник: online-otvet.ru
Как преобразовать секунды в часы-минуты-секунды
Задача 6.1.2.32
Дано натуральное число Т, которое представляет длительность прошедшего времени в секундах. Вывести данное значение длительности в часах, минутах и секундах в следующей форме: ЧЧ:ММ:СС, где ЧЧ — это часы, ММ — минуты, СС — секунды.
Довольно любопытная задача, которая на первый взгляд кажется простой. Однако новичкам с ней придётся помучиться. Кстати, прежде чем посмотреть моё решение, предлагаю сначала именно помучиться и попробовать решить задачу самостоятельно, потому как только так можно стать программистом.
Итак, давайте сначала поразмышляем над алгоритмом решения. Сразу уточню, что по условию задачи надо преобразовать секунды в формат ЧЧ:ММ:СС, то есть о количестве дней, месяцев, лет и т.п. речь не идёт. Отсюда принимаем, что количество секунд в нашем случае не может быть больше, чем количество секунд в сутках.
А теперь действия, которые надо выполнить для решения:
- Определить общее число минут (выполнить целое деление числа Т на 60).
- Вычислить количество секунд (вычесть из числа Т общее число минут, умноженное на 60).
- Определить число часов (выполнить целое деление количества минут на 60).
- Вычислить число минут.
Возможно, что-то осталось непонятным, но это что-то станет понятным при изучении примеров программ на Паскале и С++.
Решение задачи 6.1.2.32 на Паскале
program mytask; //**************************************************************** // КОНСТАНТЫ //**************************************************************** const MAX_TIME = 24 * 60 * 60; //Число секунд в сутках //**************************************************************** // ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ //**************************************************************** var ElapsedTime : WORD; H, M, S : DWORD; //**************************************************************** // ОСНОВНАЯ ПРОГРАММА //**************************************************************** begin Randomize; ElapsedTime := Random(MAX_TIME); WriteLn(‘Elapsed time in seconds : ‘, ElapsedTime); M := ElapsedTime div 60; //Общее число минут S := ElapsedTime — (M * 60); //Число секунд H := M div 60; //Число часов M := M — (H * 60); //Число минут WriteLn(‘Elapsed time as HH:MM:SS : ‘, H, ‘:’, M, ‘:’, S); WriteLn(‘The end. Press ENTER. ‘); ReadLn; end.
Решение задачи 6.1.2.32 на С++
#include #include #include //. Подключить этот модуль, если ругается на srand //******************************************************************* // КОНСТАНТЫ //******************************************************************* const long MAX_TIME = 24 * 60; //Число минут в сутках using namespace std; long ElapsedTime; long H, M, S; //******************************************************************* // ОСНОВНАЯ ПРОГРАММА //******************************************************************* int main(int argc, char *argv[]) < srand(time(0)); //Запустить генератор случайных чисел ElapsedTime = (rand() % MAX_TIME) * (rand() % 60); cout << «Elapsed time in seconds : » << ElapsedTime << endl; M = ElapsedTime / 60; //Общее число минут S = ElapsedTime — (M * 60); //Число секунд H = M / 60; //Число часов M = M — (H * 60); //Число минут cout
На рисунке также показан калькулятор, с помощью которого мы можем убедиться, что программа работает правильно.
ПРИМЕЧАНИЕ
Поскольку функция rand() в С++ обычно возвращает случайное число в заданном диапазоне, но не более 32767, то попытка указать, например, rand() % 80000 , приведёт к тому, что функция будет всегда возвращать число, близкое к 20000 (в моём случае), что является не очень “случайным” числом. Поэтому пришлось немного поизвращаться, чтобы число было действительно более-менее случайным.