Первый этап
Исходные данные:
а - количество деталей за 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.
Пятый этап
Протестируйте программу при следующих исходных данных:
Шестой этап
Выполните расчеты при a=15; d=3; K=8.
Результат: 204
Первый этап
Исходные данные:
а - количество деталей за 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.
Пятый этап
Протестируйте программу при следующих исходных данных:
Шестой этап
Выполните расчеты при a=15; d=3; K=8.
Результат: 204
