Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Разность времен Здравствуйте, уважаемые программисты! помогите пожалуйста с задачкой! условие задачи - Даны значения двух моментов времени, принадлежащих одним и тем же суткам: часы, минуты и секунды для каждого из моментов времени. Известно, что второй момент времени наступил не раньше первого. Определите, сколько секунд прошло между двумя моментами времени. Программа на вход получает три целых числа — часы,... https://www.cyberforum.ru/ pascalabc/ thread672454.html	Работа со строками Pascal ABC Помогите пожалуйста решить задачку. Дана непустая строка из строчных русских букв. Напечатать в алфавитном порядке все согласные буквы, не входящие в строку.
Pascal ABC Для введенного целого числа вычислите произведение его цифр https://www.cyberforum.ru/ pascalabc/ thread672437.html Для введенного целого числа вычислите произведение его цифр	Pascal ABC Какие ограничения накладывает на переменную указанных для нее тип? https://www.cyberforum.ru/ pascalabc/ thread672435.html Какие ограничения накладывает на переменную указанных для нее тип?
Pascal ABC Найдите все ошибки в написание указанных операторов: READLN(Y+1;X); WRITELN("ВВЕДИТЕ ЧИСЛО"=5); READLN(5);X:=7DIV2 ORD Y;	Pascal ABC Графические элементы в Паскаль абс https://www.cyberforum.ru/ pascalabc/ thread672431.html Всем привет. В моем колледже мы пропускаем графическую часть Паскаля, а мне хотелось бы самостоятельно это освоить для дальнейшего написания простеньких игр. Сразу говорю, не надо мне советовать другие языки для игр. Я прошу помощи конкретно по графике в паскале, а именно: литературу какую-нибудь, ссылки на сайты, где все подробно рассказывается. А так же хотелось бы узнать, что необходимо знать...
Pascal ABC Укажите последовательность выполнения операций в произвольном выражении при отсутствии скобок Укажите последовательность выполнения операций в произвольном выражении при отсутствии скобок https://www.cyberforum.ru/ pascalabc/ thread672428.html	Pascal ABC Дайте определение зарезервированного (служебного) слова языка Дайте определение зарезервированного (служебного) слова языка
Pascal ABC Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные https://www.cyberforum.ru/ pascalabc/ thread672391.html Разработать алгоритм в Паскале Сформировать массив чисел А, а затем из него получить новый массив В таким образом, чтобы в начале шли положительные элементы, потом нулевые и, наконец, отрицательные.	Pascal ABC Написать программу вычисления интеграла методом правых, левых и средних прямоугольников Написать программу вычисления интеграла методом правых, левых и средних прямоугольников. https://www.cyberforum.ru/ pascalabc/ thread672356.html
НОД для нормы матриц Pascal ABC Найти НОД для l1- нормы матриц: (44) и (44)	Pascal ABC Вычислить значение выражения Вычислить значения Y , соответствующие каждому значению X (Xn=<X=<Xk, шаг изменения Х равен dX) по формуле Y=(-e^cos(x)) - 1. Вычислить сумму положительных значений Y, произведение нулевых Y, количество отрицательных Y. https://www.cyberforum.ru/ pascalabc/ thread672320.html

sergei3ru

21 / 18 / 4

Регистрация: 07.04.2010

Сообщений: 806

С начала суток прошло n секунд. Выведите, что покажут часы - Pascal ABC - Ответ 3567822

16.10.2012, 17:40. Показов 9547. Ответов 5

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.

С начала суток прошло n секунд. Выведите, что покажут часы.

Вот примерное решение, но почему то не получается вот с этим, в примерах так...

Ввод Вывод
3602 1:00:02

129700 12:01:40

Pascal

program z1;
var n:longint;
    h,mm,ss:byte;
begin
read(n);
h:=n div 3600;
mm:=n mod 3600 div 60;
ss:=n mod 60;
write(h,':');
if mm<10 then write('0',mm,':')
else write(mm,':');
if ss<10 then write('0',ss)
else write(ss);
end.

Что здесь неправильно, подскажите, пожалуйста...

Добавлено через 1 час 50 минут
Вот здесь получше код

Pascal

program z1;
var
n, h, mm, ss:integer;
begin
readln(n);
ss:=n mod 60; {выделили число секунд}
n:=n div 60; {целое число минут}
mm:=n mod 60; {выделили число минут}
h:=(n div 60)mod 24; {и целое число часов}
write(' ', h);
if mm < 10 then write(':0', mm)
else write(':', mm);
if ss < 10 then write(':0', ss)
else  write(':', ss);
end.

Вернуться к обсуждению:
С начала суток прошло n секунд. Выведите, что покажут часы Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.10.2012, 17:40

Готовые ответы и решения:

С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последнего часа
С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последнего...

С начала суток прошло 100 000 секунд, сколько сейчас времени?
Племяша попросил написать, я со школьной программы ничего по паскалю не помню (сам на питоне...

С начала суток прошло n секунд. Найти количество полных минут, прошедших с последнего часа
С начала суток прошло n секунд. Найти количество полных минут, прошедших с последнего часа

Определить часы минуты и секунды прошедших с начала суток
Здравствуйте! Не могу додуматься как вычислить секунды,может кто подскажет?Вот код, который нашел в...

	16.10.2012, 17:40

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.10.2012, 17:40

Помогаю со студенческими работами здесь

Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько пол
помогите решить Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала...

С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последней минуты
21. С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала...

Идет k-я секунда суток. Определить полное количество часов и минут, прошедших от начала суток
Идет k-я секунда суток. Определить полное количество часов и минут, прошедших от начала суток.

С начала суток прошло n секунд. Выведите, что покажут часы
Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов,...

Наверх