нужна схема для турбо паскаля программа уже написана

[tanyalove]

помогите создать схему для следующей программы:11) Program TN;
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.

[tanyalove]

25)Program Tanya;
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]

gj;fkeqcnf

[Grag]

Сообщение от tanyalove

gj;fkeqcnf

Судя по раскладке клавы - тут имелось ввиду "пожалуйста"...

[ROMA2PVT]

tanyalove а уин дашь?

[IT-man]

tanyalove а уин дашь?

И окажется там какой-нить Ваня)

[ROMA2PVT]

И окажется там какой-нить Ваня)

Гы!Ну не знаю название прог Tanya.Фиг знает.