Then WriteLn( 'прямые совпадают.' )

Дата добавления: 2015-07-04; просмотров: 541; Нарушение авторских прав

Else

if a1*b2 = a2*b1 {условие параллельности}

Then WriteLn('прямые параллельны.')

else begin x:=(c1*b2-c2*b1)/(b1*a2-b2*a1);

y:=(c2*a1-c1*a2)/(b1*a2-b2*a1);

WriteLn('координаты точки пересечения :',

' x = ', x : 5 : 2 , ', y = ', y : 5 : 2);

End; WriteLn

end;

ReadLn

END.

Результаты работы Pascal-программы:

Введите количество тестов : 7 Тест 1. Введите a1, b1, c1 : 0 0 1 <Enter> Введите a2, b2, c2 : 1 2 2 <Enter> О т в е т : это не прямая (прямые). Тест 2. Введите a1, b1, c1 : 1 2 2 <Enter> Введите a2, b2, c2 : 0 0 1 <Enter> О т в е т : это не прямая (прямые). Тест 3. Введите a1, b1, c1 : 0 0 0 <Enter> Введите a2, b2, c2 : 1 2 1 <Enter> О т в е т : это не прямая (прямые). Тест 4. Введите a1, b1, c1 : 1 2 1 <Enter> Введите a2, b2, c2 : 1 2 1 <Enter> О т в е т : прямые совпадают. Тест 5. Введите a1, b1, c1 : 1 2 1 <Enter> Введите a2, b2, c2 : 2 4 2 <Enter> О т в е т : прямые совпадают. Тест 6. Введите a1, b1, c1 : 2 3 -1 <Enter> Введите a2, b2, c2 : 4 6 1 <Enter> О т в е т : прямые параллельны. Тест 7. Введите a1, b1, c1 : 1 2 -4 <Enter> Введите a2, b2, c2 : 1 -2 1 <Enter> О т в е т : координаты точки пересечения : x = 1.50, y = 1.25

QBasic

CLS

INPUT "Введите количество тестов : ", NTest

FOR Test = 1 TO NTest ' цикл по всем тестам задачи

PRINT "Тест"; Test;

INPUT ". Введите a1, b1, c1 : ", a1, b1, c1

INPUT " Введите a2, b2, c2 : ", a2, b2, c2

PRINT : PRINT "О т в е т : ";

IF (a1 = 0) AND (b1 = 0) OR (a2 = 0) AND (b2 = 0) THEN

PRINT "это не прямая (прямые)."

ELSE

IF (a1*b2=a2*b1) AND (a1*c2=a2*c1) THEN

PRINT "прямые совпадают."

ELSE

IF a1*b2 = a2*b1 THEN

PRINT "прямые параллельны."

ELSE x=(c1*b2 - c2*b1) / (b1*a2 - b2*a1)

y=(c2*a1 - c1*a2) / (b1*a2 - b2*a1)

PRINT "координаты точки пересечения: x="; x ; ", y="; y

END IF

PRINT

<== предыдущая лекция	\|	следующая лекция ==>
Система тестов	\|	Задачи для самостоятельного решения