Hallo

Aus ProgrammingWiki

Hallo

Es ist doch schön, wenn ein Programm die Nullstellen berechnet.

Der erste Wert ist p und der zweite q. Nach dem Drücken auf den Button werden die Anzahl und die Punkte der Nullstellen angezeigt.

procedure abc(p,q:integer); begin if ((((p*p)/4)-q) >0) then writeln('2 Nullstellen'); if ((((p*p)/4)-q) >0) then writeln((p/2-sqrt(((p*p)/4)-q))); if ((((p*p)/4)-q) >0) then writeln((p/2+sqrt(((p*p)/4)-q))); if ((((p*p)/4)-q) =0) then writeln('1 Nullstellen'); if ((((p*p)/4)-q) =0) then writeln((p/2)); if ((((p*p)/4)-q) <0) then writeln('keine Nullstellen'); end;

abc(0,-1)

ausführen

Hier geht es zurück zu Anselm[1]!