Дана почти готовая программа нахождения корней квадратного уравнения. Вам необходимо исправить орфографические и синтаксические ошибки.
Progpam корни уравнения;
var
a, b, c: real;
procedyre sq (a,b,c: integer);
var d, x1, x2: rial;
began
d = b * b - 4 * a * c;
if d >= 0 than begun
x1 := (-b + sqrt (d)) / (2 * a);
x2 := (-b - sqrt (d)) / (2 * a);
if x1 = x2 then
writeln ('x1 = ', x1:6:2);
else
writeln ('x1 = ', x1:6:2, '; x2 = ', x2:6:2)
end
else
writeln ('Корней нет!')
end;
begin
write ('a = '); radln (a);
write ('b = '); radln (b);
write ('c = '); radln (c);
writeln (a:6:2,'x*x + ',b:6:2,'x + ',c:6:2,' = 0');
sq (a, b, c);
reatln;
end.
Для второго отрезка (х3,у3) и (х4,у4), прямая у=у3+(у4-у3)(х-х3)/(х4-х3).
Абсцисса точки пересечения (х,у) этих прямых находится из равенства
у1+(у2-у1)(х-х1)/(х2-х1)=у3+(у4-у3)(х-х3)/(х4-х3). Это х надо выразить в виде формулы до написания программы, чтобы х вычислялось в программе по этой формуле.
Схема программы:
1) проверка параллельности отрезков. Если "да", то выход и ответ "не существует".
2) проверка выполнения двух двойных неравенств: x1 <= x <= x2, x2 <= x <= x4.
Если оба неравенства "истина", то ответ "существует", иначе "не существует"
Обратите внимание, что х1 должно быть меньше чем х2, и х3 меньше чем х4.
Для второго отрезка (х3,у3) и (х4,у4), прямая у=у3+(у4-у3)(х-х3)/(х4-х3).
Абсцисса точки пересечения (х,у) этих прямых находится из равенства
у1+(у2-у1)(х-х1)/(х2-х1)=у3+(у4-у3)(х-х3)/(х4-х3). Это х надо выразить в виде формулы до написания программы, чтобы х вычислялось в программе по этой формуле.
Схема программы:
1) проверка параллельности отрезков. Если "да", то выход и ответ "не существует".
2) проверка выполнения двух двойных неравенств: x1 <= x <= x2, x2 <= x <= x4.
Если оба неравенства "истина", то ответ "существует", иначе "не существует"
Обратите внимание, что х1 должно быть меньше чем х2, и х3 меньше чем х4.