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



הבעיה היחידה שלא הצלחתי תודה

באיזה שפה אתה צריך את זה?

איפה פה הבעיה? נשמע כאילו השאלה מוגדרת היטב....

ואם סתם רצית להודיע שזאת השאלה היחידה שלא הצלחת אז חבל....תתאמץ יותר ותצליח גם אותה.

בפסקל

יצא לי ככה זה נכון?

function memuza(a,b:integer):integer;
var
avg,sum:integer;
begin
sum:=0;
sum:=a+b;
avg:=sum/2
end;

לשנות משהו?

ציטוט:

במקור נכתב על ידי דורהמיפה בפסקל יצא לי ככה זה נכון? function memuza(a,b:integer):integer; var avg,sum:integer; begin sum:=0; sum:=a+b; avg:=sum/2 end; לשנות משהו?

כמה הערות,
בתחילת התוכנית אתחלת את המשתנה sum ל 0. אתה לא צריך לעשות את זה בגלל שגם ככה שורה אחר כך אתה מאתחל אותו לערך של 2 המשתנים שקיבלת..
שנית, המשתנה avg שאמור לקבל את תוצאת הממוצע מוגדר בתור Integer. זה לא כל כך נכון בגלל שמשתנשים מסוג integer יכולים להכיל רק מספרים שלמים, למשל אם תעשה 4\3 אז התוצאה תהיה 1..
אתה צריך לשנות אותו לטיפוס שתומך במספרים עשרוניים, אני כבר לא בטוח איך קוראים לו בפסקל, יכול להיות real..

function memuza(a,b:integer):integer;
var
avg:real;
sum:integer;
begin
sum:=a+b;
avg:=sum/2
end;

הבנתי תודה
עכשיו זה בסדר?
אבל לא הבנתי כל כך למה שמתי את a וb בתור הפרמטרים\ זה אולי בכלל שאחרי שאני אכתוב את התוכנית זה יראה ככה ההמשך

begin
var
num1 num2:integer;
avg:=memuza(a,b)
writeln(avg,הממוצע ביניהם)
end.

ציטוט:

במקור נכתב על ידי דורהמיפה function memuza(a,b:integer):integer; var avg:real; sum:integer; begin sum:=a+b; avg:=sum/2 end; הבנתי תודה עכשיו זה בסדר? אבל לא הבנתי כל כך למה שמתי את a וb בתור הפרמטרים\ זה אולי בכלל שאחרי שאני אכתוב את התוכנית זה יראה ככה ההמשך begin var num1 num2:integer; avg:=memuza(a,b) writeln(avg,הממוצע ביניהם) end.

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

חח תודה על העזרה שלך!

function memuza(a,b:integer):real;


הנה

ואני יכול לשים את avg גם בפונקציה וגם בתוכנית?

תוסיפי memuza:=avg; בסוף הפונקציה. זה יחזיראת avg, ככה זה בפסקל.
ואת יכולה להשתמש באותו שם משתנה גם בפונקציה וגם בראשית, אבל את צריכה להצהיר עליו גם כמשתנה לוקאלי בפרוצדורה הראשית...

Any sufficiently advanced bug is indistinguishable from a feature

עכשיו עוד בעיה

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




for i:=1to 50 do
writeln (הקש מספר)
read(a,b)
function ---->הפונקציה שכתבתי בהודעה לפני

end;
avg:=memuza(a,b)
writeln(avg)
end.

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

program mesparim;
var
avg:real

function memuza(a,b:integer):real;
var
avg:real;
sum:integer;
begin
sum:=a+b;
avg:=sum/2
;end
for i =:1 to 50 do
writeln (הקש מספר)
read(a,b)
end;
avg:=memuza(a,b)
writeln(avg)
end.



עכשיו הכל בסדר??? כל התוכנית במלואה?

קוד:

 begin

var
a,b,i:integer;
avg:real;
for i:=1 to 50 do
begin
write('enter 2 numbers:');
readln(a,b);
avg:=memuza(a,b);
writeln(avg,'הממוצע ביניהם: ');
end;
end.

Any sufficiently advanced bug is indistinguishable from a feature

אבל איפה הפונקציה פה?

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

קוד:

function memuza(a,b:integer):real;
var
avg:real;
sum:integer;
begin
sum:=a+b;
avg:=sum/2;
memuza:=avg;
;end  

Any sufficiently advanced bug is indistinguishable from a feature

var
a,b,i:integer;
avg:real;

function memuza(a,b:integer):real;
var
avg:real;
sum:integer;
begin
sum:=a+b;
avg:=sum/2;
memuza:=avg;
;end
for i:=1 to 50 do
begin
write('enter 2 numbers:');
readln(a,b);
avg:=memuza(a,b);
writeln(avg,'הממוצע ביניהם: ');
end;
end.



ככה צריך להיות סופי סופי נכון?

Any sufficiently advanced bug is indistinguishable from a feature