Задание №3

Лабораторная работа №3.

Тема: «Разработка, отладка и испытание простых циклических алгоритмов и программ с заданным числом повторений».

Цель работы: составление на языке Pascal программ с использованием цикла FOR.

Программные средства: система программирования ABC Pascal.

ЗАДАНИЕ №3

Составить программу для вычисления суммы:

1. Составим графическую схему алгоритма

Нет

Да

2. Составим таблицу соответствия

В исходной задаче	b	i	n	P	a
В программе	b	I	n	P	a
Тип	int	int	int	real	int

3. Составляем программу на языке Pascal

Program Lena;

Var

P: real;

i, a, b, n: integer;

begin

writeln ('Введите количество повторений цикла n=');

readln (n);

writeln ('Введите a,b');

readln (a,b);

P:=1;

For i:=1 to n do

P:=P*exp((i+0.1)*ln(a))*exp(i*ln(b));

writeln ('P=', P:7:3);

readln

end.