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.