Составьте алгоритм вычисления дискриминанта! пожалуйста
Составьте алгоритм вычисления дискриминанта! пожалуйста
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы