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

Вопрос от пользователя

В первый час работы рабочий изготавливает а деталей, за каждый последующий час — на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы. Зафиксируйте свои действия на каждом из этапов решения задачи.

Ответ от эксперта

Первый этап
Исходные данные:
а — количество деталей за 1 час
d — количество деталей, на которое увеличилась выработка
Требуется найти:
S — количество деталей за К часов

Второй этап
Соотношения, связывающие исходные данные и результат:
S := (2a + d*(K-1))2 * K

Третий этап
Блок-схема:

Четвертый этап
program z67;
var a, d, K: integer; s: real;
BEGIN
write (‘Введите количество деталей за 1 час: ‘);
readln (a);
write (‘Введите количество деталей, на которое увеличилась выработка: ‘);
readln (d);
write (‘Введите время работы рабочего: ‘);
readln (K);
S := (2*a + d*(K-1))/2 * K;
writeln (‘Рабочий изготовил за ‘, K , ‘ часов ‘, S , ‘ деталь(-ей)’);
END.