IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Переделать исходник под задание.
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 222
Пол: Мужской
Реальное имя: Andrew

Репутация: -  0  +


Сразу скажу,задача нужна не мне.Я лишь посредник.
Вычислить значение у на отрезке (а,b) с шагом h.
функция :
Y= x+a/x-a при x>b
Ln(x-a) при x<=b.
как видно,фунция задана не верно.Автор задания предложил :

возьми интервал не ab, а какой-нить cd, то б,которое в условии не влияет на интервал! просто поменяй буквы в интервале."

Исходник похожей задачи :

Program ex2;
{Вычислить значение у на отрезке (а,b) с шагом h}
{uses crt;}
const b=2;
var y: real;
a,c,x,h:integer;
begin
{clrscr;}
writeln ('Input a,h,b,c');
readln(a,h,c);
x:=a;
while x<c do
begin
if x>b then
begin
if x>0 then
begin
if (ln(x)-x)>=0 then

begin y:=SQRT(ln(x)-x);
writeln('y:=',y:4:4, 'x:',x:4);
end
else writeln('Fynkciya ne opredelena')
end

else writeln ('funkciya ne opredelena')
end
else
if (x*x-1)<>0 then
begin y:=x/(x*x-1);
writeln('y:=',y:4:4, 'x:',x:4);
end
else writeln ('funkciya ne opredeena');
x:=x+h
end;
readln;
end.


Я прощу помощи здесь,не только потому что самому щас некогда писать,а потом..потому что другу надо срочно,а я защиваюсь с электроникой..Возможно вознаграждение в ВМР..

Сообщение отредактировано: Andrewshkovskii -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Если запись (a, b) подразумевает что a&b НЕ входят в отрезок, и шаг положительный, то попробуй посмотреть это:
const
b = 2;
eps = 1;
var
a, c, x, h : integer;
begin
writeln ('Input a,h,c');
readln(a,h,c);
x := a + eps;
while x < c do begin
if (x > b) then writeln( 'x=',x, #9, 'y=', (x+a)/(x-a):4:4)
else writeln('x=',x, #9, 'y=', ln(x-a) :4:4);
x := x + h;
end;
end.

если все же входит, то в точке a функция не опреднленна.

Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 20:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name