Pascal ABC

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

Войти

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

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

Puporev

Почетный модератор

64288 / 47587 / 32739

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

Сообщений: 115,182

16.10.2012, 15:46

Разность времен - Pascal ABC - Ответ 3567806

16.10.2012, 15:46. Показов 6268. Ответов 1

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

Сообщение было отмечено Annetkaz как решение

Решение

Нужно правильно ввести и перевести в секунды, затем вычесь.
Проверяйте

Pascal

uses crt;
var h1,m1,s1,h2,m2,s2,rs:integer;
begin
repeat
writeln('Введите первое время, часы минуты секунды:');
readln(h1,m1,s1);
until(h1 in [0..23])and(m1 in [0..59])and(s1 in [0..59]);
repeat
writeln('Введите второе время,больше певого, часы минуты секунды:');
readln(h2,m2,s2);
until(h2 in [0..23])and(m2 in [0..59])and(s2 in [0..59])
and((h2>h1)or((h2=h1)and(m2>m1))or((h2=h1)and(m2=m1)and(s2>=s1)));
s2:=s2+m2*60+h2*3600;
s1:=s1+m1*60+h1*3600;
rs:=s2-s1;
write('Разница во времени составила ',rs,' секунд');
end.

Вернуться к обсуждению:
Разность времен Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.10.2012, 15:46

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

(Задача времен огромной инфляции)
2. Всю неделю бутылка чегонадо стоила К рублей, а пустая бутылка -L рублей. Компания собравшихся в...

Разность двух дат и времен
DateTime date1 = DateTime.Now; DateTime date2 = alarmTime; string...

Программа содержащая функции, ввода времён, печати времён, и логическая функция
Для структуры struct time { int s, m, h; }; time t1, t2; требуется написать программу,...

АС времен СССР
В советское время же должны были быть акустические системы. Как они выглядели, что из себя вообще...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

16.10.2012, 15:46

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

Сравнение времен вычислений
определить время, необходимое для вычисления функции/(л:) в 1000 точек, используя первоначальное...

Сумма двух времён
Доброго времени суток. Поиск в сети не дал нужной информации, обращаюсь за помощью к гуру. Имеются...

Вывести таблицу времен года
Создать приложение, которое выводит на экран следующую таблицу: ...

Древняя стрелялка времен Quake II
Добрый день пытаюсь вспомнить название игры, олдскульная стрелялка от первого лица. не помню,...

Наверх