Question

Задание: переписать программу и написать пояснения к каждой строчке (что она делает) Программа нахождения корней квадратного уравнения var a,b,c: real; x1,x2,D: real; begin readln(a,b,c); D := b*b - 4*a*c; if D<0 then writeln('Корней нет') else if D=0 then begin x1 := -b/2/a; writeln('x1=x2=',x1); end else begin x1 := (-b-sqrt(D))/2/a; x2 := (-b+sqrt(D))/2/a; writeln('x1=',x1,' x2=',x2); end; end.

Answer 1

Ответ:

Ответ описал в объяснении

Объяснение:

var a,b,c: real;  //Объявление переменных a,b,c типа real(вещественный)

x1,x2,D: real;  //Объявление переменных x1,x2,D типа real(вещественный)

begin  //Начало программы, ее тело

readln(a,b,c);  //Ввод  с клавиатуры значений a,b,c

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

if D<0 then  //Оператор если, в данном случае "ЕСЛИ ДИСКРИМИНАНТ МЕНЬШЕ НУЛЯ,ТО "

writeln('Корней нет')  //Выполнение условия ЕСЛИ, вывод текста "Корней нет"

else if D=0 then begin  // Условие ИНАЧЕ ЕСЛИ, проверка дискриминанта на принадлежность к нулю

x1 := -b/2/a;  //Выполнение условия ИНАЧЕ ЕСЛИ, нахождение х1

writeln('x1=x2=',x1);  //вывод корней

end  //Окончание предыдущего блока begin

else begin  //Условие ИНАЧЕ

x1 := (-b-sqrt(D))/2/a;  //нахождение первого корня

x2 := (-b+sqrt(D))/2/a;  //нахождение второго корня

writeln('x1=',x1,' x2=',x2);  // вывод корней уравнения

end;  //Окончание предыдущего блока begin

end. //Окончание программы

Answer 2

Я попробую помочь вам с заданием. Вот переписанная программа на языке Pascal и пояснения к каждой строчке: // Объявляем переменные для коэффициентов a, b, c и корней x1, x2, а также дискриминанта D var a,b,c: real; // real - это тип данных для вещественных чисел x1,x2,D: real; // Начинаем основную часть программы begin // Считываем с клавиатуры значения коэффициентов a, b, c readln(a,b,c); // Вычисляем дискриминант по формуле D = b^2 - 4ac D := b*b - 4*a*c; // Проверяем условие D < 0, то есть отсутствие действительных корней if D<0 then // Выводим сообщение на экран writeln('Корней нет') // Иначе проверяем условие D = 0, то есть наличие одного кратного корня else if D=0 then // Начинаем новый блок команд begin // Вычисляем корень по формуле x1 = x2 = -b/2a x1 := -b/2/a; // Выводим значение корня на экран с помощью конкатенации строк writeln('x1=x2=',x1); // Заканчиваем блок команд end // Иначе, если D > 0, то есть наличие двух различных корней else // Начинаем новый блок команд begin // Вычисляем первый корень по формуле x1 = (-b - sqrt(D))/2a, где sqrt - это функция извлечения квадратного корня x1 := (-b-sqrt(D))/2/a; // Вычисляем второй корень по формуле x2 = (-b + sqrt(D))/2a x2 := (-b+sqrt(D))/2/a; // Выводим значения корней на экран с помощью конкатенации строк и запятой для разделения writeln('x1=',x1,' x2=',x2); // Заканчиваем блок команд end; // Заканчиваем основную часть программы end.