Pascal-ban miként lehet olyan programot írni, amely megold egy másodfokú egyenletet?

Itt megtalálod a képletet:

[link]

el kell ágaznod a diszkriminináns értékei szerint. Ha pozitív, két gyök van, kiszámolod. Ha nulla, akkor egy kettős gyök van, a diszkriminináns nélkül számolhatod. Ha negatív, akkor vagy okos vagy, és komplex számokat számolsz, vagy ha nem vagy olyan okos, akkor kiírod, hogy nincs valós gyök.

1*x2 + 0*x + (-5) = 0

Akárhogy is nézem itt az együtthatók 1, 0, -5.

Ezt a három számot kell bekérni. Mennyi x2-ed van, mennyi x-ed, és mennyi konstansod. Ez a három szám lesz a megoldóképletben az 'a', 'b' és 'c'. A megoldóképletet pedig úgy használod ahogy a #2 írta.

#3: #1 együtthatókat írt, az pedig a esetében egy. Mert mik is a másodfokú egyenlet együtthatói?

a*x^2 + b*x + c=0 (másodfokú egyenlet általános alakja) esetén a, b, c.

Általad írt esetben pedig a=1, b=0, c=-5.

De ahogy nézem, wikipedián ezek is fent vannak.

A #2 hozzászólás alapján, a Pascal 'nagytestvérében', Delphi-ben készült:

[link]

Ez pedig a forrás ha tovább szeretnéd fejleszteni:

[link] ne mond, hogy nem támogatjuk a feltörekvő ifjúságot.