В чем смысл оплошности?uses crt;var g:integer;x,y,z :real;Begin textbackground (0);

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

Задать свой вопрос
1 ответ

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

Игорь Робеснек
В смысле Var это ошибка? Как переменные без Var задать в прогу?
Timur Vargulevich
Else вообще ни на что не оказывает влияние.
Ангелина Биневич
Нет var когда я веб-сайт помогал другу делать была ошибка VAR и мы ее поменяли на иное что-то
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт