Răspuns :
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:
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.