👤
a fost răspuns

Elaborati o functie care calculeaza radacina ecuatiei ax+b=0 in PASCAL
pana azi

Răspuns :

Program P7;
var a,b,x : real;
begin
readln (a,b);
if a<>0 then
begin
x:=-b/a;
writeln('Ecuatia are o singura radacina', x);
end;
if (a=0)and (b=0) then
writeln('Ecuatia are o multime infinita de radacini');
if (a=0) and (b<>0) then
writeln ('Ecuatia nu are sens');
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari