Упр.83 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)

Рассмотрим вариант решения задания из учебника Босова 9 класс, Бином:

83. 0т острова Буяна до царства славного Салтана месяц (30 дней) пути. Капитан корабля записывает в вахтенный журнал количество миль, пройденных за день. Составьте блок-схему алгоритма для определения, в какую из трех десятидневок пройден больший путь. Напишите соответствующую программу на языке Паскаль.

Решение:

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

В нижеприведенном решении массив не используется.

Условные обозначения:

i – текущий день;

p1 – путь, пройденный за текущий день;

pd1 – путь, пройденный за 1-ю десятидневку;

pd2 – путь, пройденный за 2-ю десятидневку;

pd3 – путь, пройденный за 3-ю десятидневку;

max – максимальный путь, пройденный за десятидневку.

n – номер десятидневки.

program Z_83;

var

p1, max, n: integer;

i, pd1, pd2, pd3: integer;

begin

pd1 := 0; pd2 := 0; pd3 := 0;

for i := 1 to 30 do

begin

write('Введи путь, пройденный за ',i,' день> ');

readln(p1);

if i < 11 then pd1 := pd1 + p1;

if (i > 10) and (i < 21) then pd2 := pd2 + p1;

if i > 20 then pd3 := pd3 + p1

end;

max := pd1; n := 1;

if pd2 > max then begin max := pd2; n := 2 end;

if pd3 > max then begin max := pd3; n := 3 end;

writeln('Больший путь пройдет в ', n, ' десятидневку ');

end.