Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..100] of real; i,n: integer;
t: real; begin randomize; n: =20; for i: = 1 to n do begin a[i]: =random(n*10)- 10*n div 2 ; write(a[i]: 4); if i mod 10=0 then writeln; end;
t: =a[1]
for i: = 1 to n do begin a[i]: =a[i]/t ; write(a[i]: 4); if i mod 10=0 then writeln; end; end.
используем рекурентную формулу, чтобы программу
а[n+1]=1/4
a[n]=1/2
t=(1/4)/(1/2)=1/2
a[n+1]=a[n]*1/2
program;
var n: integer; abs,s,a: real;
begin
a: =1;
eps: =1;
s: =1;
repeat
a: =a*1/2;
abs: =abs(a);
s: =s+a;
until abs< 0.001;
writeln(s);
end;
рождения 30.05.95
300
Популярные вопросы