1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая: x(2)=x(1)+1, x(3)=x(2)+2, ... x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp. Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer; begin kp:=1; for i:=1 to 10 do begin k:=kp+i-1; kp:=k; writeln(k:5, k*k:6, k*k*k:8); end; end.
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая: x(2)=x(1)+1, x(3)=x(2)+2, ... x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp. Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer; begin kp:=1; for i:=1 to 10 do begin k:=kp+i-1; kp:=k; writeln(k:5, k*k:6, k*k*k:8); end; end.
var xc,yc,m,x1,y1:integer;
x,y:real;
begin xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=yc div 2;
line(5,yc,getmaxX-5,yc);
line(xc-m,yc+3,xc-m,yc-3);
outtextXY(xc-m,yc+10,'-1');
outtextXY(xc+5,yc+10,'0');
line(xc+m,yc+3,xc+m,yc-3);
outtextXY(xc+m,yc+10,'1');
line(xc,5,xc,getmaxY-5);
line(xc-3,yc-m,xc+3,yc-m);
outtextXY(xc-10,yc-m,'1');
line(xc-3,yc+m,xc+3,yc+m);
outtextXY(xc-15,yc+m,'-1');
setcolor(12);
line(xc-m,yc,xc,yc-m);
line(xc,yc-m,xc+m,yc);
line(xc+m,yc,xc,yc+m);
line(xc,yc+m,xc-m,yc);
x:=-4;
while x<=4 do begin
y:=0.52*x+0.18;
x1:=xc+round(x*m);
y1:=yc-round(y*m);
putpixel(x1,y1,14);
x:=x+0.01;
end;
readln
end.