Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Определение корней уравнения
Автор: alina 19.02.2005 21:11
Задача: Определение корней уравнения, т.е. нахождение отрезков содержащих единственный корень.
Надо составить программу для
Код
f:=x-3
То есть надо найти x.
В программе надо использовать:
if f(a+h)=0 then writeln(x:0:3);
и это:
if f(a)*f(a+h)<0 then writeln(a:0:3,' ,(a+h):0:3);
и ЭТО:
while a<=b do
Также надо использовать ещё и это:
a:=a+h;
Также надо использовать ещё и это:
function f(x:real):real;
begin
f:=x-3;
end;
Автор: klem4 19.02.2005 22:13
Ну вот же оно решение, я же показывал тебе!
Код
uses crt;
var a,b,h,x:real;
function f(x:real):real;
begin
f:=x-3;
end;
Begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('h=');readln(h);
x:=a;
while x<= (b+h/2) do
begin
if abs(f(x))<0.000001 then
writeln('x=',x:2:3);
if f(x)*f(x+h)<0.000001 then
writeln('x=',x:2:3,' ','x+h=',(x+h):2:3);
x:=x+h;
end;
readln;
End.
var a,b,h,x:real;
function f(x:real):real;
begin
f:=x-3;
end;
Begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('h=');readln(h);
x:=a;
while x<= (b+h/2) do
begin
if abs(f(x))<0.000001 then
writeln('x=',x:2:3);
if f(x)*f(x+h)<0.000001 then
writeln('x=',x:2:3,' ','x+h=',(x+h):2:3);
x:=x+h;
end;
readln;
End.
Автор: Altair 19.02.2005 22:49
я точно такую-же программу выслал ей... уже 2 раз....
Автор: alina 22.02.2005 19:11
Цитата(klem4 @ 19.02.05 18:13)
Ну вот же оно решение, я же показывал тебе!
Но Вы не использовали вот это:
Код
if f(a+h)=0 then writeln(x:0:3);
if f(a)*f(a+h)<0 then writeln(a:0:3,' ,(a+h):0:3);
while a<=b do
a:=a+h;
А мне нужна программа где будет использховано вот это всё!
Помогите пожалуйста!
:molitva: :molitva: :molitva: :molitva: :molitva: :molitva:
Автор: klem4 22.02.2005 19:16
А ЭТО ЧТО ?
Код
...
if abs(f(x))<0.000001 then
writeln('x=',x:2:3);
if f(x)*f(x+h)<0.000001 then
writeln('x=',x:2:3,' ','x+h=',(x+h):2:3);
x:=x+h;
...
Автор: volvo 22.02.2005 19:17
alina
Если
Цитата
мне нужна программа где будет использховано вот это всё!
, то переписывайте все, что написано в задании и пользуйтесь. Вам главное что? Чтобы все было использовано, или чтобы программа правильно работала?Вот это:
Код
if f(a+h)=0 then
стабильно работать не будет...
Автор: Altair 22.02.2005 19:49
Цитата
стабильно работать не будет...
Да уж... еще месяц назад я бы так не подумал
Автор: alina 22.02.2005 23:27
Цитата(volvo @ 22.02.05 15:17)
alina
Если , то переписывайте все, что написано в задании и пользуйтесь. Вам главное что? Чтобы все было использовано, или чтобы программа правильно работала?
Вот это:
Если , то переписывайте все, что написано в задании и пользуйтесь. Вам главное что? Чтобы все было использовано, или чтобы программа правильно работала?
Вот это:
Код
if f(a+h)=0 then
стабильно работать не будет...Да может быть Вы и правы, но нам преподаватель сказал что мы должны и пользовать все эти данные обязательно!!
Пожалуйста помогите!