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

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


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.


Похожие ответы
  1. интересует лишь то, как будет выглядеть программа на паскале: Составить программу определения величины ∆1 (∆2) на языке программирования высокого уровня Сам с паскалем впервые столкнулся и синтаксиса не знаю, прошу помощи.

  1. 2. Решить систему линейных уравнений a1*x+b1*y=c1 a2*x+b2*y=c2

  1. Доброго времени суток! Помогите пожалуйста решить систему с помощью рекурсии. (Паскаль)

  1. Решить Методом Зейделя -5x1+x2+x3=-3 2x1+5x2-x3=6 x1+2x2+4x3=7 (x1=x2=x3=1)

  1. Нужно: "Решить задачу с помощью цикла. При реализации данной задачи используются операторы for."

  1. Помогите, пожалуйста, решить уравнение и записать его код в паскале. Очень нужно x^3+cos(8*x)=0 Три точности: E_1=0.00001, E_2=0.0000001, E_3=0.00000001

  1. Помогите, пожалуйста, решить уравнение и записать его код в паскале. Очень нужно x^3+cos(8*x)=0 Три точности: E_1=0.00001, E_2=0.0000001, E_3=0.00000001

  1. Помогите преобразовать уравнение в код паскаль пожалуйста. Даны a, k, x, y. Вычислить F, если Оригинал

  1. Вводить числа с клавиатуры пока их количество не превысит 7 или не появится число 77. Решить задачу двумя способами. На While и Repeat Заранее спасибо!!

  1. Здравствуйте, помогите решить контрольную по Pascal 4) Решить линейное уравнение a*x=b