Квадратное уравнение

[Marfeys]

Решение 3ёх квадратных уравнений в одной проге

Program name; //Начало программы.Название программы
uses crt; //Подключаем оформление ввиде окошка
type //Обхявление типов
M=array[1..3] of real;//Массив из трёх чисел вещественного типа
var //Тут мы объявлять переменные будем
bim:array[1..3] of boolean;// Массив логического типа на проверку квадратное ли уравнение перед нами ?
D,A,B,C,x1,x2:M; //Массивы!
i:integer; //Переменная которая нам поможет...
Begin
for i:=1 to 3 do //с 1 по 3 элементам логического массива мы
bim[i]:=false; //присвоим ложное значение
Writeln('Здравствуйте'); //Милое приветствие
Writeln('Перед вами программа для решения квадратного уравнения'); //Пояснение к программе
Writeln('Даже для трёх уравнений сразу !!!');//Полное пояснение !
Writeln('Задайте коэффициенты для трёх А'); //Задаём 3 коэффициента А для 3ёх уравнений
for i:=1 to 3 do
Readln(A[i]); // 1,2,2 пример ввода
Writeln('Задайте коэффициенты для трёх В'); //Задаём 3 коэффициента В для 3ёх уравнений
for i:=1 to 3 do
Readln(B[i]); //2,4,5 пример ввода
Writeln('Задайте коэффициенты для трёх С'); //Задаём 3 коэффициента С для 3ёх уравнений
for i:=1 to 3 do
Readln(C[i]); // -4 1 1 чтобы были корни (пример ввода)



for i:=1 to 3 do //для каждых АВС ищем дискриминант
D[i]:=B[i]*B[i]-4*A[i]*C[i]; //Вот сам дискриминант
for i:=1 to 3 do
if A[i]*B[i]=0
then
bim[i]:=true
else


for i:=1 to 3 do //для каждых АВС делаем проверку дискриминанта на >=0
if D[i]>=0 //ВОт она ПРоверка !!!
then //и если D>=0 ТОГДА!!
begin
x1[i]:=(-B[i]+sqrt(D[i]))/2*A[i]; //вычисляем 1 корень
x2[i]:=(-B[i]-sqrt(D[i]))/2*A[i]; //вычисляем 2 корень
end;
for i:=1 to 3 do
if bim[i]=false //и если это квадратное уравнение,то делаем...вывод на экран корней для таких то АВС...
then
begin
for i:=1 to 3 do
if A[i]=0
then
begin
x1[i]:=(-c[i])/(b[i]);
for i:=1 to 3 do
if A[i]=0
then
Writeln('1koren 6yget and it is = ',x1[i]);
end;
end;
for i:=1 to 3 do
if C[i]=0
then
begin
x1[i]:=0;
x2[i]:=(-B[i])/A[i];
end;
for i:=1 to 3 do
if C[i]=0
then
Writeln('gJI9I x1[',i,'] ',x1[i],' gJI9I x2[',i,'] ',x2[i]);

for i:=1 to 3 do
if B[i]=0
then if a[i]*c[i]<0
then
begin
x1[i]:=sqrt((c[i])/(a[i]));
x2[i]:=-(sqrt((c[i])/a[i]));
end;
for i:=1 to 3 do
if B[i]=0
then if a[i]*c[i]<0
then
Writeln('gJI9I x1[',i,'] ',x1[i],' gJI9I x2[',i,'] ',x2[i]);

if D[i]>=0
then
Writeln('gJI9I A[',i,'] B[',i,'] and C[',i,'] 1koren= ' ,x1[i], ' 2koren= ' ,x2[i]);
end;

for i:=1 to 3 do
if D[i]<0
then
Writeln('gJI9I A[',i,'] B[',i,'] and C[',i,'] нету решений !' );
end.

Вроде рассмотрел все случаи...Но на выводе выводит слишком многое и многое не верное...в чём ошибка ?

[Sweta]

1 Оформляйте программу тегом CODE, а не цитатой, для чего выделите текст программы и нажмите значок # на панели сообщения.
2 В Паскале не очень. Но Ваша программа у меня не компилируется вот в этом месте

bim[i]:=true
else


for i:=1 to 3 do //для каждых АВС делаем проверку дискриминанта на >=0

выдает ошибку, что переменная i не имет права инициализироваться внутри цикла ( мне так кажеться, что у Вас идет цикл, где используется уже данная переменная.