Сильно на языке 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.выполнить отладку программы с заходом в каждую из подпрограмм.
Josoy
1
31.07.2019 12:10
0
Другие вопросы по теме Информатика
jarinka2804
29.06.2019 09:40
UskovaV99
25.05.2020 17:05
vanab322
25.05.2020 17:05
kristin20
25.05.2020 17:04
elenazeleneckaya
25.05.2020 17:04
аня2938
25.05.2020 17:04
bajkovat7
25.05.2020 17:04
ktatka1
26.05.2020 17:06
tomikyrmash
07.09.2020 00:21
Популярные вопросы
- Запишите числа в развернутом виде 249563, 1025, 106,42679,5003289, 0.206,...
2 - Укажите строки, в которых все прилагательные одного разряда:достоин, европейский,...
2 - 1.В полдень с пристани отошел пароход со скоростью 20 км/ч. Через 3 часа...
3 - (a+b)^2=1 a^2+2ab+1 b^2 и (a+b)^2=a^2+2ab+b^2 разница этих выражений...
2 - N²O⁵+H²O=?Fe²O³+HClO⁴=?ZnO+Na²SO⁴=?Fe³O⁴+H²SO⁴=?...
3 - Найдите координаты точки С которая делит отрезок АВ в отношении три к четырем...
1 - Нервная система выполняет функцию Основу нервной системы составляют нервные...
3 - Математики 4-класс решит уравнение (134545-x)+23=982002+x*5=46022(x+52)÷7=70034000+x*1000=76000...
3 - Период колебаний математического маятника 1,884 с. Какова его длина?...
3 - Я ВАС ОЧЕНЬ бъясните, чем отличается значение прилагательных в данных словосочетаниях....
1
//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.