1. כתוב תוכנית הקולטת מספרים חיוביים ושליליים ומחשבת את סכומם המצטבר. הקלט יסתיים במספר 999. התוכנית תחשב ותספיס את מספר חילופי הסימן של הסכום המצטבר..הערב: התוכנית תתיחס לסכום 0 כחיובי...
2. במשרד לאיכות הסביבה בדקו את רמת הזיהום בנחל הירקון. במדידות דורגו בסולם מ1 עד 10, כאשר 1 זיהום נמוך מאוד ו10 זיהום גבוה מאוד. כתוב תוכנית אשר תקלוט עבור 50 מדידות את היום בשבוע בו נערכה המדידה ואת רמת הזיהום באותו יןם. על התוכנית להדפיס:א. מספר הימים שבהם נמדדה רמת זיחהום גדולה מ7. ב. מספר ימי שלישי שבהם נמדדה רמת זיהום קטנה מ4....
program plusminus; var num, sum, ex, switches: integer; begin sum := 0; switches := 0; while num <> 999 do begin sum := sum + num; readln (num); if (ex * num < 0) and (num <> 999) then switches := switches +1; ex := num; end; writeln ('total sum is: ', sum); writeln ('number of switches is: ', switches); readln; end.
אם אני זוכר נכון אז טורבו פסקל מאפס גלובאלים אבל לא משתנים לוקאלים, וזה בכלל יכול גם להשתנות מגרסא לגרסא, כי התקן ISO Pascal לחלוטין לא מבטיח לך שמשתנים מאותחלים לאפס, חובה לאתחל משתנים!