решение задачи

[Claster]

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

[Claster]

и ещё вопрос сюда же как сделать что бы корни уравнения имели вид к примеру 22,63 а не (22,634564365). Делал таким способом
f1:=Round(x1*10)/100 препад сказал что бы сделал другим функцией Trunc если я не ошибаюсь!

[Sibedir]

Метод Гауса:
GAUS.zip
Хотя уже обсуждалось
Добавлено: Раньше вроде просил метод Гауса. Или я глючу?

Округление:

r1 := 1.5698055;
r2 := RoundTo (r1, -2);

r2 = 1.57
Тоже легко найти на форуме.

[Claster]

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

Метод Гауса:
Вложение 5689
Хотя уже обсуждалось
Добавлено: Раньше вроде просил метод Гауса. Или я глючу?

Округление:

r1 := 1.5698055;
r2 := RoundTo (r1, -2);

r2 = 1.57
Тоже легко найти на форуме.

Нет нет я ошися мне нужно именно ВИЕТА!!!!

и ещё вопрос по поводу округления а если я зарание не знаю что у меня получиться в r1. К примеру как округлить число которое получиться в этом выражении x1:=-b+sqrt(d)/2*a;

[Claster]

Выполнил такого рода

x1:=-b+sqrt(d)/2*a;
f1:=RoundTo(x1, -2);

выходит ошибка Undeclared identifier: 'RoundTo'

[Sibedir]

А вы подключили модуль Math?

uses Math;

[Claster]

ОООО Спасибки, запоню навсегда. А что поповоду Виета??? мож есть у когото?

[puporev]

А что поповоду Виета??? мож есть у когото?

А что, из учебника алгебры это уже выкинули?

[Sibedir]

А это тот школьный метод упрощения чтоли? Если нет, то где взять его описание.

[Sibedir]

По сути, мотод Гаусса - это и есть упрощение. Я не вижу м/у ними принципиальных отличий. Просто решение как у Гауса проще ложится на код.