Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 01.08.2020
Сообщений: 1
1

Задача на время в паскале

01.08.2020, 22:26. Просмотров 128. Ответов 1
Метки нет (Все метки)

Вообщем стоит следующая задача, есть время прихода человека на работу и продолжительность. Данные вводятся с клавиатуры. Используются только целые числа. Переменные отдельно для часов и минут. Надо написать программу максимально простую которая просумирует время с введенное в эти ячейки(часов и минут) и выдаст окончание рабочего дня.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.08.2020, 22:26
Ответы с готовыми решениями:

(C++) Поля структуры: № поезда, Время прибытия, Время отбытия, Направление, Расстояние. Задача: Вывести среднюю скорост
(C++) Поля структуры: № поезда, Время прибытия, Время отбытия, Направление, Расстояние. Задача:...

Установить текущие время и дату в паскале
помогите мне пожалуйста написать программу на паскале....... вот условие установить текущую...

Задача на паскале
Дано а, х, z. Если х + z не равно а, вычислить Y = arcsin(x) + tg(a/z) Если х – z = a, вычислить...

Задача в паскале

1
3737 / 1779 / 1963
Регистрация: 10.12.2014
Сообщений: 6,904
02.08.2020, 09:56 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
##
'Время прихода:'.Println;
var часПрихода := ReadlnInteger('часы:');
if Not часПрихода.inRange(0,23) then begin'часы могут быть только от 0 до 23'.Print;Halt;end;
var минутаПрихода := ReadlnInteger('минуты:');
if Not минутаПрихода.inRange(0,59) then begin'минуты могут быть только от 0 до 59'.Print;Halt;end;
'Продолжительность работы:'.Println;
var часРаботы := ReadlnInteger('часы:');
if Not часРаботы.inRange(0,23) then begin'часы могут быть только от 0 до 23'.Print;Halt;end;
var минутаРаботы := ReadlnInteger('минуты:');
if Not минутаРаботы.inRange(0,59) then begin'минуты могут быть только от 0 до 59'.Print;Halt;end;
var t := ((часПрихода+часРаботы)*60+минутаПрихода+минутаРаботы)mod 1440;
$'Время окончания работы: {t div 60} час. {t mod 60} мин.'.Println;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.08.2020, 09:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Задача в Паскале
Задача состоит в следующем: Большее из трех чисел заменить суммой,меньшее-произведением,среднее-не...

Задача в паскале

Задача в паскале
Составиь программу на паскале для решения задачи: 1) С помощью линейного алгоритма, 2) Ветвления,...

Задача в паскале.
Необходимо придумать задачу с командой "повторить", записать для цикла с предусловием и...

Задача в Паскале
Напишите, пожалуйста, программу для данной задачи

Задача на паскале
Заранее спасибо за помощь с задачей.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.