кто решит по ТурбоПаскаль?

[Mr. Indigo]

пожалуйста сильно не бейте, очень очень нужно решить задачу на турбо паскале.
Квадратное уравнение, полностью расписать его.

y=x(в квадрате) - (х-5)

[ele_krasno]

Мда. Нашел на паскале в инете.

Код: [Выделить]

uses Crt;
var x,eps,a,b,x1,c:real;
function F(x:real):real;
begin
f:=x*x-x+5;{Ваша функция}
end;
 
function F1(x:real):real;
begin
F1:=2*x-1; {первая производная для Ньютона}
end;
 
function Newton(x1,e:real):real;{метод Ньютона}
var x2,b:real;
begin
x2:=x1;
repeat
b:=x2;
x2:=b-F(b)/F1(b);
until abs(x2-b)<e;
Newton:=x2;
end;

Длиннее не было?

[Koshmarny]

а у меня работает 

а про то что смишно: каждый хочет показать мега знания кодинга  и я туда же 

[Mr. Indigo]

метод ньютона не катит )))
дайте плиз закончить прогу! )) че она закрывается-то? а?

[ele_krasno]

а у меня работает 

а про то что смишно: каждый хочет показать мега знания кодинга  и я туда же 

Какие там мега-знания кодинга - ЭПИ МИСиС 1-й курс - вся программа.

[Koshmarny]

Какие там мега-знания кодинга - ЭПИ МИСиС 1-й курс - вся программа.

я к тому и говорю)) а у автора топика прога так и не пашет

[Hitokiri_Rid]

Мда. Раз не катит, значет не катит.
Еще раз спрашиваю. Вам нужно просто посчитать при разных иксах? Или решить уравнение? То что дали вам - просто считает игрек при разных иксах, значение которых с клавиатуры вводятся. Все. Ничего она не решает.

[ele_krasno]

я к тому и говорю)) а у автора топика прога так и не пашет

У меня значит пашет, а у автора топика не пашет...

[Mr. Indigo]

  ща попробую на 7.1 пускануть!
е...ны врот. какая у вас версия, а? )
7.0 - не катит! )) Винда СП3 )

[ele_krasno]

Мда. Раз не катит, значет не катит.
Еще раз спрашиваю. Вам нужно просто посчитать при разных иксах? Или решить уравнение? То что дали вам - просто считает игрек при разных иксах, значение которых с клавиатуры вводятся. Все. Ничего она не решает.

Тут нужно уравнение просто расписать на Паскале. Самое простое, что может быть. И углубляться в аналы глубины не нужно, у него тогда препод не примет.

[Koshmarny]

Мда. Раз не катит, значет не катит.
Еще раз спрашиваю. Вам нужно просто посчитать при разных иксах? Или решить уравнение? То что дали вам - просто считает игрек при разных иксах, значение которых с клавиатуры вводятся. Все. Ничего она не решает.

да этот вопрос уже третий раз возникает)) а автор так и не хочет ответить что ему конкретно нужно.

кстате концепт-вопрос. когда наконец уберут паскаль из программы обучения? хотя наверное он неоднократно поднимался...

[Snatch]

Ему нужно, что-бы после расчета окно программы не закрывалось...
Найдите как в этом паскале паузу делают.

[Koshmarny]

Ему нужно, что-бы после расчета окно программы не закрывалось...
Найдите как в этом паскале паузу делают.

я ж уже говорил

readln;

ставим перед end.

[Mr. Indigo]

я уже написал в 3 раз, уравнение было составлено, прога под него написана.
Нужно терь его скомпилировать!
Все ужо решено не над ничего расписывать.
Проблема терь в том - что он не хочет зараза НЕзакрываться 
кстать на 7.1 паскале ваще выдал Аксес Денайд  правда я пусканул ее на Виндовс Семь
А на ХР стоит 7.0.

[Koshmarny]

толи толстый троллинг, толи одно из двух 

предыдущее сообщение почитайте - сделайте что там написано и не будет у Вас закрываться прога сразу

[Digger]

смотри после слова program после ; обязательно надо uses crt;
потом перед end. пишешь ReadKey;

[Snatch]

я ж уже говорил

readln;

ставим перед end.

Наверное, так:
........
stop;
end

[Mr. Indigo]

я уже даже скачал неполенился 7.1 на винду СП3 )) и чего? тоже самое, закрывается.
Значит толстый троллинг. 
че делать-та?
Одну минуту.

http://files.mail.ru/D9MSK1

вот код проги, и сама скомпилированная, тока что на 7.1 версии )) проверьте, у вас идет?

[Mr. Indigo]

Диггер молоток! ))) Вот после его слов все и заработало! шпашиба! 
Всем огромаднейшее чилавеческое спасиба!
выкладываю рабочуюю прогу 

http://files.mail.ru/QFDOFE

[Koshmarny]

кто ж знал что скомпиленная прога по другому себя ведет
прикольна, честно - не знал 

[Digger]

Рад, что получилось. Чтоб отыскать пришлось лекции 3-х годичной давности рыскать