נחוץ
סביבת התכנות PascalABC. NET או PascalTurbo
הוראות
שלב 1
אז ראשית, בואו נפתח את התוכנית. בואו ניצור קובץ חדש ונציין את התוספים. במקרה זה, אנו זקוקים למודול לעבודה עם המסוף - CRT.
בשביל זה נכתוב:
שימושים
CRT;
שלב 2
בואו נציין את המשתנים i, s, m - משתנים מהסוג האמיתי.
var
i, s, m: Real;
שלב 3
כדי להתחיל את התוכנית, כתוב:
התחל
ונציין את הכותרת של חלון המסוף:
SetWindowTitle ('שעון עצר');
שלב 4
הליך TextColor מקצה צבע לטקסט, והצהרת הכתיבה מציגה את הטקסט למסך:
TextColor (LightGreen);
WriteLn ('לחץ על Enter כדי להתחיל שעון עצר');
WriteLn ('לחץ שוב כדי לעצור');
כתוב ('לחץ שוב כדי להתחיל מחדש');
הסוף Ln עובר לשורה הבאה.
שלב 5
מפעיל ReadLn מזין ערכים מהמקלדת, אך במקרה זה הוא ממתין רק למשתמש שילחץ על Enter:
ReadLn;
שלב 6
אנו יוצרים לולאה אינסופית:
ואילו (נכון) לעשות
התחל
הזמן בו (נכון) מתחיל לבנות מתורגם כ: בעוד (מצב) לעשות (). מדוע מתחילים כאן?
במקרה זה, אנו זקוקים למפעיל מתחם, מה שאומר שאמנם התנאי נכון, אך כמה מפעילים מבוצעים. אלמלא ההתחלה, לאחר זמן מה בוצעה הצהרה אחת בלבד שהובילה להפעלת תוכנית לא נכונה. לסיום הצהרת While בסוף, אנו כותבים סוף.
שלב 7
עכשיו בואו נאפס את הדלפק:
i: = 0;
שלב 8
ההצהרה הבאה מתורגמת כ: עד לחיצה על מקש do ().
בזמן שאתה לא לוחץ על מקש לעשות
התחל
מפעיל ClrScr מנקה את המסך:
ClrScr;
שלב 9
הגדרנו את התנאי: אם השניות הן יותר מ- 60 ופחות מ- 3600 (זה הכרחי כך שכאשר הזמן הוא יותר משעה, התוכנית מדפיסה רק את מה שנמצא אחרי השלישי אם) אז:
אם (i> 60) ו- (i <3600) אז התחל
המשתנה m (דקות) שווה ל: שניות חלקי 60 ומעוגלים לחזית.
m: = Int (i / 60);
והמשתנה s (שניות ללא דקות) שווה ל: כל השניות פחות דקות כפול 60.
s: = i - m * 60;
שלב 10
הצהרת הכתיבה כותבת כמה דקות ושניות שעברו, והצהרת הסיום מסיימת את עבודת התחלה בעקבות התנאי if:
כתוב (m, 'דקות (ים) ו', שניות: 1: 2, 'שניות (ים)')
סוֹף;
פונקציה: 1: 2 פירושה ששניות צריכות להיכתב עם שתי עשרוניות.
שלב 11
אם השניות קטנות מ- 60, פשוט כתוב כמה שניות עברו עם שני מקומות עשרוניים:
אם אני <60 אז
כתוב ('', i: 1: 2, 'שניות (a / s)');
שלב 12
אם השניות יותר מ- 3600 (כלומר יותר משעה) אז:
אם אני> 3600 אז התחל
m: = Int (i / 60);
s: = i - m * 60;
ch: = Int (m / 60);
m: = m - ch * 60;
כתוב (ch, 'שעה (ים)', מ ',' דקות (ים) ו ', ש': 1: 2, 'שניות (ים)');
סוֹף;
שלב 13
אז התוכנית כתבה שחלפו 0 שניות, עכשיו היא מגדילה את המונה i ב 10 אלפיות השנייה, ומכיוון שהתוכנית עושה הכל באופן מיידי, אנו עוצרים באותו זמן:
i: = i + 0.01;
עיכוב (10);
לאחר מכן, אנו מסיימים את ההצהרה של While (ללא לחיצה על מקש):
סוֹף;
אם המשתמש לחץ על מקש Enter, התוכנית מחכה שהוא ילחץ עליו שוב כדי להפעיל שוב את שעון העצר:
Readln;
Readln;
לא במקרה אנו מכוונים את המונה לאפס לאחר הצהרת While (נכון), מכיוון שכאשר המשתמש לוחץ על Enter בפעם השנייה, התוכנית תתחיל משם, תאפס את המונה ותתחיל לספור שוב.
לאחר מכן, אנו מסיימים את ה- While ולתוכנית כולה:
סוֹף;
שלב 14
הנה התוכנית המלאה:
שימושים
CRT;
var
אני אמיתי;
s: אמיתי;
מ ': אמיתי;
ch: אמיתי;
התחל
SetWindowTitle ('שעון עצר');
TextColor (LightGreen);
WriteLn ('לחץ על Enter כדי להתחיל שעון עצר');
WriteLn ('לחץ שוב כדי לעצור');
כתוב ('לחץ שוב כדי להתחיל מחדש');
ReadLn;
ואילו (נכון) לעשות
התחל
i: = 0;
בזמן שאתה לא לוחץ על מקש לעשות
התחל
ClrScr;
אם (i> 60) ו- (i <3600) אז התחל
m: = Int (i / 60);
s: = i - m * 60;
כתוב (m, 'דקות (ים) ו', שניות: 1: 2, 'שניות (ים)')
סוֹף;
אם אני <60 אז
כתוב ('', i: 1: 2, 'שניות (a / s)');
אם אני> 3600 אז התחל
m: = Int (i / 60);
s: = i - m * 60;
ch: = Int (m / 60);
m: = m - ch * 60;
כתוב (ch, 'שעה (ים)', מ ',' דקות (ים) ו ', ש': 1: 2, 'שניות (ים)');
סוֹף;
i: = i + 0.01;
עיכוב (10);
סוֹף;
Readln;
Readln;
סוֹף;
סוֹף.
שלב 15
יצא לא מאוד נחמד, אבל התוכנית עובדת נכון!
