Примеры прикладных задач
Решение квадратного уравнения
Язык Pascal:
program quadratic_equation; var a, b, c, D, x1, x2: real; begin writeln('Введите a, b, c: '); read(a, b, c); writeln('Формула: ', a, 'x^2+' ,b, 'x+', c, '=0'); D := b*b - 4 * a * c; writeln('D = b^2-4ac = ', D); if D < 0 then writeln('Решений нет') else if D = 0 then begin x1 := - b / (2 * a); writeln('x = ', x1); end else begin x1 := (-b + sqrt(D)) / (2*a); x2 := (-b - sqrt(D)) / (2*a); writeln('x1 = ', x1); writeln('x2 = ', x2); end; end.