Question

помогите исправить ошибку ,паскаль abc ошибка в восьмой строке
Program1.pas(8) : Нет перегруженной подпрограммы с такими типами параметров
Что это значит? И что не правильно?
program p1
var x,y:real;
begin
writeln('введите значение х ');
readln(x);
if x<=2 then y:=(3*(exp(sin(x))))*(sin(2*x))/(cos(2*x)) else
if(3 if(x>=6) then y:=((sqrt(abs((cos*cos)*x)+6)+(4)));  ТУТ ОШИБКА
writeln('при x=',x:6:3,'y=',y:6:2);
end.

Answer 1

У тебя после else идёт

if(3

а потом опять if. Убери лишнее. Не зная условия задачи, нельзя сказать точно, но видимо, там должно быть так:

if x<=2 then y:=(3*(exp(sin(x))))*(sin(2*x))/(cos(2*x))

  else

      if(x>=6) then y:=((sqrt(abs((cos*cos)*x)+6)+(4)));  

          else ТУТ ДОЛЖНО БЫТЬ ЗНАЧЕНИЕ Y ПРИ X БОЛЬШЕ 2, НО МЕНЬШЕ 6