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
Помогите написать прогу. мне дано условие:
но оно нифига не работает ... я не могу понять где я ошибся...:confused::confused::confused::confused:
Цитата:
По заданным коэффициентам уравнения прямой линии на плоскости (Ах + By + С = 0) должен вычисляться угол (в градусной мере, образуемый этой прямой с положительным направлением оси ОХ (полагается, что A не равно О, В не равно 0).
вот что я написал уже....
Код:
но оно нифига не работает ... я не могу понять где я ошибся...:confused::confused::confused::confused:
Оформляйте вопрос корректнее. Что значит "нифига не работает"? Ошибка компиляции, неправильный ответ, ошибка времени выполнения?
Ладно, попробую свои телепатические способности. Вроде бы в паскале после end перед else не ставится ; то есть код надо изменить так
Ладно, попробую свои телепатические способности. Вроде бы в паскале после end перед else не ставится ; то есть код надо изменить так
Код:
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.
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.
Цитата: az20110303
Оформляйте вопрос корректнее. Что значит "нифига не работает"? Ошибка компиляции, неправильный ответ, ошибка времени выполнения?
не работает она в плане того что я просто ввожу 3 значения и все... экран сразу гаснет ... будто бы уже все выполнилось .. .я пробовал уже по разному вводить ..даже чутка переделал код...
а насчет точки запятой вы были правы... не надо ставить ...
Код:
Program fina1l;
Uses crt;
Const
Text1='Lab Work # 1';
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',g);
readln;
end
end
End.
Uses crt;
Const
Text1='Lab Work # 1';
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',g);
readln;
end
end
End.
вот этот код компилится.. я ввожу А. В. С. и все... программа сразу завершается... я пробовал уже разные значения вводить ... ничего ((((
Пробуй выполнять пошагово (F8 вроде) и посмотри по какой ветке идет и где вылетает.
если бы поcле writeln не стоял readln то я бы предположил, что программа печатает результат и сразу завершается и вы не успеваете его увидеть. найдите пункт меню user screen, чтоб посмотреть последний вывод программы. мало ли, может мое предположение верно...