program asd;
uses crt;
var x:integer;
begin
clrscr;
X:=0;
writeln('Gradus sin(x) cos(x) tg(x) ctg()');
while(x<=180)do
begin
case x of
0,180:writeln(x,'g ',sin(x):8:2,cos(x):8:2,sin(x)/cos(x):8:2,' nety');
90:writeln(x,'g ',sin(x):8:2,cos(x):8:2,' nety',(cos(x)/sin(x)):8:2);
else writeln(x,'g ',sin(x):8:2,cos(x):8:2,sin(x)/cos(x):8:2,(cos(x)/sin(x)):8:2);
end;
x:=x+10;
end;
readln;
end.
программа по циклическому алгоритму
Помогите пожайлуста написать программу по циклическому алгоритму.
Заранее спасибо.
Вывести на екран таблицу sіn(x),cos(x),tg(x),ctg(x) при изменении аргумента от 0° до 180° с шагом 10° . В программе предсказать невозможность вычесления tg(90°),ctg(0°),ctg(180°).
Заранее спасибо.
Вывести на екран таблицу sіn(x),cos(x),tg(x),ctg(x) при изменении аргумента от 0° до 180° с шагом 10° . В программе предсказать невозможность вычесления tg(90°),ctg(0°),ctg(180°).