Помогите пожалуйста!!Буду очень сильно благодарен!!
На языке PascalABC.Net или TurboPascal:
1) Разработать программу циклической структурой,используя цикл с параметром.
Дано действительное число х, натуральное число n. Написать программу, которая вычисляет сумму последовательности, заданной формулы x^1/1!+x^2/2!+x^3/3!+...+x^n/n!
2) Разработать программу циклической структурой в соответствии с предложенным вариантом, используя цикл с предусловием. Дано действительное число х, натуральное число n. Написать программу, которая вычисляет сумму последовательности, заданной формулы x^1/1!+x^2/2!+x^3/3!+...+x^n/n!
3)Определить значение z = max (a, 2b) • max (2a-b, b),где max (x, y) есть максимальное из чисел х, у. При peшении задачи определить и использовать функцию max.Выполнить отладку программы с заходом в каждую из подпрограмм.
На языке PascalABC.Net или TurboPascal:
1) Разработать программу циклической структурой,используя цикл с параметром.
Дано действительное число х, натуральное число n. Написать программу, которая вычисляет сумму последовательности, заданной формулы x^1/1!+x^2/2!+x^3/3!+...+x^n/n!
2) Разработать программу циклической структурой в соответствии с предложенным вариантом, используя цикл с предусловием. Дано действительное число х, натуральное число n. Написать программу, которая вычисляет сумму последовательности, заданной формулы x^1/1!+x^2/2!+x^3/3!+...+x^n/n!
3)Определить значение z = max (a, 2b) • max (2a-b, b),где max (x, y) есть максимальное из чисел х, у. При peшении задачи определить и использовать функцию max.Выполнить отладку программы с заходом в каждую из подпрограмм.
More Questions From This User See All
Answers & Comments
Verified answer
//Pascal ABC.NET 3.1 сборка 1219//1
Var
n,i:integer;
x,y:real;
function fact(x:integer):int64;
begin
if x>1 then fact:=fact(x-1)*x else fact:=1;
end;
begin
read(x,n);
i:=1;
n:=n+1;
repeat
y:=y+power(x,i)/fact(i);
inc(i);
until n=i;
writeln(y);
end.
//2
Var
n,i:integer;
x,y:real;
function fact(x:integer):int64;
begin
if x>1 then fact:=fact(x-1)*x else fact:=1;
end;
begin
read(x,n);
i:=1;
n:=n+1;
while i<>n do
begin
y:=y+power(x,i)/fact(i);
inc(i);
end;
writeln(y);
end.
//3
Var
a,b,z:integer;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
begin
read(a,b);
z:=max(a,2*b)*max(2*a-b,b);
writeln(z);
end.