program yakir;
uses crt;
var
x1,x2,a,b,c:real;
begin
clrscr;
writeln('a:');
readln(a);
writeln;
writeln('b:');
readln(b);
writeln;
writeln('c:');
readln(c);
x1:=((-1)*b+sqrt(sqr(b)-4*a*c))/2;
x2:=((-1)*b-sqrt(sqr(b)-4*a*c))/2;
if (sqr(b)-4*a*c>0)
then begin
     writeln('X1=', x1:7:3);
     writeln('X2=', x2:7:3);
     end;
if (sqr(b)-4*a*c=0)
then writeln('X=', x1:7:3);
if (sqr(b)-4*a*c<0)
then writeln('No result!');
readln(a);
end.

הנה פירוט על מה שהתוכנית עושה:

1. קולטת את b, a ו-c.
2. עושה חישוב של הנוסחה ושמה את התוצאה ב-x1 (כאשר יש + בין b- לשורש).
3. עושה חישוב של הנוסחה ושמה את התוצאה ב-x2 (כאשר יש - בין b- לשורש).
4. אם הביטוי שמתחת לשורש הוא חיובי אז מדפיסה את x1 ואת x2.
5. אם הביטוי שמתחת לשורש הוא שווה ל-0 אז מדפיסה רק את x1 (כי שניהם יהיו שווים בכל מקרה).
6. אם הביטוי שמתחת לשורש שלילי אז מדפיסה "אין פיתרון!".

עכשיו, כשאני למשל נותן ב-a ערך שהוא גדול מ-1 אז זה נותן לי את הודעת השגיאה הבאה:

Error 207: Invalid floating point operation

מישהו אולי יכול להסביר לי מהי הטעות שלי?
אני די מתחיל בפסקל אז השתמשו בשפה הדיוטית בבקשה