Корень, a*a+b*b=c*c;b=? Опции

[leone.incognito]

Народ помогите!
A*A+B*B=C*C
B*B=C*C-A*A
B=?????? (если корню из C*C-A*A то как его найти в Паскале?) Я серьёзно! Вот код:

A*A:=r*r-C*C (так"A*A:="нельзя)
A:=((r*r)-(C*C))mod A; (и так нельзя)

Как бы это смешно не было но я запутался

Сообщение отредактировано: leone.incognito - 11.09.2007 18:57

[klem4]

см. Хелп: Round, Trunc

[leone.incognito]

Короче вот прога:

Код

program v0_001;
uses crt, graph;
var
centerX, centerY, radius, corner, AandB, A, B, AOC, BAO, x, OAC, OC, AO, Ax, Ay, OACplusBAO, grdr, grmd:integer;
begin
grdr:=detect;
write('center:');write('x=');read (centerX);write('y=');readln (centerY);
writeln('radius=');readln (radius);
writeln('corner=');readln (corner);
InitGraph(grdr,grmd,'C:\Pascalbji');
if corner > 90 then halt
else
AandB:=180-corner;
A:=AandB mod 2;{узнаём угол А}
B:=AandB mod 2;{узнаём угол В}
OAC:=90-corner;{узнаём угол АОС}
BAO:=A-OAC;{узнаём угол ВОА}
x:=radius mod A; {x*OAC+x*BAO=radius;}
OC:=x*OAC;{узнаём ОС}
AO:=((radius*radius)-(OC*OC))mod AO;{a=(cc-bb)mod a}
Ax:=centerX-OC;Ay:=centerY+AO;{}
Line(Ax,Ay,centerX,centerY); {линия(x1;y1;x2;y2);}
Delay(1000);{задержка}
halt
end.

Исправте пожалуйста