Pascal Дискриминант

[DE4DBOY]

Небольшая программа позволяющая вычислить дискриминант чисел A,B,C.
Проверялось все лично мной на блокнотике :cv:
Небольшой мануал я думаю подойдет Вам.

Спойлер

program asd; - Программа, для копирайта, а так не нужно.
begin - Сердце, тут начинается приток крови к программе
var a,b,c,i:integer; - переменные чисел. Обязательно integer тип
println('Введите число A'); - Вывод текста
readln(a); - Записываем число в переменную
println('Введите число B'); - Вывод текста
readln(b); - Записываем число в переменную
println('Введите число C'); - Вывод текста
readln(c); - Записываем число в переменную
i:=b*b-4*a*c; - формула D=b2-4ac, подругому никак, решил выкрутиться так. Т.к. квадрат это число умноженное само на себя)
if i<0 -ветвления
then - потому
println('Корни отсутствуют / А так ответ',i) - Если дискриминант меньше нуля, пишет ответ так-же
else
println('Дискриминант:',i , '| Если D>0, то корень 1'); Если дискриминант больше нуля, пишет ответ разумеется
end. - конец программы

Спасибо что прочитали мою статью как сделать свой дискриминант счетчик.