Информатика

Панько

22 марта, 15:05

В чем смысл ошибки?

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.