היי כתבתי תוכנית שפותרת משואות ריבועיות (x^2+5x+4) לדוגמא , הבעיה היא שכשאני משתמש בפקודת ה sqrt
הוא כותב לי שגיאה כאשר אין שורש שלם , למרות שהמשתנה שאליו אני מכניס את התוצאה הוא מוגדר כ real.
מה עליי לעשות ?? בתודה מראש לעוזרים

עם צריבה בלב, אחרי למעלה מ-3 שנים שלא נגעתי בזה, פתחתי היום בשבילך את הקומפיילר הזה...
בכל אופן, אם תצרף את הקוד שלך, נוכל לעזור לך יותר.
הקוד הזה שבניתי (משהו לחלוטין טריביאלי) עובד ומתקמפל...
נסה לחשוב מה אתה עושה לא נכון או שתצרף את הקוד שלך.

קוד:

program test;
var
	x,ans:real;
	i,c:integer;
begin
	 x:=5;
	 i:=2;
	 c:=3;
	 writeln('The value of X is: ',x:5:2,', and the value of i is ',i);
	 ans:=sqrt(sqr(x)+i*x+c);
	 writeln('bla bla bla', ans);
	 readln;
end.

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

program fresh;

var
a , b ,c ,r :integer;
s , ansx1 , ansX2 :real;
begin
c:=1;
a:=1;
b:=1;
writeln('give me plz the X');
readln(a);
writeln('give me plz the B');
readln(b);
writeln('give me plz the C');
readln(c);
s:= sqrt((sqr(b))-((4*(a)*(c))));
ansX1:=((-b)+(s))/2;
ansX2:=((-b)-(s))/2;
writeln('the answer for X1 is : ',ansX1);
writeln('the answer fir X2 is : ',ansX2);
readln(r);
end.



אם תריץ את התוכנית הזאת ולא תתן ערכים שבשורש יהיה שורש שלם התוכנית תכתוב שגיאה!!
איך אני מסדר את זה

תיבדוק אם הוכנס ערך...

אם אתה מקבל שגיאה: Invalid Floating Point Operation
אז זה בגלל שפסקל לא יודע לעבוד עם מספרים מרוכבים!
לפני הקריאה לפקודה:

קוד:

 s:= sqrt((sqr(b))-((4*(a)*(c))));

תוסיף עוד פקודת בדיקה:

קוד:

if (sqr(b)-((4*(a)*(c))) < 0) then

ותציג הודעת שגיאה שהדיסקרמיננטה קטנה מ-אפס, ולכן אין שורשים ממשיים, או לחלופין תבצע את הפעולה יחד עם הוצאת השורש המרוכב i והיפוך הסימן בתוך השורש.

הנה לך דוגמת הרצה, כולל שורשים אי-רציונאליים.

קוד:

D:\pascal\TPascal\BIN>turbo
Turbo Pascal  Version 7.0  Copyright (c) 1983,92
give me plz the A
2
give me plz the B
9
give me plz the C
4
the answer for X1 is : -1.0000000000E+00
the answer fir X2 is : -8.0000000000E+00

r
Runtime error 106 at 0BF4:0231.
give me plz the A
2
give me plz the B
4
give me plz the C
1
the answer for X1 is : -5.8578643763E-01
the answer fir X2 is : -3.4142135624E+00

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

סודר ! איך לא חשבתי על זה לפני זה!!!!!! תודה