Алгоритм вычисления значения функции f(n), где n – натуральное число, задан следующими соотношениями: f(1) = 4 f(n) = f(n–1) · f(n–1)+ f(n–1) · n + 5· n, при n > 1 чему равно значение функции f(3)?
Var n, m, sum: integer; begin sum : = 0; repeat writeln('введите числ с которого начинается ряд'); readln(n); writeln('введите число которым заканчивается ряд'); readln(m); until n< m; if odd(n) then n : = n + 1; if odd(m) then m : = m - 1; sum : = (n + m) * (m - n + 2) div 4; writeln('сумма чётных чисел натурального ряда: ', sum); end.
Uses crt; var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real; s:real; begin writeln('Введите х координаты вершин а и b'); readln(xa,xb); writeln('Введите y координаты вершин а и b'); readln(ya,yb); xab:=xb-xa; yab:=yb-ya; ab:=sqrt(xab*xab+yab*yab); writeln('Введите х координаты вершин а и с'); readln(xa,xc); writeln('Введите y координаты вершин а и c'); readln(ya,yc); xac:=xc-xa; yac:=yc-ya; ac:=sqrt(xac*xac+yac*yac); writeln('Введите х координаты вершин b и с'); readln(xb,xc); writeln('Введите y координаты вершин b и c'); readln(yb,yc); xbc:=xc-xb; yab:=yc-yb; bc:=sqrt(xbc*xbc+ybc*ybc); p:=(ab+bc+ac)/ 2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln(s); end.
F(2)=(F(1))²+2*F(1)+5*2=4²+2*4+10=34
F(3)=(F(2))²+3*F(2)+5*3=34²+34*3+15=1156+102+15=1273