Question

Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c - коэффициенты квадратного уравнения затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt. ПАСКАЛЬ

Answer 1

Программа в приложении

Answer 2

Программа на Pascal:

program QuadraticEquation;

var
  a, b, c, D, x1, x2: real;
  inputFile, outputFile: text;

begin
  assign(inputFile, 'kvur.txt');
  reset(inputFile);
  readln(inputFile, a, b, c);
  close(inputFile);

D := b * b - 4 * a * c;

if D > 0 then
  begin
    x1 := (-b + sqrt(D)) / (2 * a);
    x2 := (-b - sqrt(D)) / (2 * a);
    assign(outputFile, 'korni.txt');
    rewrite(outputFile);
    writeln(outputFile, 'У уравнения ', a, 'x^2 + ', b, 'x + ', c, ' корни: x1 = ', x1:0:2, ', x2 = ', x2:0:2);
    close(outputFile);
    writeln('У уравнения ', a, 'x^2 + ', b, 'x + ', c, ' корни: x1 = ', x1:0:2, ', x2 = ', x2:0:2);
  end
  else if D = 0 then
  begin
    x1 := -b / (2 * a);
    assign(outputFile, 'korni.txt');
    rewrite(outputFile);
    writeln(outputFile, 'У уравнения ', a, 'x^2 + ', b, 'x + ', c, ' корень: x = ', x1:0:2);
    close(outputFile);
    writeln('У уравнения ', a, 'x^2 + ', b, 'x + ', c, ' корень: x = ', x1:0:2);
  end
  else
  begin
    assign(outputFile, 'korni.txt');
    rewrite(outputFile);
    writeln(outputFile, 'У уравнения ', a, 'x^2 + ', b, 'x + ', c, ' нет корней');
    close(outputFile);
    writeln('У уравнения ', a, 'x^2 + ', b, 'x + ', c, ' нет корней');
  end;
end.

Эта программа считывает коэффициенты квадратного уравнения из файла kvur.txt, вычисляет его корни и выводит их на экран, а также записывает в текстовый файл korni.txt.