1. заданное целое число n найти сумму ряда var n,I,x: integer; a,s: real; begin



Дата17.10.2019
өлшемі18.73 Kb.
1.заданное целое число N найти сумму ряда

var n,i,x:integer;

a,s:real;



begin

read(n);


read(x);

s:=1;


for i:=1 to n do begin

a:=1/(i*x);

s:=s+a;

end;

writeln('s=',s);



end.

2. найти значение х, изменяющееся от 2 до 10 с шагом 0,5



var x,y:real;

begin

x:=2;


while (x>=2) and (x<=10) do

begin

y:=0.4*(x*x)-1/x;

writeln('x=',x,' ','y=',y);

x:=x+0.5;



end;

end.

3. найти значение n для натурального числа n

var k,i,n,s,summ:integer;

begin

writeln('vvedite n');

readln(n);

s:=1;


for i:=1 to n do

s:=s*i;


k:=i+s;

writeln(k);



end.

6. заданные переменные A и N найти произведение ряда



var a,n,i:integer;

c,b:real;



begin

readln(a,n);

b:=a*(a+1);

for i:=2 to n do

begin

b:=b*(a+i);



end;

writeln(b);



end.
8.

var x,y:real;

begin

x:=-2;


while (x>=-2)and(x<=2)do

begin

y:=sqr(x)-(7*x)+2;

writeln('kogda x=',x,' y=',y);

x:=x+0.4;



end;

end.

9. var

y,x:real;

begin

x:=-4;


while (x>=-4) and (x<=4) do

begin

y:=(x*x*x)-sqr(x)+(16*x)-43;

x:=x+0.5;

writeln('Pri x=',x,' znachenie y:=',y);



end;

end.

Достарыңызбен бөлісу:


©netref.ru 2019
әкімшілігінің қараңыз

    Басты бет