פסקל - לולאות

[Gil-S]

שלום לכם,

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

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

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

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

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

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

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

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

[דור]

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

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

[Gil-S]

נכתב במקור על ידי דור בן עמי

אתה צריך לעבור עם לולאה 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]

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

[intercooler3819]

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

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

[Gil-S]

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

ההוראה היא:
"כתוב תוכנית הקולטת 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]

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

[Gil-S]

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

[daMn]

נכתב במקור על ידי Gil-S

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

בכיף

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.

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