הוסטס - פורום אחסון האתרים הגדול בישראל

הוסטס - פורום אחסון האתרים הגדול בישראל (https://hosts.co.il/forums/index.php)
-   פורום תיכנות (https://hosts.co.il/forums/forumdisplay.php?f=14)
-   -   פסקל - לולאות (https://hosts.co.il/forums/showthread.php?t=73585)

Gil-S 14-04-09 17:55

פסקל - לולאות
 
שלום לכם,

לצערי, עקב חג הפסח ובשל המובטלות שלי לא לעשות כלום, שכחתי קצת את החומר.

אשמח אם תזכירו לי.. אפילו מילולית והגיונית..מה לפני, מה אחרי...

אז ככה, ההוראה היא כזו:

"כתוב תוכנית הקולטת חמישה ציונים ומדפיסה את כל הציונים הגבוהים מ-80"

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

לבקש ציונים, לולאה.. for i:=1 to 5 ואז לקבל אותם ואז אני עושה תנאי "אם ציון גדול מ80"

אך משום מה הוא מדפיס לי את הציון האחרון..

אשמח למעט עזרה, מיואש כבר.. תודה מראש
|עצוב|
|לב|

דור 14-04-09 18:02

אתה צריך לעבור עם לולאה 5 פעמים ולקלוט 5 פעמים.. כל פעם אחרי הקליטה אתה צריך לעשות את התנאי, אם הוא true תדפיס

אם תביא קוד זה מאוד יעזור

Gil-S 14-04-09 18:09

ציטוט:

נכתב במקור על ידי דור בן עמי (פרסם 708741)
אתה צריך לעבור עם לולאה 5 פעמים ולקלוט 5 פעמים.. כל פעם אחרי הקליטה אתה צריך לעשות את התנאי, אם הוא true תדפיס

אם תביא קוד זה מאוד יעזור

מה שאתה אומר זה שאני צריך לעשות read חמש פעמיים?


בכל מקרה, זה הקוד שעשיתי..

קוד:

program EXA_2;
var
i,zion:integer;
begin
writeln ('Give Zion');
for i:=1 to 5 do
begin
readln (zion);
if zion > 80 then writeln (zion);
end
end.


Mystic 14-04-09 19:01

עשית את הקוד נכון, זה אמור לעבוד אם אני זוכר נכון פסקל.

intercooler3819 14-04-09 19:34

מה שכתבת אמור לרוץ AFAIK

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

Gil-S 15-04-09 16:59

הסתדרתי עם הקודם.. אבל נתקעתי בזה:

ההוראה היא:
"כתוב תוכנית הקולטת 18 זוגות מספרים ומדפיסה את מספר הזוגות בהם המספרים היו זהים זה לזה"

עכשיו מה שעשיתי זה קלטתי את הזוגות.. עם לולאת FOR, ואני מתקשה לעשות אחרי שהוא קלט שיציג לי ברשימה מה זהה.. אני מצליח רק אחרי כל אחד אם זהה או לא.

איך עושים שיהיה ברשימה?

זה הקוד שעשיתי עד כה:
קוד:

program EXXX;
var
i,num,num1:integer;
begin
writeln ('ten 18 zugot');
for i:=1 to 18 do
readln (num,num1);
begin
if num = num1 then
writeln (num,num1);
end;
end.


daMn 15-04-09 19:52

שים לב שbegin של הלולאה שלך נמצא אחרי הreadln, שים את הreadln אחריו, בכ"מ אתה צריך משתנה ספירה, אז תאפס משתנה ספירה ותוסיף כל פעם אחד אם num שווה לnum1.

Gil-S 15-04-09 21:38

אני לא מצליח לעשות משתנה ספירה (צובר\מונה). יש מצב לדוגמא?

daMn 16-04-09 01:12

ציטוט:

נכתב במקור על ידי Gil-S (פרסם 709019)
אני לא מצליח לעשות משתנה ספירה (צובר\מונה). יש מצב לדוגמא?

בכיף ;P

קוד:

program example(input, output);
var
        count:integer;
begin
        count:=0;
        for (i:=1 to 100 do)
        begin
                count:=count+1;
        end;
        writeln('the counter count: ',count);
end.

סלח לי אם יש שגיאות סיטנקס בפסקל, מלא זמן לא נגעתי בזה.


כל הזמנים הם GMT +2. הזמן כעת הוא 16:13.

מופעל באמצעות VBulletin גרסה 3.8.6
כל הזכויות שמורות ©
כל הזכויות שמורות לסולל יבוא ורשתות (1997) בע"מ