Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 12 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

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.6.
Две прямые описываются уравнениями
a
1
x + b
1
y + c
1
= 0;
a
2
x + b
2
y + c
2
= 0.
Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти
прямые совпадают, не пересекаются или вовсе не cуществуют.
Система тестов
Коэффициенты
прямых
Номер
теста
Проверяемый
случай
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 Прямые
совпадают 
        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.6.

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

                             a1 x + b1 y + c1 = 0;
                             a2 x + b2 y + c2 = 0.
Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти
        прямые совпадают, не пересекаются или вовсе не cуществуют.

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

 Номер          Проверяемый                Коэффициенты           Результаты
 теста             случай                     прямых
                                       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   Прямые
         пропорциональны                                       совпадают

Страницы