Name: Prophet Mohammed 2007-05-14 6:20 ID:9CjgoSXj
Stop now! Programming is forbidden!
)*
!! الشكل العام للمعادلة آ س^2 + ب س + ج =0
المتحول آ، ب، ج : حقيقي
المتحول م، س1، س2 : حقيقي
أكرر طالما صواب
{
أكتب "أدخل آ ب ج (أدخل 0 قيمة لـ آ كي تنهي البرنامج) : "
أقرأ آ ، ب ، ج
إذا آ = 0 أنتهي
أكتب " المعادلة: " ، آ ، " س^2 "
إذا ب > 0 أكتب " + "
أكتب ب ،" س "
إذا ج > 0 أكتب " + "
أكتب ج ، " = 0" ، سطر
أجعل م = ب^2 - 4× آ × ج
أكتب " المميز = "، م ، سطر
إذا (م<0)
أكتب "المعادلة مستحيلةالحل !"، سطر
وإلا
{
أجعل س1 = (-ب + جذر(م)) ÷ (2×آ)
أجعل س2 = (-ب - جذر(م)) ÷ (2×آ)
أكتب " حل المعادلة: "،سطر
أكتب "س1 = "، س1 ، سطر
أكتب "س2 = " ، س2 ، سطر
}
}