Расчет по формуле по данным из текстового файла

[CrOsP]

Здравствуйте , возникла проблема .
Нужно реализовать подсчет по формуле , а данные брать из текстового файла .
Ранее я уже делал расчет по этой формуле но брал данные из едитов .
Все работало на отлично .
А сейчас пробую считать данные из файла и посчитать по формуле . Уже выдает ошибку Invalid Floating Point ...
Коды идентичные ...
Подскажите пожалуйста по чему не работает .
Если убрать корень квадратный из формулы , то работает .

procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer; x,y:real; s:string;
a,x0,step,xmax:real;
b:integer;
begin
memo1.Clear;
a:=StrToFloat(Edit1.Text);
x0:=StrToFloat(Edit3.Text);
xMax:=StrToFloat(Edit5.Text);
step:=strToFloat(Edit4.Text);
b:=StrToInt(Edit2.Text);
//Вычисление номера последней строки таблицы
k:=round((xMax-x0)/step);
//Создания заголовка таблицы
s:=format('%10s %10s',['x','y']);
memo1.Lines.Append(s);
//Цикл форматирования строк таблицы
for i:=0 to k do
x:=x0+step*i;//Очередное значение х
y:=a*sqr(x)*x-b*sin(x)+sqrt(b*Cos(x)/a);
s:=format('%10.2f %10.2f',[x,y]);
memo1.Lines.Append(s);
end;

procedure TForm1.btnCalcFormulaClick(Sender: TObject);
var i,k:integer;step:real; x,y:real;a,x0,xmax:real;b:real;
begin
  Reset(f1);   Rewrite(f2);
  read(f1,a,b,x0,xmax,step);
  k:=round((xMax-x0)/step);
  writeln(f2,'a=',a:2:2,' b=',b:2,' x0=',x0:2:2,' xmax=',xmax:2:2);
  ShowMessage(FloatToStr(a));
  ShowMessage(FloatToStr(b));
  ShowMessage(FloatToStr(x0));
  ShowMessage(FloatToStr(xmax));
  ShowMessage(FloatToStr(step));
 for i:=0 to k do
 begin
x:=x0+step*i;//Очередное значение х
y:=a*sqr(x)*x-b*sin(x)+sqrt(b*Cos(x)/a);
  writeln(f2,' y=',y:1:2,' x=',x:1:2);
  end;
  closeFile(f1);
  closeFile(f2);
  btnShowResult.Click;
end;

Если b взять интеджер - тоже самое .

[phomm]

Если файловые переменные описаны как textfile , то у Вас не выйдет ничего загрузить таким образом.
Текстовый файл считывает (ну точнее процедура чтения считывает из файла) данные в текстовом виде, а как Вы их хотите записать в переменные целого и дробного типа, ей не понять. Тут надо тогда преобразовывать строку в число (strToInt StrToFloat) и потом уже записывать в переменные.
Ну и зависит от самого файла - какие у Вас там данные кога вы открываете файл блокнотом ? видно цифры или кракозябры ? если первое - то файл скорее всего именно текстовый и его надо читать как я указал, если кракозябры - то Ваш способ должен работать, но может давать и ошибки - надо трассировать (может отрицательное число там и корень не вычисляется)
И вообще мой Вам совет, прочтите внимательно тему работы с файлами в любом мануале по дельфи/паскалю, а то ещё миллион подобных вопросов возникнет.

[alexan0308]

Сообщение от phomm

Если файловые переменные описаны как textfile , то у Вас не выйдет ничего загрузить таким образом.

Уважаемый Phom не прав. Цитирую.

Сообщение от Книга по Дельфи;

Процедура Read прекрасно приспособлена к вводу чисел. При обращении к ней за вводом очередного целого или вещественного числа процедура «перескакивает» маркеры конца строк, т. е. фактически весь файл рассматривается ею как одна длинная строка, содержащая текстовые представления чисел. В сочетании с проверкой конца файла функцией EOF процедура Read позволяет организовать простой ввод чисел, например, так:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
M : Integer;
S : String;
begin
AssignFile(F, 'prog.txt'); Reset(F); S:='';
while not EOF(F) do
begin read(F, M);
S:=S+inttostr(M)+'   ';
end;
CloseFile(F) ;
Edit1.text:=S;
end;

При этом текстовой файл не должен содержать никаких других символов, кроме чисел.

Числа могут быть как целые, так и вещественные... Соответственно нужно следить за типом переменной M

[Serge_Bliznykov]

А сейчас пробую считать данные из файла и посчитать по формуле . Уже выдает ошибку Invalid Floating Point ...
Если убрать корень квадратный из формулы , то работает .

думаю, что ошибка ваша в том, что Вы НЕ контролируете значение под корнем.
cos(x) может быть меньше нуля?
Подумайте, что будет, если под корнем получится отрицательная величина..

Кстати, а Вы знаете, что при использовании тригонометрических формул (cos(X), например), функия ожидает входной параметер в радианах?


а насчёт чтения из текстового файла, то Вы правы, так можно использовать.
Только следите за правильным размещением элементов (должно совпадать, то, что в файле с тем, что вы читаете в программе)

[phomm]

Мда, пошёл проверил, действительно читает (ну не работаю я с пас-файлами, только потоки), посыпаю голову пеплом.
Был уверен что не должен, привык что типизация строгая, а тут видимо специально сие учтено для упрощённых случаев.

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