![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
![]()
. Дано действительное число а. Вычислить 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. |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 05.01.2007
Сообщений: 2
|
![]()
Program z1; var X,Y:real; begin WriteLN('Введите X'); ReadLN(X); Y:=1-abs(X); WriteLN('Ответ = ',y); end.
Мы те кто мы есть, и чуточку больше:)
|
![]() |
![]() |
#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
|
![]() |
![]() |
#4 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
![]()
спасибо!!! А что за uses crt;и clrscr;Допустим х=0 то выполняется 1-й или 3-й IF ?
![]() |
![]() |
![]() |
#5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
А это уже к вам вопрос. Где у вас интервалы включительны? Где не включительны? Вы уж обозначте. А то в этом случае во-втором интервале - решения нет!
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
![]()
Я так понимаю, что и в первом и во втором IF интервал X=0 включен, а при х=1,5 должен выполняться второй If и вывод 0,5, а выводится 5,0000+,,,,это при Y: real, а при Y:integer вылетает ошибка!
ПОЧЕМУ Кто знает ? |
![]() |
![]() |
#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; ![]() ![]() П р о в е р е н о !
I like WPF
Последний раз редактировалось kommunist; 20.10.2007 в 09:13. |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
![]()
Я так понимаю, что и в первом и в ТРЕТЬЕМ IF интервал X=0 включен, извеняюсь, ошибся.
![]() |
![]() |
![]() |
#9 |
Регистрация: 11.11.2010
Сообщений: 3
|
![]() ![]() Дано действительное число А. Для функции F(X), график которой представлен на Рис 1. вычислить F(A). Помогите пожалуйста с решением в Pascal очень надо!!!Заранее спасибо! Последний раз редактировалось barok; 11.11.2010 в 06:24. |
![]() |
![]() |
#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 |