Top.Mail.Ru
Ответы
Аватар пользователя
11лет
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+3

Есть вопрос: Паскаль ругается и выдает ошибку в программе что делать


var

a,b,x,y,w,z,p: extended;

begin

writeln('Vvedite znacheniya peremennikh a,b,x');

read(a,b,x);

writeln('Ishodnie dannie:');

writeln('a=',a:5:2,'b=',b:5:2,'x=',x:6:3);

w:=p*b*cos(x);

if w<0 then

writeln('argument kornya<0')

else

begin

z:=a*sin^2(x)+sqrt(w);

if x>4,2 then

y:=(a*x+1)^2+b*x^2

else y:=sqr(a)*sqr(x)+2*a*x+z;

writeln('y=',y:8:3);

end;

writeln(Programma vipolnena. Nazhmite ENTER');readln

end.

По дате
По рейтингу
Аватар пользователя
Новичок
11лет

Что делать:
для начала смотреть на какую строчку и как ругается.
потом смотреть что в самой этой строчке неправильно и что за ошибка может наследоваться из предидущих строк

А уж если не удалось отловить и подправить бяку, то в вопросе указывать не только код, а то как ругается. и какая версия паскаля ругается.
(в коде пачка ошибок, не зная какая версия непонятно на что начинает ругаться сначала)

Аватар пользователя
Мыслитель
11лет

Как ругается? Нах..й посылает?

Ну Вы бы хоть строчку указывали, на которую ругается компилятор...

1. Зачем extended, когда есть real и double?
2. Зачем Вы пишете sin^2? Темс более, Вы знаете функцию sqr().
3. Дробные числа в коде записываются через точку, а не запятую.
4. В предпоследней строке левую одинарную кавычку забыли.

Аватар пользователя
Мыслитель
8лет

Что делать:
для начала смотреть на какую строчку и как ругается.
потом смотреть что в самой этой строчке неправильно и что за ошибка может наследоваться из предидущих строк

А уж если не удалось отловить и подправить бяку, то в вопросе указывать не только код, а то как ругается. и какая версия паскаля ругается.
(в коде пачка ошибок, не зная какая версия непонятно на что начинает ругаться сначала)

Аватар пользователя
Высший разум
11лет

В Паскале нет знака степени ^.
sqr(sin(x))
sqr(a*x+1)

Аватар пользователя
Мыслитель
11лет

Код ты скинул, а ошибку то скинешь?