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

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

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

Задание 3

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

Program lab3_3;

Var

P,a,b:real;

i,n:integer;

begin

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

readln (N);

write ('Введите a=');

readln (a);

write ('Введите b=');

readln (b);

P:=1;

For i:=1 to n do

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

writeln ('Произведение равно=',p:7:3);

i=i+1

end.

Задание 4

Program lab3_4;

Var

sum,P1,s,a,p:real;

i,k,n:integer;

begin

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

readln (k);

write('Введите a=');

readln (a);

write('Введите p=');

readln(p);

P1:=1;

s:=0;

For n:=1 to 15 do

s:=s+exp((n+2)*ln(a))/n;

For i:=1 to k do

P1:=P1*(exp(a*ln(p))+exp(p*ln(a)));

sum:=s+p1;

writeln ('Сумма=',sum:7:3);

end.