PROGRAM Pascal3(INPUT,OUTPUT);¢¢(* Dieses Programm errechnet zu einem Funktionsgraphen der Form f(x)=x*x+p*x+q die X-Werte, an denen der Funktionswert 0 ist. Es gibt hier je nach p und q keine, eine oder zwei Loesungen. *)¢¢VAR X1,X2,P,Q:REAL;¢¢BEGIN¢ WRITELN('Bitte geben Sie P und Q ein!');¢ READLN(P);¢ READLN(Q);¢ ¢ IF SQR(P/2)-Q<0¢ THEN WRITELN('Es gibt keine Loesung.')¢ ELSE IF SQR(P/2)-Q=0 ¢ THEN¢ BEGIN¢ X1:=-P/2;¢ WRITE('Es gibt eine Loesung:');¢ WRITELN(X1:8:3)¢ END¢ ELSE¢ BEGIN¢ X1:=-P/2+SQRT(SQR(P/2)-Q);¢ X2:=-P/2-SQRT(SQR(P/2)-Q);¢ WRITELN('Es gibt 2 Loesungen:');¢ WRITELN(X1:8:2,' und ',X2:8:2)¢ END¢END.¢
