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

Задача

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

Подробный ответ

Суммируем путь, пройденный за каждый день, отдельно для трёх десятидневок:

первая десятидневка — дни с 1-го по 10-й;
вторая десятидневка — дни с 11-го по 20-й;
третья десятидневка — дни с 21-го по 30-й.

После этого сравниваем три суммы и определяем, в какой десятидневке путь наибольший.

Обозначим:

$$p1$$ — путь за текущий день;
$$pd1$$ — путь за 1-ю десятидневку;
$$pd2$$ — путь за 2-ю десятидневку;
$$pd3$$ — путь за 3-ю десятидневку;
$$max$$ — максимальный путь;
$$n$$ — номер десятидневки.

Алгоритм блок-схемы:

Обнулить $$pd1$$, $$pd2$$, $$pd3$$.
Для $$i$$ от 1 до 30 ввести $$p1$$.
Если $$i \le 10$$, прибавить $$p1$$ к $$pd1$$.
Если $$11 \le i \le 20$$, прибавить $$p1$$ к $$pd2$$.
Если $$21 \le i \le 30$$, прибавить $$p1$$ к $$pd3$$.
Сравнить $$pd1$$, $$pd2$$ и $$pd3$$, запомнить наибольшую сумму и номер десятидневки.

Программа на языке Pascal:

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.