Помогите пожалуйста!!Буду очень сильно благодарен!! ** языке PascalABC.Net или...

Question

Помогите пожалуйста!!Буду очень сильно благодарен!!
На языке 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.Выполнить отладку программы с заходом в каждую из подпрограмм.

Answer 1

//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.

Comments

Спасибо большое)

---

Не за что. Отформатировал.

---

Спасибо еще раз