Решить биквадратное уравнение, записанное пользователем в указанном файле - Turbo Pascal

Формулировка задачи:

Написать программу, решающую биквадратное уравнение (ax^4+bx^2+c=0), записанное пользователем в указанном файле. Добавлено через 18 часов 9 минут Программу просто решающую биквадратное уравнение я написать могу, при условии, что переменные вводятся с клавиатуры, но я не знаю как брать их из файла, может кто помочь с этим?

Код к задаче: «Решить биквадратное уравнение, записанное пользователем в указанном файле - Turbo Pascal»

textual
program proga;
 uses crt;
 var a,b,c,x1,x2,x3,x4,x5,x6,d:real;
 begin
 writeln('ўўҐ¤ЁвҐ a,b,c');
 readln(a,b,c);
 d:=b*b-4*a*c;
 if d<0 then writeln('га*ў*Ґ*ЁҐ *Ґ Ё¬ҐҐв аҐиҐ*Ё©') else
 begin
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 if (x1<0) and (x2<0) then writeln ('га*ў*Ґ*ЁҐ *Ґ Ё¬ҐҐв аҐиҐ*Ё©') else
 begin
 if x1>=0 then
 begin
 x3:=sqrt(x1);
 x4:=-sqrt(x1);
 write('®вўҐв: ',x3,';',x4,';');
 end;
 if x2>=0 then
 begin
 x5:=sqrt(x2);
 x6:=-sqrt(x2);
 writeln(x5,' ;',x6,'.');
 end;
 end;
 end;
 end.

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ