שלום,

אני עושה עבודה של מחשבון בפסקל,

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

שהתוכנה תקלוט רק מספרים...

אין לי מושג איך לעשות את זה...

*דחוף דחוף דחוף!!!

*** עדיף באי סי קיו 91827226

תודה

אדם

לא הבנתי את הבעיה,

פשוט תוסיף תנאי בלולאה שאם זה לא מספר שיקלוט מחדש...[אל תקלוט לתוך משתנה מטיפוס שלם כדי שזה לא יעשה שגיאה כשאתה מכניס אות למשל].

או לחלופין לקלוט את המספרים תו תו ולא להתייחס לתוים שלא מייצגים ספרות.

הלואי עלי בעיות מימוש... אני שונא עצים!:-\

הייתי חייב להגיד את זה

הרי ספרות מיוצגות ע"י קוד אסקיי מסויים (כלומר תחום מסויים) תבדוק שהקלט הוא בין X מסויים (בקוד אסקיי) ל-Y וזהו. אתה יכול לממש את זה או ב-while או ב-if רגיל.

תודה אבל הצלחתי... השתמשתי בstring ובפקודת val כדי להעביר לאינטג'ר

program sinon;

uses crt;

var a:string; b, c, opt:integer;

Begin;

clrscr;

readln(a);

val(a,b,c);

while (c<>0) or (b<0) or (b>11) do {SINON}

begin {while}

clrscr;

write('Please input a number: ')

readln(a);

val(a,b,c);

end; {while}

opt:=b;

end.