решение Квадратного уравнения методом Виета

[Claster]

Напиать программу решения Квадратного уравнения методом Гауса, помогите плииииизззз. Обчным методом написал а как гаусом не наю!!!
и что бы результат корнее был в виде к примеру 22,23 а не (22,234345435)

[artemavd]

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

Напиать программу решения Квадратного уравнения

может быть не просто квадратного уравнения, а системы уравнений? Если я не ошибаюсь, то она решается методом исключения неизвестных.

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

и что бы результат корнее был в виде к примеру 22,23 а не (22,234345435)

для этого когда будете писать формулу вычисления и в том месте, куда будете выводит ответ, например, в Label, то надо писать так:

 label1.Caption:=FloatToStrF(x1,ffFixed,0,4);

где х1-результат вычисления формулы, ffFixed - вид числа, 0-число знаков до запятой, 4-число знаков после запятой.

[Claster]

Да спасибки за код, а по поводу квадратного уравнения я ошибся не Гауса а Виетта надо! =)

Ещё вопрос как сохранить полученое значение (к примеру: x1:=a*a) результат записать в файл с помощью функции AsignFile

[puporev]

Assignfile не функция, а процедура и ничего она не записывает, а связывает файловую переменную с именем файла.
AssignFile(f,'text1.txt');
затем файл открывают для записи (Rewrire(f)), или для дополнения (Append(f));
Затем уже в него записывают, например write(f,x1) или writeln(f,x1);