PMG/Kurs 1214/eigene Übungen/Anselm/Hallo

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
'''Hallo'''
Es ist doch schön, wenn ein Programm die Nullstellen berechnet.

<code id="519a70b2e8a93" hidden>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;</code>

<run id="519a70b2e8b39">abc(0,-1)</run>

Hier geht es zurück zu Anselm [[programmingwiki.de/PMG/Kurs_1214/eigene_%C3%9Cbungen/Anselm]]!