Добрый день. Сегодня я хочу поделиться программой, написанной на языке программирования Паскаль, а именно исходник программы, которая находит корни квадратного уравнения.
Итак, задача звучит следующим образом:
"Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов".
Решение задачи на языке паскаль довольно простое. Вначале необходимо считать данные (значения коэффициентов) в три переменные a,b,c. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет.
Исходный код программы нахождения корней:
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.Скачать исходник: koren2.pas
В последнее время я перешел на linux, совсем забыв про windows 8. В связи с переездом с одной системы на другую, я как-то потерял этот исходник и не выкладовал его с 2012 года! Теперь я загрузил старый компьютер с windows и нашел на рабочем столе этот исходник. Кстати, если Вас интресуют Темы для Windows 8.1, то посетите сайт 7themes.su.