10.45 даны первый член и разность арифметическое прогрессии. написать рекурсивную функцию для нахождения а) n-ого члена прогрессии. б) суммы первых n членов прогрессии.

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.

Код: procedure tform1.button1click(sender: tobject); var kolo,kolp,i,n: integer; a: array[1..1000] of integer; begin n: =memo1.lines.count; kolo: =0; kolp: =0; for i: =1 to n do   begin   a[i]: =strtoint(memo1.lines[i-1]);   if a[i]> 0 then kolp: =kolp+1;   if a[i]< 0 then kolo: =kolo+1;   end;   showmessage('количество положительных: '+inttostr(kolp));   showmessage('количество отрицательных: '+inttostr(kolo)); end;     оформление:

1) 110 (х сс) =30 (10сс) x^2+x-30=0 d=1+120=121    √d=11 x1=(-1+11)/2 =5                x2< 0 не удов. усл.         ответ 5 2)    ответ 8  ( так как большая цифра =7) 3) 100 (2сс) =1*2^2 +0*2^1+0*2^0 =4            ответ 4 4) 441 (x) +14 =252 (7cc) 4*x^2+4*x+1+14=2*7^2+5*7+2 4x²+4x+15=135 4x²+4x-120=0 d=16+120*16=1936      √d=44 x1=(-4+44)/8=5      x2< 0 неудов.  усл. 5(10сс) =101 (2сс)                      ответ 101