Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- A,B,C,DI,Firstroot,Secondroot:Real;
- isCorrect:Boolean;
- Begin
- isCorrect:=FALSE;
- repeat
- try
- write('Введите параметр A: ');
- readln(A);
- isCorrect:=TRUE;
- if A=0 then
- writeln('При A=0 уравнение не является квадратным, введите другое значение');
- except
- writeln('Ошибка!Введите числовое значение.');
- end;
- until(isCorrect)and (A<>0);
- isCorrect:=FALSE;
- repeat
- try
- write('Введите параметр B: ');
- readln(B);
- isCorrect:=TRUE
- except
- writeln('Ошибка!Введите числовое значение.');
- end;
- until(isCorrect);
- isCorrect:=FALSE;
- repeat
- try
- write('Введите параметр C: ');
- readln(C);
- isCorrect:=TRUE
- except
- writeln('Ошибка!Введите числовое значение.');
- end;
- until(isCorrect);
- DI:=sqr(b)-4*A*C;
- If DI>0 then
- begin
- Firstroot:=(-B-sqrt(DI))/(2*A);
- Secondroot:=(-B+sqrt(DI))/(2*A);
- writeln('Первый корень равен: ',Firstroot:5:2);
- write('Второй корень равен: ',Secondroot:5:2);
- end
- Else
- If DI=0 then
- begin
- Firstroot:=(-B)/(2*A);
- writeln('Корень уравнения равен: ',Firstroot:5:2);
- end
- Else
- begin
- writeln('Корней нет');
- end;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement