רוטר - עזרה בפסקל.. תרגיל מעצבן...

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

"עזרה בפסקל.. תרגיל מעצבן..."

גירסת הדפסה

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

אשכול מספר 7170

onissan

חבר מתאריך 13.4.03
47790 הודעות, 10 פידבק

21:33 25.03.04

עזרה בפסקל.. תרגיל מעצבן...

נלקח מבגרות קיץ 96:
שאלה 7.
בית ספר נערך להקמת רשת תקשורת מחשבים עם בתי התלמידים. לשם כך הפיץ שאלונים
ואסף נתונים על מספר התלמידים שיש להם בבית מחשב ומודם.
לכל אחד משני הפריטים האלה סימן כל תלמיד בשאלון את הסימון:
1 - יש בביתו פריט כזה
או
0 - אם אין בביתו פריט כזה.
א.
כתוב תוכנית,שתקלוט את הנתונים שנאספו מ-700 שאלונים.
התוכנית תמנה ותדפיס את מספר התלמידים שיש בביתם מחשב וגם מודם.
ב. תן דוגמא לקלט לא תקין.
הסבר במילים, אילו בדיקות תקינות קלט יש לבצע בתוכנית.ץ

קשהההה

תודה

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
ניסן זה ממש קל	KG	26.03.04 05:00	1

05:00 26.03.04

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

SUM:=0
FOR I:=1 TO700 DO
BEGIN
WRITELN(הכנס 1 ליש 0 לאין);
READLN (A);
IF A=0 THEN SUM:=SUM+1;
END;
WRITELN )SUM(

קלט לא תקין יהיה מספר ששונה מ 0 או 1
צריך לעשות בדיקה שהקלט יהיה 0 או 1
צריך להוסיף לפני הIF הראשון
IF A<=1 AND A>=0
then
if...
else writeln (קלט שגוי)
או שאפשר להוסיף ללולאת REPEAT UNTIL
אחרי משפט הFOR
repeat
writeln(insert number)
readln (a)
until a<=1 and a>=0
בהצלחה

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

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