Question

Să se depisteze greșeala și să se corecteze funcția:

Function Discrim (a, b, c: integer ): real;

Var D: integer

Begin

D:=sqr(b)-4*a*c;

End;

Answer 1

Răspuns:

Function Discrim(a,b,c:integer):real;

var D:integer;

begin

 D:=sqr(b)-4*a*c;

 Discrim:=D;

end;

Îin funcţia din enunţ este o eroae neînsemnată, dar totuşi e eroare, este scăpat caracterul ; (punct şi virgulă) în rândul 2.

A doua eroare foarte mare este faptul că numelui funcţiei trebuie să se atribuie valoarea rezultatului ce iese din funcţie, adică a fost scăpată instrucţiunea Discrim:=D;

De fapt eu funcţia dată vreau s-o scriu astfel, mai laconic:

Function Discrim(a,b,c:integer):real;

begin

 Discrim:=sqr(b)-4*a*c;

end;

Explicație: