Помогите решить задачу

[Dialon]

теперь в строчке else writen ('ошибка ввода') пишет eror 89: ')' expected. Вроде все набрано правильно

[Last]

я копировал код в документ.pas(открыв его блокнотом), добавил строчку uses crt; и у меня всё заработало... хз как Вы запускаете

[Dark_Spirit]

теперь в строчке else writen ('ошибка ввода') пишет eror 89: ')' expected. Вроде все набрано правильно

если вы копировали из программы, то тут ошибка "else writen" нужно так else writeln.....

[Dialon]

спасибо огромное все разобрался

[Dialon]

а для чего здесь Abs объясните неучу. if ((1-4*sqr(x)*sqr(x)*sqr(x))<>0)and (abs(2*sqr(x)*x)<=1) then. Вроде область определения arctg это R

[alex_fcsm]

Сообщение от Dialon

y=arctan(2*exp(3*ln(x)))sgrt(1-4*exp(6*ln(x))), а область определения будет [-1;1]

Посмотрел что вы написали. Действительно строку с abs нужно удалить

Сообщение от Dialon

if ((1-4*sqr(x)*sqr(x)*sqr(x))<>0)

оставить

[Dialon]

спасибо за помощь

[Dialon]

это тогда получается вот так
const pi=3.14;
var x:real;

begin
read(x);
if ((1-4*sqr(x)*sqr(x)*sqr(x))<>0) then
writeln(pi/2 - arctan(2*sqr(x)*x)/(sqrt(1-4*sqr(x)*sqr(x)*sqr(x))))
else writeln('Ошибка ввода');
end.

[alex_fcsm]

Совершенно верно

[Сергей Попов]

Ребята,помогите решить ОЧЕНЬ простые задачи....нужно в школу для 7 класса, чем легче,тем лучше...
1.написать программу,выводящую два любых сообщения в левом верхнем и правом нижнем углах экрана.Сообщения выводить своим цветом!
2.написать программу,которая очищает экран и выводит слова red, green, blue, yellow каждое слово своим цветом в центр четвертей экрана.