Question

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

Answer 1

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

program QuadraticEquation;

var
   inputFile, outputFile: Text;
   a, b, c, D, x1, x2: Real;

begin
   // Открываем файлы
   Assign(inputFile, 'kvur.txt');
   Reset(inputFile);
   Assign(outputFile, 'korni.txt');
   Rewrite(outputFile);

// Читаем коэффициенты из файла
   ReadLn(inputFile, a);
   ReadLn(inputFile, b);
   ReadLn(inputFile, c);

// Вычисляем дискриминант
   D := b*b - 4*a*c;

// Вычисляем корни уравнения
   if D > 0 then
   begin
      x1 := (-b + sqrt(D)) / (2*a);
      x2 := (-b - sqrt(D)) / (2*a);
      WriteLn('Два различных корня:');
      WriteLn('x1 = ', x1);
      WriteLn('x2 = ', x2);
   end
   else if D = 0 then
   begin
      x1 := -b / (2*a);
      WriteLn('Один корень:');
      WriteLn('x = ', x1);
   end
   else
   begin
      WriteLn('Корни являются комплексными числами');
   end;

// Записываем корни в файл
   WriteLn(outputFile, 'Корни уравнения:');
   if D > 0 then
   begin
      WriteLn(outputFile, 'x1 = ', x1);
      WriteLn(outputFile, 'x2 = ', x2);
   end
   else if D = 0 then
   begin
      WriteLn(outputFile, 'x = ', x1);
   end
   else
   begin
      WriteLn(outputFile, 'комплексные числа');
   end;

// Закрываем файлы
   Close(inputFile);
   Close(outputFile);
end.

Программа предполагает, что коэффициенты квадратного уравнения записаны в текстовом файле `kvur.txt` по одному на каждой строке. Корни уравнения выводятся на экран, их значения также записываются в текстовый файл `korni.txt`. В случае, если корни являются комплексными числами, программа выводит соответствующее сообщение.

Пример содержимого файла `kvur.txt`:

1
-4
3

Соответствующий файл `korni.txt` после выполнения программы будет иметь следующее содержимое:

Корни уравнения:
x1 = 3
x2 = 1