В чем смысл ошибки?
uses crt;
var
g:integer;
x,y,z :real;
Begin
textbackground (0);
textcolor (15);
clrscr;
readln (x,y);
readln (g);
case g of
1: z:= (sin(x)*cos(x))/2;
-1: z:=2*x+x*y+0.5;
-2: z:=(2+sqr(cos)*x); : Нет перегруженной подпрограммы с такими типами параметров
else writeln ('1');
end;
Writeln (z);
readln
end.
В чем смысл ошибки?
uses crt;
var
g:integer;
x,y,z :real;
Begin
textbackground (0);
textcolor (15);
clrscr;
readln (x,y);
readln (g);
case g of
1: z:= (sin(x)*cos(x))/2;
-1: z:=2*x+x*y+0.5;
-2: z:=(2+sqr(cos)*x); : Нет перегруженной подпрограммы с такими типами параметров
else writeln ('1');
end;
Writeln (z);
readln
end.
uses crt;
var
g:integer;
x,y,z :real;
Begin
textbackground (0);
textcolor (15);
clrscr;
readln (x,y);
readln (g);
case g of
1: z:= (sin(x)*cos(x))/2;
-1: z:=2*x+x*y+0.5;
-2: z:=(2+sqr(cos)*x); : Нет перегруженной подпрограммы с такими типами параметров
else writeln ('1');
end;
Writeln (z);
readln
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Ошибка заключается в том, что в случае g = -2 выражение z:=(2+sqr(cos)*x); содержит ошибку. Функция sqr применяется к переменной cos, которая является функцией, а не числом, что вызывает ошибку. Нужно исправить это выражение, чтобы программа корректно компилировалась и работала.