[עזרה] בתכנות פסקל - משוואה ריבועית...

[אור.]

כל מי שיודע פסקל...
תראו...התבקשתי לבנות תוכנית שתקבל משתנים A,B,C ותציג את X1 וX2 יענו של המשוואה הריבועית..
אני עשיתי משהו...אבל הוא לא עובד ואני לא מבין למה....

הינה מה שאני עשיתי...

http://www.mytempdir.com/222978

בבקשה תעזרו לי

[הקוסם האפל]

Program daf3sheela6; (*challenge - shorashim*)
Uses crt;
Var
a,b,c:integer; {parameters}
x1,x2:real; {totzaot}

Begin
clrscr;
writeln ('enter the a');
readln (a);
if a=0 then {a can not be 0}
writeln ('a can not be 0')
else
writeln ('enter the b');
readln (b);
writeln ('enter the c');
readln (c);
if (sqr(b)-4*a*c)=0 then {pitaron 1 if delta=0}
begin
x1:= (-1*b)/2;
writeln ('x= ',x1:4:2);
end
else
if (sqr(b)-4*a*c)<0 then {the sqrt can not be negativ}
begin
textcolor (203);
writeln ('no answer');
end
else
begin {the usuall case}
x1:= ((-1*b)+sqrt(sqr(b)-4*a*c))/2;
x2:= ((-1*b)-sqrt(sqr(b)-4*a*c))/2;
writeln ('x1= ',x1:4:2);
writeln ('x2= ',x2:4:2);
end;
readkey;
End.

[אור.]

OMG אחי...אני כאילו דיי מבין מה רשמת...עם כל הIF והכל...אבל זה נראה לי קצת ברמה יותר גבוהה ממה שאני יודע...אתה בטוח שאתה לא בC או משהו?

[הקוסם האפל]

ממש לא..
תעתיק את זה לפנקס רשימות...
כל מה שבסוגריים מסולסלים זה תיעוד..
יצרתי פתרונות למקרה שA=0 ושהדלתא שווה לאפס (פתרון אחד) ושדלתא שלילית (אין פתרון).
אם אתה לא מבין משהו תשאל..

[אור]

אחי אתה סיבכת לו פה ת'אמאמאמא...
יש פה לפי דעתי הרבה דברים שלומדים רק בהמשך.. כתבת פה תוכנית לא קטנה ודיי מסובכת אני דיי בטוח שיתנו לי את זה בעתיד אז תודה על התוכנית :]

[הקוסם האפל]

ABC מספרים שלמים
X1 X2 אלה התוצאות

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

אור אני מקווה שתהנה מהתוכנית, בשביל זה נתתי אותה =]

[Doronz]

 Program Doronz; 
 
Var
 
a,b,c,D,x1,x2:real;
 
Begin
 
Readln(a,b,c);
if a=0 wrtieln ('Wrong perimeter') else begin
D:=sqr(b)-4*a*c
if D<o then wrtieln ('No real radicals') else begin
D:=sqrt(D);
x1:=(-2*b+D)/2*a;
x1:=(-2*b-D)/2*a
end;
end;
if x1=x2 then wrtieln ('The value of x1 and x2 is ', x1') else begin
Wrtieln('The value of x1 is ', x1, ', and the value of x2 is ', x2);
end;
End

.

לדעתי הכל מובן וקצר
תהנה

אם אתה צריך עזרה.. בוא אלי לפרטי אני אעזור לך בכיף.

[אור]

מה זה sqr ? ו sqrt ?

[הקוסם האפל]

מה זה sqr ? ו sqrt ?

SQR זאת הפקודה להעלות משהו בריבוע.
SQRT זה לעשות ממשהו שורש.

[Doronz]

SQR זאת הפקודה להעלות משהו בריבוע.
SQRT זה לעשות ממשהו שורש.

בדיוק..

[Aviad]

אחי אפשר לעשות את זה אפילו יותר יפה, עם סטרינגים בכלל ואז לעשות שקלט משתמש יהיה ממש
aX^2 + bX + c
ואז זה הרבה יותר יפה אבל גם מסובך חחח
וכמובן שהנוסחא לפיתרון משוואה ריבועית ודיסקרמינטטה פועלות על משוואות ריבועיות גם מהצורה:
aX^4 + bX^2 + c
אז בכלל אפשר לעשות משהו יפה...

[Doronz]

אחי אפשר לעשות את זה אפילו יותר יפה, עם סטרינגים בכלל ואז לעשות שקלט משתמש יהיה ממש
aX^2 + bX + c
ואז זה הרבה יותר יפה אבל גם מסובך חחח
וכמובן שהנוסחא לפיתרון משוואה ריבועית ודיסקרמינטטה פועלות על משוואות ריבועיות גם מהצורה:
aX^4 + bX^2 + c
אז בכלל אפשר לעשות משהו יפה...

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

[n.d.s]

וואי איזה בלגאן נהיה פה... איזה כיתה אתה בכלל שאתה לומד ברמה כזאת פסקל?

[Aviad]

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

אתה צודק לגבי החלק של המשוואה הדו ריבועית...
אבל למה לסבך? כי זה כיף... (: