end;
end;
begin
clrscr;
writeln('vvedi x,
n( kol-vo elementov ), E( |E|<1 )');
readln(x,n,e);
sum1:=1;
el:=1;
znam:=1;
for i:=1 to n-1
do
summa1(el,znam);
sum2:=1;
el:=1;
znam:=1;
for i:=1 to n-1
do
summa2(el,znam);
sum3:=1;
el:=1;
znam:=1; e1:=e/10;
for i:=1 to n-1
do
begin
znam:=znam*i;
el:=el*x/znam;
if el>e1 then
begin
sum3:=sum3-el;
k3:=k3+1;
end;
end;
writeln('summa
',n,' elementov= ',sum1:0:2);
writeln('summa
elementov ||>E= ',sum2:0:2,' kol-vo= ',k2);
writeln('summa
elementov >E1= ',sum3:0:2,' kol-vo= ',k3);
writeln;
if
sum1=exp(-x*ln(2.7)) then writeln('sum1=finkcii')
else
writeln('summa ',n,' elementov ne = zna4. funkcii ');
if
sum2=exp(-x*ln(2.7)) then writeln('sum2=finkcii')
else
writeln('summa elementov ||>E ne = zna4. funkcii');
if
sum3=exp(-x*ln(2.7)) then writeln('sum3=finkcii')
else
writeln('summa elementov >E1 ne = zna4. funkcii');
readln;
end.
Результат
-5.53 6 0.44
summa
6 elementov = 13.63
summa
elementov ||>e = 13.63 kol-vo = 5
summa
elementov > e1 = -17.54 kol-vo = 2
Задание 6.3 Заданы массивы B(5), H(8),
U(7), S(10). Составить программу определения минимальных,
максимальных элементов и их индексов с помощью подпрограммы.
