Задать вопрос
21 августа, 11:50

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

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.

+5
Ответы (1)
  1. 21 августа, 13:31
    0
    Скорее всего '''var''' это ошибка или else writein по пробуй поменять на if writein
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В чем смысл ошибки? uses crt; var g:integer; x, y, z : real; Begin textbackground (0) ; textcolor (15) ; clrscr; readln (x, y) ; readln (g) ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы