Составить алгоритм (блок-схема) и написать программу для решения задачи(Pascal)

[sadim]

Помогите с контрольной, я вообще чайник)))

10). Составить алгоритм (блок-схема) и написать программу для решения задачи.



Пусть , a0=1 и . Посчитать количество пар ak и bk, k=1,2,…,1000 сумма которых меньшее некоторого числа S. Вычисление ak и bk оформить в виде функций.

Отблагодарю кто поможет!! Кину денег на телефон!

[Mad_Cat]

вроде так

uses crt;
const n=10;
var X1,Y1:real;
s:real;
i:integer;
c:integer;
Function A (k:integer;x:real;y:real):real;
begin
if k=0 then A:=1
else A:=(sqr(x)+3*x-y)/(a(k-1,x,y)*sin(k*x)+exp(k*y))
end;
Function B (k:integer;x:real):real;
begin
if k*x<2 then b:=x+4*k
else if k*x=2 then b:=sqr(x)-3*k*x+6
else b:=k*x*x*x-1
end;
begin
write('X=');readln(x1);
write('y=');readln(y1);
write('S=');readln(s);
c:=0;
for i:=1 to n do begin
if a(i,x1,y1)+b(i,x1)< s then c:=c+1;
end;
Writeln('count=',c);
readln;
end.

[sadim]

Оо класс спасибо)) сейчас посмотрю, а что в аське не отвечаешь?