Автор существО задал вопрос в разделе Домашние задания
Задача в паскале!! Составить программу для вычеслени корней квадратного уравнения.Реализовать с помощью процедуры!!! и получил лучший ответ
Ответ от Єанзил Гильмутдинов[активный]
Это для вычисления для корней и для выявления действительно ли число иль нет. >>> Program Pascal; Uses crt; Var i:integer; a,b,c,d,x1,x2:real; begin clrscr; writeln(\'Введите коэффициенты уравнения A:\'); readln(a); writeln(\'B:\'); readln(b); writeln(\'C:\'); readln(c); {считаем значение диксриминанта d} d:=sqr(b/a) - 4*(c/a); {в зависисмости от дискриминанта, тот или иной ход решения} if d<0 then writeln(\'Уравнение имеет комплексные корни\'); if d=0 then begin x1:= (-1*(b/a))/2; writeln(\'Уравнение имеет один действительный корень решения: \',x1:5:2) end; if d>0 then begin x1:=((-1*(b/a))+sqrt(d))/2; x2:=((-1*(b/a))-sqrt(d))/2; writeln(\'Действительные корни уравнения: x1= \',x1:5:2,\' x2=\',x2:5:2); end; writeln(\'Нажмите Enter\'); readln; end. Это простой способ... >>> program kv; var a,b,c,D,x1,x2:real; begin Read(a,b,c); D:=sqr(b)-4*a*c; if D<0 then WriteLn(\'Действительных корней нет\') else begin d:=sqrt(d); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); WriteLn(\'x1=\',x1); WriteLn(\'x2=\',x2); end; end.
program kvad_urav; var a,b,c:real; {коэффициенты квадратного уравнения} x1,x2:real; {корни квадратного уравнения} D:real; {дискриминант квадратного уравнения} BEGIN write('Введите значение коэффициента а, b,c '); read
var a,b,c: real; x1,x2,D: real;begin readln(a,b,c); D := b*b - 4*a*c; if D<0 then writeln('Корней нет') else if D=0 then begin x1 := -b/2/a; writeln('x1=x2=',x1); end<b