Составьте алгоритм вычисления дискриминанта! пожалуйста
5-9 класс
|
uses crt;
procedure Disk(a,b,c:integer; var d:real);
begin
D:=b*b-4*a*c;
end;
var a,b,c:integer;
k:real;
begin
ClrScr;
Writeln ('Vvedite koef. a,b,c');
Readln(a,b,c);
Disk(a,b,c,k);
Writeln('Disk ',k);
Readln;
end.
Другие вопросы из категории
В ответе укажите одно число – количество единиц.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.
Читайте также
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.
трассировкой. Напишите программу на Паскале.