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; (и так нельзя)
Как бы это смешно не было но я запутался
Полная версия: Корень
Народ помогите!
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; (и так нельзя)
Как бы это смешно не было но я запутался
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; (и так нельзя)
Как бы это смешно не было но я запутался
Ты имел в виду просто нахождение квадратного корня (b := Sqrt(c * c - a * a)) или что-то другое? (смущает mod)
Да(Первое).Xds скажи пожалуйста с каким типом переменных его можно узнать(квадратный корень)?А то он мне что-то пишет "Type mismatch" хотя они все Integer.
возвращаемый результат - не целое число.
либо округляй, либо пользуйся типом real (или double...)
либо округляй, либо пользуйся типом real (или double...)
Спасибо.А как округлять,Мисс? 
см. Хелп: Round, Trunc
Короче вот прога:
Исправте пожалуйста
Код
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.
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.
Исправте пожалуйста
Если я правильно поняла, то вместо
p.s. а темка-то скорее в задачи идет, чем в математику))
AO:=((radius*radius)-(OC*OC))mod AO;
можно написать:AO:=sqrt(((radius*radius)-(OC*OC)))
, а чтоб программка не ругалась делаем AO: real, это если не кругляя.. или же
AO:=trunc(sqrt(((radius*radius)-(OC*OC))))
если округлять..p.s. а темка-то скорее в задачи идет, чем в математику))
Спасибо тебе,Айра!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.