Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Object Pascal: кроссплатформенные технологии > Доработки программы

Автор: Ura20007 18.11.2007, 13:58

Ребята помогите сделать чтобы epsilon была не const,а пользователь сам её вводил.Также небольшая проблемка с выводом результата(программа закрывается почему-то).

Код программы прикрепил.
Заранее спасибо за помощь.

Автор: digitech 18.11.2007, 15:02

Цитата(Ura20007 @ 18.11.2007, 13:58

)

Также небольшая проблемка с выводом результата(программа закрывается почему-то).

В конце программы перед END. напиши readln; - это приостановит программу.
А насчёт

Цитата(Ura20007 @ 18.11.2007, 13:58

)

сделать чтобы epsilon была не const,а пользователь сам её вводил.

я не знаю как это сделать, но вроде можно.

Автор: Ura20007 18.11.2007, 15:19

Надо убрать из констант и записать в var а дальше как то сделать чтобы пользователь водил как и X

Заранее спасибо за помощь.

Автор: volvo877 18.11.2007, 16:12

Цитата(Ura20007 @ 18.11.2007, 14:19

)

Надо убрать из констант и записать в var

Можно ничего ниоткуда не убирать... Типизированная константа - это та же переменная, только со стартовым значением, ее можно изменять. Просто добавь одну строку:

Код


...
   write('Eps = '); readln(epsilon); { <--- вот эту }
   write('Input X: ');
   readln(x);
...