Question

Var sumsec:integer; var hour,min,sec:integer; l:integer; begin writeln ('Введите суммарное кол-во секунд'); readln (sumsec); l:=sumsec div 60; sec:=sumsec mod 60; hour:=l div 60; min:=l mod 60; writeln (sumsec, ' секунд - это'); writeln ( hour , 'час(а/ов) ', min , ' минут ' , sec , ' секунд '); end. Сделать данную программу с помощью процедуры

Answer 1

Var sumsec, hour, min, sec:integer;
procedure p(sumsec:integer; var hour,min,sec:integer);
var l:integer;
begin
l:=sumsec div 60;
sec:=sumsec mod 60;
hour:=l div 60;
min:=l mod 60;
end;
begin
writeln ('Введите суммарное кол-во секунд');
readln (sumsec);
p(sumsec,hour,min,sec);
writeln (sumsec, ' секунд - это');
writeln ( hour , ' час(а/ов) ', min , ' минут ' , sec , ' секунд ');
end.

Answer 2

Процедурный вариант данной программы выглядит следующим образом:

program ConvertSeconds;

procedure convertSecondsToTime(sumsec: integer);
var
  hour, min, sec, l: integer;
begin
  l := sumsec div 60;
  sec := sumsec mod 60;
  hour := l div 60;
  min := l mod 60;
  writeln(sumsec, ' секунд - это');
  writeln(hour, ' час(а/ов) ', min, ' минут ', sec, ' секунд');
end;

var
  sumsec: integer;

begin
  writeln('Введите суммарное кол-во секунд');
  readln(sumsec);
  convertSecondsToTime(sumsec);
end.

В данном процедурном варианте программа состоит из двух частей: процедуры `convertSecondsToTime` и основной программы.

Процедура `convertSecondsToTime` принимает один параметр `sumsec`, который представляет суммарное количество секунд. Внутри процедуры происходит расчет количества часов, минут и секунд на основе заданного количества секунд. Затем процедура выводит результаты расчета на экран.

В основной программе сначала пользователю предлагается ввести суммарное количество секунд. Затем вызывается процедура `convertSecondsToTime`, передавая ей введенное значение секунд. Процедура выполняет все необходимые расчеты и выводит результаты на экран.