Pascal segítség elágazások terén?
Üdv, az a problémám, hogy írtam egy kezdetleges programot, ami kiszámolja a másodfokú egyenleteket, de nem tud negatív x1;x2-vel mit kezdeni, kilép. Erre egy If Else elágazást szeretnék megoldásként ráilleszteni, hogy mielőtt kiszámolja a végét nézze meg a gyök alatti rész "reszeredmeny" változó értékét, és ha kisebb mint 0 írjon ki egy sort és érjen véget.
A kérdésem az, hogy hogyan kell elkészíteni úgy ezt a modult?
If (elvégzem a műveletet)
Then(ide kellene segítség, nem tudom hogyan kellene írni hogy jó legyen)
Else(ez természetesen a szokásos megoldással folytatná)
válasza:Szia.
if DISZKRIMINANS<0 then begin
// Igaz ághoz tartozó utasitások pl. :
writeln ('Negativ a gyok alatti kifejezes ! Az egyenletnek nincs megoldasa');
end
else begin
// Hamis ághoz tartozó utasitások
if DISZKRIMINANS=0 then begin
writeln ('Az egyenletnek egy gyoke van :', X1);
end
else begin
writeln ('Az egzenletnek ket gyoke van X1 :',X1,' es X2 :',X2);
end;
end ;
Természetesen DISZKRIMINANS ést X1, X2 változókat ki kel számoltatni.
Sok sikert.
Üdv.
Így értem, nagyon köszönöm, ment a zöld.
Ott hibáztam, hogy nem csináltam begin-t és a végén nem zártam le end-el az egészet csak a lehetőségeket külön-külön.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!