|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.10.2007, 22:40 | #1 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
Дано действительное число а. Вычислить f(a) для функции f(x)
. Дано действительное число а. Вычислить f(a) для функции f(x)
f(X)=1-|X|, XE(-1,1) -1+X, XE(1,2) -1-X, XE(-2,1) мужики, как написать программу на паскале для вычисления функции , знакомый математик подсказал решение на листе, оно сверху, надо его описать в паскале т.е при Х принадлежащему от(-1,1),выполнить 1-|X| и тд.Спасибо за помощь!!! Последний раз редактировалось Artem1987; 17.10.2007 в 23:19. |
18.10.2007, 00:30 | #2 |
Новичок
Джуниор
Регистрация: 05.01.2007
Сообщений: 2
|
Program z1; var X,Y:real; begin WriteLN('Введите X'); ReadLN(X); Y:=1-abs(X); WriteLN('Ответ = ',y); end.
Мы те кто мы есть, и чуточку больше:)
|
18.10.2007, 08:14 | #3 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
program func;
uses crt; var x,y:integer; begin writeln('ââåäèòå x: '); readln(x); clrscr; if (-1<x) and (x<1) then y:=(1-abs(x)); begin if (1<x) and (x<2) then y:=-1+x; if (-2<x) and (x<1) then y:=-1-x ; writeln('y=',y); readln; end; end.
I like WPF
|
18.10.2007, 21:59 | #4 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
спасибо!!! А что за uses crt;и clrscr;Допустим х=0 то выполняется 1-й или 3-й IF ?
|
18.10.2007, 22:21 | #5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
А это уже к вам вопрос. Где у вас интервалы включительны? Где не включительны? Вы уж обозначте. А то в этом случае во-втором интервале - решения нет!
Life is too short, play more...
Как правильно задавать вопросы |
19.10.2007, 22:13 | #6 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
Я так понимаю, что и в первом и во втором IF интервал X=0 включен, а при х=1,5 должен выполняться второй If и вывод 0,5, а выводится 5,0000+,,,,это при Y: real, а при Y:integer вылетает ошибка!
ПОЧЕМУ Кто знает ? |
20.10.2007, 08:42 | #7 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
1)Слушай artem1987 я не понял как во втором интервале 0 может быть включеным когда там интервал от 1 до 2;
2) integer не прокатит потому что это целый тип, а 0ю5 далеко не целое число. 3)вот тебе код где все выводится правильно: program chisla; var x,y:real; begin writeln('vvedite x: '); readln(x); if (-1<x) and (x<1) then y:=(1-abs(x)); begin if (1<x) and (x<2) then y:=-1+x; if (-2<x) and (x<1) then y:=-1-x ; writeln('y=',y:2:2); readln; end; end. П р о в е р е н о !
I like WPF
Последний раз редактировалось kommunist; 20.10.2007 в 09:13. |
20.10.2007, 11:35 | #8 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
Я так понимаю, что и в первом и в ТРЕТЬЕМ IF интервал X=0 включен, извеняюсь, ошибся.
|
11.11.2010, 06:21 | #9 |
Регистрация: 11.11.2010
Сообщений: 3
|
Похожая задача
Дано действительное число А. Для функции F(X), график которой представлен на Рис 1. вычислить F(A). Помогите пожалуйста с решением в Pascal очень надо!!!Заранее спасибо! Последний раз редактировалось barok; 11.11.2010 в 06:24. |
11.11.2010, 07:14 | #10 |
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
Ну переделайте имеющуюся выше программу. Вам в зависимости от х нужно решать одно из трех уравнений:
В случае если х меньше нуля В случае если х больше нуля и меньше 4 В случаее если х больше 4-х
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вычислить по формуле с использованием функции или процедуры | St@FFord | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 10.06.2008 10:18 |
Найти и вывести все слова,у котоpых число гласных букв пpевышает число согласных. | Briz | Помощь студентам | 2 | 11.05.2008 00:56 |
Дано четырехзначное число, заданное в символьном виде, например, '1954'. Напечатать его текстом, например | gred | Помощь студентам | 13 | 31.03.2008 22:24 |
Число N, заменить одну из его цифр, чтобы получилось число, max близкое к некоторой степени двойки | urgu_st | Помощь студентам | 13 | 23.10.2007 09:14 |
Вычислить приближенное значение функции Бесселя | IsapS | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 17.01.2007 10:09 |