ax2 + bx + c = 0Kde budou koeficienty a, b a c zadávány. Rozlište, kdy má rovnice 2 reálné kořeny, 1 dvojnásobný kořen a kdy nemá v oboru reálných čísel řešení.
program ukol5; var a,b,c,D:real; begin write('Zadejte koeficient a: '); readln(a); write('Zadejte koeficient b: '); readln(b); write('Zadejte koeficient c: '); readln(c); writeln; writeln('----------------------'); writeln; D:=sqr(b)-4*a*c; {vypocet diskriminantu} if D<0 then writeln('Rovnice nema realne reseni') else if D=0 then writeln('Rovnice ma 1 koren: ', -b/(2*a):0:2) else begin write('Rovnice ma 2 koreny: ',(-b-sqrt(D))/(2*a):0:2); writeln(' a ',(-b+sqrt(D))/(2*a):0:2); end; end.
Zpět na: Lekce 3