Question

В чем смысл ошибки? 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.

Answer 1

Скорее всего ```var``` это ошибка или else writein по пробуй поменять на if writein

Answer 2

Данный код содержит несколько ошибок:

1. Ошибка в объявлении переменных: в строке "var g:integer; x,y,z+:real;" после переменной "z" присутствует лишний символ "+".

2. Ошибка в использовании функций из модуля crt: в строке "textbackground+(0); textcolor+(15); clrscr;" после названия функций присутствует лишний символ "+".

3. Ошибка в чтении значений переменных: в строке "readln+(x,y);" и "readln+(g);" после функций readln присутствует лишний символ "+".

4. Ошибка в использовании функции sin: в строке "z:= (sin(x)*cos(x))/2;" должно быть "z:= (sin(x)*cos(y))/2;", так как в задаче нет указания на использование переменной "y".

5. Ошибка в использовании функции cos: в строке "z:= (2+sqr(cos)*x);" должно быть "z:= (2+sqr(cos(x))*x);", так как функция cos принимает аргумент в скобках.

6. Ошибка в использовании функции writeln: в строке "writeln ('1');" после функции writeln присутствует лишний символ "+".

7. Ошибка в использовании функции readln: в строке "readln end." после функции readln присутствует лишний символ "+".

Итоговый исправленный код:

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(y)) / 2; -1: z := 2 * x + x * y + 0.5; -2: z := (2 + sqr(cos(x))) * x; else writeln('Нет перегруженной подпрограммы с такими типами параметров'); end; Writeln(z); readln; end.