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

Решение #1

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

Рассмотрим вариант решения задания из учебника Босова 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.
*Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением

Похожие решебники