<span>( ax + b ) : ( cx + d ) = 0
Сводим уравнение к системе:
{ ax + b = 0
{ cx + d </span>≠<span> 0
{ ax = -b
{ cx </span>≠<span> -d
</span>
Можно учесть все случаи, используя больше 16 условий, но я предпочту более оптимальный вариант, так как знаю как зависит количество корней линейного уравнения от коэффициентов.
Программа на паскале:
var a, b, c, d: real;
begin
read(a, b, c, d);
if (c = 0) and (d = 0) then writeln('NO')
else if (a = 0) and (b = 0) then writeln('INF')
else if a = 0 then writeln('NO')
else if c = 0 then writeln(-b/a)
else if b/a = d/c then writeln('NO')
else writeln(-b/a)
end.
Второе задание ответ : 2)
Первое задание ответ: разрядность 6
Uses crt;
varb,h,S:real;
begin
writeln('Поиск площади треугольника по стороне и высоте');
writeln();
write('Введите длину стороны в основании треугольника - ');
readln(b);
writeln();
write('Введи высоту треугольника - ');
readln(h);
writeln();
S:=(b*h)/2;
writeln('Ответ: ',S);
end.
var
a: real;
begin
writeln('Введите вещественное число');
readln(a); //Вводим вещественное число
if a < 0 then writeln('Модуль числа а: ', abs(a)) {Если введенное число - отрицательное, печатаем его модуль, иначе печатаем квадратный корень из этого числа с округлением до 5 знаков после запятой}
else writeln('Квадратный корень из числа а: ', sqrt(a) : 0 : 5);
end.