в турбо паскале

[tanyalove]

люди помогите мне завтра сдавать, кому дала сделать не сделал, выручайте))))))))

[tanyalove]

люди помогите мне завтра сдавать, кому дала сделать не сделал, выручайте))))))))

[Филантроп]

1)

type Ta=array[1..11] of integer;
var a,b:Ta;
y:real;
i:integer;
function horner(x:Ta;x1:real):real;
var s:real;i:integer;
begin
s:=0;
for i:=11 downto 1 do
s:=s*x1+x[i];
horner:=s;
end;
begin
for i:= 1 to 11 do
a[i]:=i;
for i:=11 downto 1 do
b[i]:=i;
readln(y);
writeln('p1=',horner(a,y):6:2);
writeln('p2=',horner(b,y):6:2);
readln;
end.

2)

var x,dx,y:real;
begin
x:=-1;
while x<=3 do begin
if x<=2 then y:=1/(x*x+4*x-7)
else y:=x*x+4*x-7;
if y<0 then writeln('x=',x:6:2,'y=',y:6:2);
x:=x+0.25;
end;
readln;
end.

[tanyalove]

теперь схемы нужны))))))))))))

[Филантроп]

теперь схемы нужны))))))))))))

извините ничем помочь не могу!!!!!!!!!!!

[tanyalove]

Спсасибо большое, я пок ане куда не уходила.......... ты в контакте есть??????? вот туда напишу все благодарственные слова ели адресс кинешь))))))))))

[tanyalove]

теперь схемы нужны))))))))))))

[tanyalove]

Самые умные и красивые помогите мне пожалуйста, мне нужно нарисовать схемы)))))))))))))0 очень жду