Вычислить значение функции F(x)= 9-x, x>1.1 ; sin(3x)/(x^4+1), x< -1.1
---
program thunction;
var x:real;
begin
writeln('Введите Х);
read(x);
IF x>=1.1 THEN
begin
IF x=1.1 THEN writeln('Х не принадлежит данной функции') ELSE x:=9-x; writeln(x:6:2);
end
ELSE
begin
IF x<=-1.1 THEN
begin
IF x=-1.1 THEN writeln('Х не принадлежит данной функции') ELSE x:=(sin(3*x*Pi/180))/(sqr(sqr(x))+1); writeln(x:6:2);
end
ELSE writeln('Х не принадлежит данной функции');
end
end.
---
При проверке х= -1.1; x=1.1 Должен говорить, что Х не принадлежит, а выходит, что он начинает считать. Я уже и не понимаю как так. begin и end перепроверял. Сам конечно же завтра вечером еще раз проверю, но думал, может здесь ночные любители сидят.
---
Жалкое подобие блок-схемы
http://linkme.ufanet.ru/images/3ffc2e9be199b13035e256ea7e9a40a6.jpg
Примечание:
Master Sergius (Sergius Lord), а если все-таки будет 1.1 или -1.1, то программа подвиснет
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.