Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  QuadGleLoeValSel
Language: PASCAL
Code:
PROGRAM LoesungQuadratischeGleichung;   
USES Crt;   
VAR Ergebnis1,Zahl1,Zahl2,Zahl3,Ergebnis2: Extended;   
BEGIN   
Write ('Gebe die 1. Zahl ein:');     
Read (Zahl1);  
Write ('Gebe die 2. Zahl ein:');   
Read (Zahl2);   
Write ('Gebe die 3. Zahl ein:'); 
Read (Zahl3);  
Ergebnis1:=(-Zahl2-sqrt(Zahl2*Zahl2-4*Zahl1*Zahl3))/(2*Zahl1); 
Ergebnis2:=(-Zahl2+sqrt(Zahl2*Zahl2-4*Zahl1*Zahl3))/(2*Zahl1);   
Writeln ('Das Ergebnis1 der quadratischen beträgt:', Ergebnis1:5:1);  
IF Ergebnis1<>Ergebnis2 THEN Writeln ('Das Ergebnis2 der quadratischen beträgt:', Ergebnis2:5:1);     
Write ('Taste drücken um zu beenden...');   
ReadKey;   
END.       
          
Comments: