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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!