רוטר - עזרה בפסקל

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

"עזרה בפסקל"

גירסת הדפסה

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

אשכול מספר 8335

Gritzman
חבר מתאריך 18.3.02
416 הודעות, דרג אמינות חבר זה

18:28 19.11.02

עזרה בפסקל

בהוראת CASE
ניתן לקבוע שאם
הקלט הוא M
אז זה יעשה
M: countM+1;
?
או שחייב מספר במקום ה M?

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
זה מה שעשת ולא עובד לי	Gritzman	19.11.02 19:05	1
שתי בעיות	liranr	19.11.02 19:20	3
לא עובד	Gritzman	19.11.02 19:25	4
אתה עשית...	gil_soffer1	20.11.02 10:45	5
לא כל הבנתי, זה לא יצא ברור	liranr	19.11.02 19:10	2

Gritzman
חבר מתאריך 18.3.02
416 הודעות, דרג אמינות חבר זה

19:05 19.11.02

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

program tar7;
var
countB,countM,countH:integer;
s,team:char;
begin
countM:=0;
countH:=0;
countB:=0;
writeln('enter the letter that your basketball team start with');
readln(team);
while team <> S do
begin
case team of
m: countM+1;
b: countB+1;
h: countH+1;
writeln('enter the letter that your basketball team start with,type S to stop');
readln(team);
end;
writeln(m ,' support maccabi');
writeln(b , 'support beitar');
writeln(h, 'shupport hapoel');
end.

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

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

liranr

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

19:20 19.11.02

3. שתי בעיות
בתגובה להודעה מספר 1

הראשונה היא שאתה משווה את team לתו ולכן אתה צריך לרשום 'm' ולא m (כשאתה רושם
m הכוונה היא לשמתנה בשם m שכמובן אינו קיים)
בעיה השניה היא שבהדפסה אתה אמור להדפיס את countM,countB,countH ולא את
m,b ו-h

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

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

Gritzman
חבר מתאריך 18.3.02
416 הודעות, דרג אמינות חבר זה

19:25 19.11.02

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

עדיין לא עובד שאני רושם 'M'
ובהדפסה: ה countM
נכנס ל M(לפחות זה מה אני מנסה לעשות...)

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

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

gil_soffer1

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

10:45 20.11.02

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

בדקת אם team שווה לפרמטר m ואם כן countM+1
אותו דבר גם ל b ו h
הטעויות:
א) אני מאמין שאין פרמטרים m b ו h, ואתה רוצה לבדוק אם בteam יש את האותיות m b או h. כדי להראות שזה מחרוזת צריך לשים '' מסביב למחרוזת, ככה: 'm'.
ב) אין פקודה כזאת countM+1 ואני די בטוח שניסית לשים בcountM את countM+1, ז"א להעלות את ערכו של countM ב 1 (same גם לcountB ו countH).
ג) יש לך משתנה מיותר ושמו S.
ד) אמרת שם שכל עוד team שונה מ s (פרמטר) בצע בלה בלה. אבל אני רואה שהבקשה שלך זה שכשהמשתמש רוצה לסיים הוא מכניס את האות S. כמו מיקודם חסר לך '' סביב הS. זה אמור להראות while team <> 's' do.
ה) לא סגרת את פקודת הcase עם end.
ו) בסוף התכנית רצית להדפיס את ערכי m b ו h. אבל אין כאלה משתנים! בטוח התכוונת לcountM countB ו countH.
===
תיקון:
===

program tar7;
var
countB,countM,countH:integer;
team:char;
begin
countM:=0;
countH:=0;
countB:=0;
writeln('enter the letter that your basketball team start with');
readln(team);
while team <> 'S' do
begin
case team of
'm': countM := countM+1;
'b': countB := countB+1;
'h': countH := countH+1;
end;
writeln('enter the letter that your basketball team start with,type S to stop');
readln(team);
end;
writeln(countM, ' support maccabi');
writeln(countB, ' support beitar');
writeln(countH, ' shupport hapoel');
end.

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

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

liranr

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

19:10 19.11.02

2. לא כל הבנתי, זה לא יצא ברור
בתגובה להודעה מספר 0

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

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

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