Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c…

Автор: nika13maksimova

Предмет: Информатика

Уровень: 10 - 11 класс

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

Ответов к вопросу: 1

Damirkzn

Ответить

20.12.2024 | 22:12

Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, «C:kvur.txt»);
Assign(OutFile, «C:korni.txt»)
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write(«Уравнение не имеет корней»)
Else
Append(OutFile)
Result:=(-b + sqrt(D)) / 2 * a
Write(OutFile,Result)
Write(«Корень уравнения»)
WriteLn(Result)
if (D>0) then
Result:=(-b — sqrt(D)) / 2 * a
Write(OutFile, Result)
Write(«Второй корень уравнения»)
Write(Result)
End;
End.