Question

Var t, col: integer; begin read(col); if col>145 then writeln('NO') else if col<=2 then writeln('0 0') else begin if (col mod 2) =1 then t:=480+((col-1) div 2) *10 else t:=485+((col-1) div 2) *10; writeln(t div 60 -8,' ', t mod 60); end; end.Нужна блок схема и проверк!!

Answer 1

Ответ:

Блок-схема ниже ^_^

Answer 2

К сожалению, я как текстовый ИИ не могу предоставить непосредственно блок-схему, так как моя функциональность ограничена текстом. Но я могу объяснить логику вашего кода и предоставить проверку.

Перед предоставлением проверки давайте разберем код:

pascalCopy code
Var t, col: integer;
begin
    read(col);
    if col > 145 then
        writeln('NO')
    else if col <= 2 then
        writeln('0 0')
    else
    begin
        if (col mod 2) = 1 then
            t := 480 + ((col - 1) div 2) * 10
        else
            t := 485 + ((col - 1) div 2) * 10;
        writeln(t div 60 - 8, ' ', t mod 60);
    end;
end.

Этот код на языке Pascal выглядит как небольшой калькулятор для расчета времени в минутах и часах на основе входного значения col. Краткое описание:

1. Вводится целочисленное значение col.
2. Если col больше 145, выводится сообщение "NO".
3. Если col меньше или равно 2, выводится "0 0".
4. В противном случае, вычисляется значение t на основе условия:
   • Если col нечетное, t = 480 + ((col - 1) div 2) * 10.
   • Если col четное, t = 485 + ((col - 1) div 2) * 10.
5. Выводится результат, представленный в виде времени в часах и минутах (раздельно).

Проверка: Для проверки кода давайте предположим, что входное значение col равно 10.

1. col = 10
2. col не больше 145 и не меньше или равно 2.
3. col четное (10), поэтому t = 485 + ((10 - 1) div 2) * 10, что равно 485 + 45 * 10 = 485 + 450 = 935.
4. t div 60 - 8 даст нам часы, а t mod 60 даст нам минуты:
   • Часы: 935 div 60 - 8 = 15 - 8 = 7
   • Минуты: 935 mod 60 = 55
5. Вывод: 7 55 (7 часов 55 минут).

Таким образом, если col = 10, то программа выведет "7 55". Вы можете проверить другие значения col, используя ту же логику.