רוטר - בעיה עם קוד מקור בPASCAL -דיי קל

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

"בעיה עם קוד מקור בPASCAL -דיי קל"

גירסת הדפסה

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

אשכול מספר 12612

Kwain

22:04 25.10.05

בעיה עם קוד מקור בPASCAL -דיי קל

המטרה היא:
כתוב תוכנית הקולטת מספרים כלשהם
ותרשום כמה מספרים גדולים מ100
והספרה הסופית תיהיה 0

עכשיו זה הקוד שלי
program varon;
var
cobi,cb,yayi:integer;
begin
while cobi<>0 do
begin
yayi:=0;
writeln('ten ta mispar');
readln(cb);
if cb>100 then
yayi:=yayi+1;
if cb=0 then
cobi:=0;
end;
readln;
end.

מה הבעיה בדיוק
ותודה על העזרה

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
והבעיה היא שהוא פשוט לא שואל אותי מה המספרים	Kwain	25.10.05 22:06	1
טעויות:	Yoni	25.10.05 22:10	2
אממ	Kwain	25.10.05 22:15	3
ככה בעקרון התכנית אמורה להראות	מלאך המוות	28.10.05 15:56	4
יותר נכון יהיה להשתמש בלולאת Do Until...	Dudenland	30.10.05 10:23	5

Kwain

22:06 25.10.05

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

ולא מבצע את מה שבWHILE

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות

22:10 25.10.05

2. טעויות:
בתגובה להודעה מספר 0

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

נ.ב.
אין שום דבר חכם במתן שמות סתמיים למשתנים.
עדיף לתת שם משמעותי ולא להתבלבל אח"כ.

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

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

Kwain

22:15 25.10.05

3. אממ
בתגובה להודעה מספר 2

כן צודק עכשיו עובד לי

ובנב
אממ
יש בזה משהו. .

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

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

מלאך המוות

15:56 28.10.05

4. ככה בעקרון התכנית אמורה להראות
בתגובה להודעה מספר 0

ערכתי לאחרונה בתאריך 28.10.05 בשעה 16:02 בברכה, מלאך המוות

program varon;
var
cb,yayi:integer;
begin
yayi:=0
writeln('ten ta mispar');
readln(cb);
while cb<>0 do
begin
if cb>100 then
yayi:=yayi 1;
writeln('ten ta mispar');
readln(cb);
end;
readln;
end.

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

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

Dudenland

10:23 30.10.05

5. יותר נכון יהיה להשתמש בלולאת Do Until...
בתגובה להודעה מספר 0

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

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