Var a, b, c : Real; {a, b, c - коэффициенты уравнения}

  Discr : Real;

X1, x2 : Real; {x1, x2 - корни }

  Test, NTest : Integer;   {Ntest - количество тестов }

BEGIN

  ClrScr;

  Write('Введите количество тестов : ');

  ReadLn(NTest);

  For Test := 1 to NTest do {цикл по всем тестам задачи }

begin

  Write('Тест ', Test, '. Введите коэффициенты a, b, c : ');   ReadLn(a, b, c);

  If (a=0) and (b=0) and (c=0) then begin Write('Все коэффициенты равны нулю.'); WriteLn('x - любое число ');end

else

  If (a=0) and (b<>0) then WriteLn('Линейное уравнение. Oдин корень: x =', (-c/b):6:2)

else

  If (a=0) and (b=0) and (c<>0) then WriteLn('Неправильное уравнение.')

  else

begin  Discr := b*b - 4*a*c;

  If Discr > 0  then begin

  x1:=(-b + Sqrt(Discr)) / (2*a); x2:=(-b - Sqrt(Discr)) / (2*a);  WriteLn('x1=' , x1:6:2 , '; x2=' , x2:6:2)  end

else

  If Discr = 0 then begin  x1 := -b/(2*a); 

  WriteLn('Корни равны: x1=', x1:6:2, ' x2=', x1:6:2);  end

else WriteLn('Действительных корней нет.');

  end; 

  WriteLn

  end; 

  ReadLn

END.

Тест 1 . Введите коэффициенты a, b, c : ? 1, 1, –2 <Enter>  x1 = 1 ; x2 = – 2   Тест 2 . Введите коэффициенты a, b, c : ? 1, 2, 1  <Enter>  Корни равны: x1 = – 1 ; x2 = – 1   Тест 3 . Введите коэффициенты a, b, c : ? 2, 1, 2  <Enter>  Действительных корней нет.

 

Пример 1.6.

 Две прямые описываются уравнениями

a₁ x + b₁ y + c₁ = 0;

a₂ x + b₂ y + c₂ = 0.

Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не существуют.

 

Система тестов

 

Номер теста	Проверяемый  случай	Коэффициенты прямых						Результаты
		a1	b1	c1	a2	b2	c2
1	Первая прямая не существует	0	0	1	1	2	2	Это не прямая
2	Вторая прямая не существует	1	2	2	0	0	1	Это не прямая
3	Все коэффициенты одной или обеих прямых равны нулю	0	0	0	1	2	1	Это не прямая (прямые)
4	Коэффициенты попарно равны	1	2	1	1	2	1	Прямые совпадают
5	Коэффициенты попарно пропорциональны	1	2	1	2	4	2	Прямые совпадают
6	Прямые параллельны	2	3	-1	4	6	1	Прямые параллельны
7	Прямые пересекаются	1	2	-4	1	-2	1	x=1.50,   y=1.25

 

Program Intersection;

  Uses Crt; {подключение библиотеки Crt }