Информатика

Судип

12 октября, 23:03

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

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.