Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Составить Паскаль-программу, позволяющую найти корень уравнения на заданном отрезке.

Автор: nice 26.05.2009 23:43

Составить Паскаль-программу, позволяющую найти корень уравнения на заданном отрезке.

0.6*3(в степени х) – 2.3*х-3=0 отрезок седержащий корень [2,3] любым методом кроме метода половинного деления

Автор: volvo 26.05.2009 23:48

Еще раз сказать? Меня не интересует, когда тебе надо это сдать, это твои проблемы, понимаешь? Здесь форум, который читают тысячи людей. Возможно. у кого-то и будет решение твоей проблемы, но с таким названием тема здесь не выживет... Потому что даже если сейчас и выживет, то ПОТОМ она не будет нужна никому... Кто будет заходить в тему с названием "помогите решить?!плизззз!очееень надо!"? А мусор нам зачем?

Решать, конечно, тебе, хочешь - продолжай штамповать темы с подобными названиями, закрываются они одним кликом мыши, если что... Но лучше - измени название, если нужна помощь...

Автор: Ozzя 27.05.2009 10:15

http://forum.pascal.net.ru/index.php?showtopic=3789

Автор: nice 27.05.2009 21:35

blink.gif я не понимаю в этом ничего,напишите решение задачи.....

Автор: Krjuger 27.05.2009 21:39

Девушка вам скинули ссылку на рабочие программы,берете копируете и подставляете свою функцию и свой отрезок,вам больше математика нужна,чем знание паскаля.

Автор: volvo 27.05.2009 21:40

Цитата
напишите решение задачи.....

Ага, щаз... По ссылке ходила? Что непонятного там может быть? Ставь свою функцию, свой интервал, и запускай программу. Что не получается - говори. Ответ "ничего" не принимается, говорю сразу...

Автор: nice 27.05.2009 23:08

Program p2;
uses crt;
function F(x:real):real;
var a,b:real;
begin
a:=0;
b:=1;
F:=0.6*3^x-2.3*x-3;
end;
function F(x:real):real;
var a,b:real;
begin
a:=0;
b:=1;
F1:=1.8*ln3-2.3;
end;
function Newton(x1,e:real):real;
var x2,c:real;
begin
x2:=x1;
repeat
c:=x2;
x2:=c-F( с )/F1( с );
until abs(x2-c)>0;
Newton:=x2;
end;
Var c,eps:real;
begin
clrscr;
write('vvedite na4alnoe priblizenoe=');
readln( с );
write('vvedite to4nost eps=');
readln(eps);
write('x',Newton(c,eps):0:5);
readln end.

так?

Автор: Krjuger 28.05.2009 0:01

Ну а ты попробуй запустить:)Если правильно считает то правильно,вот только меня немного настараживает

Код

x2:=c-F©/F1©;

Я таки символов в паскале не знаю.

Автор: volvo 28.05.2009 0:04

Это не в Паскале, это проблема с ( с ) без пробела, форум заменяет на знак Копирайта. Для этого и придумали подсветку, между прочим...

Добавлено через 2 мин.
По теме: нет, не так. В Паскале нет встроенной операции возведения в степень, это не Бейсик. В FAQ-е смотри (Общие вопросы по математике) о способах возведения в степень...

Автор: nice 30.05.2009 16:38

Блин она не работает... =(((((((((( norespect.gif wacko.gif

Автор: volvo 30.05.2009 17:15

Цитата
Блин она не работает...
Кто "она"? Я должен выйти в астрал, догадаться, что именно ты натворила, вернуться, и написать, как изменить? Приводи ПОЛНЫЙ текст программы, если сама не можешь справиться...

Автор: nice 30.05.2009 19:04

function F(x:real):real;

тут ему F не нравится

Добавлено через 4 мин.
F:=0.6*3^x-2.3*x-3;
и как это записанно тож не устраивает

Автор: volvo 30.05.2009 20:28

Я тебе сказал, что делать, для того, чтобы найти, КАК записывается возведение в степень на Паскале. Приложи уже хоть какие-то усилия, кроме ожидания, что все сделают за тебя...

+ к этому - два раза описывать функцию с одним и тем же именем - просто верх наивности (в Турбо Паскале)... Как компилятор должен разобраться, какую из них вызывать?

Автор: Krjuger 30.05.2009 20:31

Ну оно и будет ругаться

Цитата
0.6*3^x

Степень так задать в паскале нельзя,это не бейсик.Тебе надо все это записать через экспоненту.Напиши в поиске,чтоб узнать как это делается.

Автор: nice 31.05.2009 15:47

запускается,при вводе данных пишет

error 207:invalid floating point operation

Автор: Krjuger 31.05.2009 15:50

Ну а ты напиши,что ты исправила,что ты вводиш.Или мы догадаться должны?.

Автор: nice 31.05.2009 16:32

все я все исправила,она работает...спасиб...