Program final;
Var
A,B,C,alf,z:real;
Begin
WriteLn('Vvedite zna4enie A, A='); Read(A);
WriteLn('Vvedite zna4enie B, B='); Read(B);
WriteLn('Vvedite zna4enie C, C='); Read(C);
If (A=0) and (B=0) then begin
WriteLn('oshibka peremennih');
readln;
end;
else begin
z:=(A/B)*(-1);
ArcTan(z);
WriteLn('Ygol raven ', z);
readln;
end;
End.
Линейный вычислительный процесс в Turbo Pascal
Здравствуйте. я только начал изучать Turbo pascal .... и вот столкнулся с такой проблемой... есть задача ... но алгоритм её решения я не могу понять ...:confused:
[HTML]По заданным коэффициентам уравнения прямой линии на плоскости (Ах + By + С = 0) должен вычисляться угол (в градусной мере, образуемый этой прямой с положительным направлением оси ОХ (полагается, что A не равно О, В не равно 0).[/HTML]
Пожалуйста помогите...
я в интернете почитал что tg α(альфа)= (-А/В) .... но это меня и смущает ... :(:(:(
[HTML]По заданным коэффициентам уравнения прямой линии на плоскости (Ах + By + С = 0) должен вычисляться угол (в градусной мере, образуемый этой прямой с положительным направлением оси ОХ (полагается, что A не равно О, В не равно 0).[/HTML]
Пожалуйста помогите...
я в интернете почитал что tg α(альфа)= (-А/В) .... но это меня и смущает ... :(:(:(
Избавлю от смущений. Дорого. Проверить пробовали?
да я сделал чтоб он считал... но даже не считает ничего ...
и оно нифига не работает ... я не могу понять где я ошибся...
Код:
и оно нифига не работает ... я не могу понять где я ошибся...
Цитата: WhiteDemon91
и оно нифига не работает ... я не могу понять где я ошибся...
ArcTan возвращает значение в радианах.
Цитата: hardcase
ArcTan возвращает значение в радианах.
Тогда не подскажите как мне правильно сделать???
Цитата: WhiteDemon91
Тогда не подскажите…
Такая хорошая просьба,ну так не хочется отказывать!..
На самом деле радианы переводятся в градусы и наоборот.Очень замечательно переводятся,напишу я вам!
Оу) чет реально я позабыл курс математики ....
на так в общем код правильный ?
у меня тут на оператор else ругается((( не знаю что делать...
на так в общем код правильный ?
Код:
Program fina1l;
Uses crt;
Const
Text1='Lab Work # X';
Text2='Student Groups';
Text3='FIO';
pi=3.14;
Var a,b,c,u,z,g:real;
Begin
Clrscr;
Textcolor(lightgreen);
WriteLn(Text1);
Textcolor(lightblue);
WriteLn(Text2);
Textcolor(lightmagenta);
WriteLn(Text3);
Textcolor(yellow);
WriteLn('Vvedite zna4enie A, A='); Read(a);
WriteLn('Vvedite zna4enie B, B='); Read(b);
WriteLn('Vvedite zna4enie C, C='); Read(c);
If (a=0) then
begin
textcolor(red);
WriteLn('oshibka peremennih');
readln;
end;
else
begin
if (b=0) then
begin
textcolor(red);
WriteLn('oshibka peremennih');
readln;
end;
else
begin
z:=(-1)*(a/b);
WriteLn('vi4eslim arctg ygla');
u:=arctan(z); { вычислим арктангенс угла в радианах }
g:=u*(180/pi); {переведем радианы в градусы}
WriteLn('ygol raven',u);
readnln;
end;
end;
End.
Uses crt;
Const
Text1='Lab Work # X';
Text2='Student Groups';
Text3='FIO';
pi=3.14;
Var a,b,c,u,z,g:real;
Begin
Clrscr;
Textcolor(lightgreen);
WriteLn(Text1);
Textcolor(lightblue);
WriteLn(Text2);
Textcolor(lightmagenta);
WriteLn(Text3);
Textcolor(yellow);
WriteLn('Vvedite zna4enie A, A='); Read(a);
WriteLn('Vvedite zna4enie B, B='); Read(b);
WriteLn('Vvedite zna4enie C, C='); Read(c);
If (a=0) then
begin
textcolor(red);
WriteLn('oshibka peremennih');
readln;
end;
else
begin
if (b=0) then
begin
textcolor(red);
WriteLn('oshibka peremennih');
readln;
end;
else
begin
z:=(-1)*(a/b);
WriteLn('vi4eslim arctg ygla');
u:=arctan(z); { вычислим арктангенс угла в радианах }
g:=u*(180/pi); {переведем радианы в градусы}
WriteLn('ygol raven',u);
readnln;
end;
end;
End.
у меня тут на оператор else ругается((( не знаю что делать...
эээм.. а может быть перед else не нужно точек-с-запятыми? вот интересный сайт: http://tpdn.ru/