Напишите программу, по которой из текстового файла с именем kvur.txt будут прочитаны три числа а, b, с — коэффициенты квадратного уравнения,
Вопрос посетителя
Напишите программу, по которой из текстового файла с именем kvur.txt будут прочитаны три числа а, b, с — коэффициенты квадратного уравнения, затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt
Ответ эксперта
Program Praktik8;
Uses crt;
Var a, b, c, d, x1, x2: real;
G: text;
Begin
Assign (G,’kvur.txt’);
Reset(G);
Readln (G,a,b,c);
Close(G);
d:=sqr(b)-4*a*c;
if d > 0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
Assign (G,’korni.txt ‘);
Rewrite (G);
Writeln (G,’2 корня ‘, x1:7:2, x2:7:2);
Close(G);
Writeln (‘2 корня ‘, x1:7:2, x2:7:2)
end
else if d = 0 then
begin
x1:=-b/(2*a);
Assign (G,’korni.txt ‘);
Rewrite (G);
Writeln (G,’1 корень ‘, x1:7:2);
Close(G);
Writeln (‘1 корень ‘, x1:7:2)
end
else
begin
Assign (G,’korni.txt ‘);
Rewrite (G);
Writeln (G,‘нет корней’);
Close(G);
Write (‘нет корней’)
end;
Readkey
End.