Нахождение дискриминанта через функцию

@enkoera · Регистрация: 21.03.2018

Студворк — интернет-сервис помощи студентам

Программа компилируется, ошибок нет, но такое ощущение, что функция не вызывается из основной программы, так как выдаёт результат в виде числа 0, какие-либо вы не вводили значения уравнения.

Pascal

program d;
function dis (var disc:real): real;
 var a,b,c :real;
begin
     disc:=sqr(b)-4*a*c;
     result:=disc;
end;
begin
 var a,b,c,disc:real;
 var result:real;
     result:=dis(disc);
     readln(a,b,c);
     writeln(result);
end.

@Puporev · 16.10.2019, 14:35

Pascal

function dis (a,b,c:real): real;
begin
dis:=sqr(b)-4*a*c;
end;
var a,b,c:real;
begin
readln(a,b,c);
writeln(dis(a,b,c));
end.

Опции темы

Нахождение дискриминанта через функцию

Решение