Подсчет часов, минут, секунд в сутках

Прикладное программирование Программирование на Pascal Подсчет часов, минут, секунд в сутках

Помечено: 

  • В этой теме 0 ответов, 1 участник, последнее обновление 2 года, 6 месяцев назад сделано Васильев Владимир Сергеевич.
Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #4232
      @admin
      StudLance.ru

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

      Решение:
      Для начала необходимо считать введенное число (переменная day). Затем полученное число умножить на количество часов в одних сутках (24*day). Полученную величину умножить на количество минут в одном часу (60*hour), и умножить результат на количество секунд в одной минуте (60*min). После вычисления выводим полученные результаты.

      Uses Crt;
      Var day,hour,min,sec : extended;
      
      Begin
        ClrScr;
        Write('сут = ');
        Readln(day);
        hour:=24*day;
        min:=60*hour;
        sec:=60*min;
        Writeln('часов  : ',hour:0:0);
        Writeln('минут  : ',min:0:0);
        Writeln('секунд : ',sec:0:0);
        Readln
      End.

      StudLance.ru

Просмотр 0 веток ответов
  • Для ответа в этой теме необходимо авторизоваться.
×