רוטר - צריך קצת עזרה בפרוצדורה בפסקל בבקשה (פשוט)

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"צריך קצת עזרה בפרוצדורה בפסקל בבקשה (פשוט)"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7748	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 7748

MO

דרג אמינות חבר זה

22:49 10.01.04

צריך קצת עזרה בפרוצדורה בפסקל בבקשה (פשוט)

ערכתי לאחרונה בתאריך 10.01.04 בשעה 22:54 בברכה, MO

עשיתי מקודם פונקציה שעושה חיבור וזמה את התוצאה בתוך ערך מסוים.. עכשיו אני רוצה לעשות פרוצדורה שעושה את החיבור.. ואני צריך עזרה פה בבקשה
זאת פרוצדורה ראשונה שלי..
והנה הפונקציה שE-DO עזר לי מקודם: http://n.rotter.net/nor/prog/7745.shtml
וזאת הפרוצדורה:

program hiburProcedure;
uses crt;
var num1,num2,d:longint;
procedure hibur(a:integer; b:integer);
var ziun:longint;
begin
ziun:=a+b;
end;
begin
clrscr;
writeln('type num1');
readln(num1);
writeln('type num2');
readln(num2);
d:=hibur(num1,num2)
writeln(d);
readln;
end.

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
הטעות שלך היא שאתה מתייחס ךלפרוצדורה	E-do	10.01.04 23:52	1
יש אלטנרטיבה אחרת	dryice	11.01.04 00:00	2
מה זה BY REFERENCE? תדפיס את התוכנית עם התיקו	MO	11.01.04 00:16	3
העברה by refernce	dryice	11.01.04 00:22	4

E-do
חבר מתאריך 29.10.03
2160 הודעות, דרג אמינות חבר זה

23:52 10.01.04

1. הטעות שלך היא שאתה מתייחס ךלפרוצדורה
בתגובה להודעה מספר 0

כמו לפונקציה.
פרוצדורה לא מחזירה ערך!
לכן אם אתה רוצה להוציא ערך מפרוצדורה, אתה חייב לאכסן אותו בתוך משתנה גלובלי.
כלומר, בסוף הפרוצדורה תכניס את ziun לתוך d.

-----------------
בברכה,
e-do

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

dryice

דרג אמינות חבר זה

00:00 11.01.04

2. יש אלטנרטיבה אחרת
בתגובה להודעה מספר 1

והיא לשלוח את המשתנה אליו תוצב התוצאה by reference
אל הפרוצדורה ואז היא תציב אליו.
משתנים גלובאלים נחשבים לרוב לתכנות לא יפה, וראוי להשקיע
מאמצים סבירים בשביל להמנע מהם.

DRYICE

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

MO

דרג אמינות חבר זה

00:16 11.01.04

3. מה זה BY REFERENCE? תדפיס את התוכנית עם התיקו
בתגובה להודעה מספר 2

עם התיקון שלך בבקשה.. תודה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

dryice

דרג אמינות חבר זה

00:22 11.01.04

4. העברה by refernce
בתגובה להודעה מספר 0

תיקון קל, עד כדי כך שאני לא זוכר פסקל.

program hiburProcedure;
uses crt;
var num1,num2,d:longint;
procedure hibur(a:integer; b:integer;var ziun:longint);

begin
ziun:=a+b;
end;
begin
clrscr;
writeln('type num1');
readln(num1);
writeln('type num2');
readln(num2);
hibur(num1,num2,d)
writeln(d);
readln;
end.

הייתי מסביר יותר(ושמישהוא יעשה זאת בבקשה) אבל אני קם מוקדם מחר והולך לישון.
DRYICE

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד