Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Нужно написать циклическое решение уравнения на паскале
Sinx+2cosx^2
______________
tgx

Ответ оставил Гость

Var
i,x1,x2:integer;
y:real;
begin
writeln(введите х нач и х конечное);
readln(x1,x2);
writeln(введите шаг для х);
readln(i);
while x1<=x2 do
    begin
         if sin(x1)/Cos(x1)<>0 then
              begin
                       y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));
                       writeln(x1:4,y:10:2);
              end;
            x1:=x1+i;
    end;
end.