Անհրաժեշտ է
PascalABC. NET կամ PascalTurbo ծրագրավորման միջավայր:
Հրահանգներ
Քայլ 1
Այսպիսով, նախ եկեք բացենք ծրագիրը: Եկեք ստեղծենք նոր ֆայլ և նշենք պլագինները: Այս պարագայում մեզ անհրաժեշտ է վահանակի հետ աշխատելու մոդուլ ՝ CRT:
դրա համար մենք կգրենք.
օգտագործում է
CRT;
Քայլ 2
Նշենք i, s, m փոփոխականները - իրական տիպի փոփոխականներ:
var
i, s, m: Իրական;
Քայլ 3
Րագիրը սկսելու համար գրեք.
սկսել
Եվ մենք նշելու ենք վահանակի պատուհանի վերնագիրը.
SetWindowTitle ('Վայրկյանաչափ');
Քայլ 4
TextColor կարգը գույն է հատկացնում տեքստին, իսկ Գիր հայտարարությունը տեքստը ցուցադրում է էկրանին.
TextColor (LightGreen);
WriteLn ('Կտտացրեք վայրկյանաչափը սկսելու համար');
WriteLn ('Կրկին սեղմեք կանգ առնելու համար');
Գրիր ('Կրկին կտտացրու ՝ սկզբից սկսելու համար');
Ավարտվող Ln- ը տեղափոխվում է հաջորդ տող:
Քայլ 5
ReadLn օպերատորը ստեղնաշարից արժեքներ է մուտքագրում, բայց այս դեպքում այն պարզապես սպասում է, երբ օգտագործողը կխփի Enter:
ReadLn;
Քայլ 6
Մենք պատրաստում ենք անվերջ օղակ.
մինչդեռ (ճշմարիտ) անում են
սկսել
Մինչ (իսկական) սկսվում է կառուցվածքը թարգմանվում է հետևյալ կերպ. Երբ (պայմանը) անում է (): Ինչո՞ւ է այստեղ սկսվում:
Այս դեպքում մեզ անհրաժեշտ է բարդ օպերատոր, ինչը նշանակում է, որ մինչ պայմանը ճիշտ է, մի քանի օպերատորներ գործարկվում են: Եթե դա սկզբից չլիներ, ապա while- ից հետո կատարվեց միայն մեկ հայտարարություն, ինչը կհանգեցներ ծրագրի սխալ գործողության: Վերջում while հայտարարությունն ավարտելու համար մենք գրում ենք վերջ:
Քայլ 7
Այժմ եկեք վերակայենք հաշվիչը.
i: = 0;
Քայլ 8
Հաջորդ հայտարարությունը թարգմանվում է որպես. Մինչ «() կոճակը չի սեղմվել:
մինչդեռ սեղմված չէ
սկսել
ClrScr օպերատորը մաքրում է էկրանը.
ClrScr;
Քայլ 9
Մենք պայման ենք դնում. Եթե վայրկյանները 60-ից ավելի են և 3600-ից պակաս (դա անհրաժեշտ է այնպես, որ երբ ժամանակը մեկ ժամից ավել լինի, ծրագիրը տպում է միայն այն, ինչ կա երրորդից հետո), ապա.
եթե (i> 60) և (i <3600) ապա սկսվում են
M (րոպե) փոփոխականը հավասար է. Վայրկյաններին բաժանված 60-ի և կլորացված դեպի առջև:
մ: = Int (i / 60);
Իսկ s փոփոխականը (վայրկյան առանց րոպեների) հավասար է. Բոլոր վայրկյաններին հանած րոպեները բազմապատկած 60-ով:
s: = i - m * 60;
Քայլ 10
Գրել հայտարարությունը գրում է, թե քանի րոպե և վայրկյան է անցել, և ավարտի հայտարարությունն ավարտում է սկզբի աշխատանքը, եթե հետևյալ պայմանին ՝
Գրիր (մ, 'րոպե (ներ) և', ս. 1: 2, 'վայրկյան (ներ)')
վերջ;
Գործառույթը. 1: 2 նշանակում է, որ վայրկյանները պետք է գրվեն երկու տասնորդական դրվագներով:
Քայլ 11
Եթե վայրկյանները 60-ից պակաս են, ապա պարզապես գրեք, թե քանի վայրկյան է անցել երկու տասնորդական դրվագով.
եթե ես <60, ապա
Գրել ('', i: 1: 2, 'seconds (a / s)');
Քայլ 12
Եթե վայրկյանները 3600-ից ավելի են (այսինքն ՝ մեկ ժամից ավելի), ապա.
եթե ես> 3600 ապա սկսեմ
մ: = Int (i / 60);
s: = i - m * 60;
ch: = Int (մ / 60);
մ: = մ - ճ * 60;
Գրել (ch, 'ժամ (ներ)', m, 'րոպեներ (ներ) և', s: 1: 2, 'վայրկյաններ (ներ));
վերջ;
Քայլ 13
Այսպիսով, ծրագիրը գրել է, որ անցել է 0 վայրկյան, այժմ այն մեծացնում է հաշվիչը i 10 միլիվայրկյանով, և քանի որ ծրագիրն ամեն ինչ անում է ակնթարթորեն, մենք հետաձգում ենք միևնույն ժամանակ.
i: = ես + 0,01;
Հետաձգում (10);
Հաջորդը, մենք վերջ ենք տալիս մինչև (ոչ սեղմված) հայտարարության համար.
վերջ;
Եթե օգտվողը սեղմել է Enter ստեղնը, ապա ծրագիրը սպասում է, որ նա նորից սեղմի այն ՝ վայրկյանաչափը նորից սկսելու համար.
Readln;
Readln;
Պատահական չէ, որ Count (իսկական) հայտարարությունից հետո մենք հաշվիչը դնում ենք զրոյի, քանի որ երբ օգտագործողը երկրորդ անգամ սեղմում է Enter, ծրագիրը կսկսվի այնտեղից, կվերականգնի հաշվիչը և կսկսի նորից հաշվել:
Հաջորդը, մենք ավարտում ենք while- ը և ամբողջ ծրագրի համար.
վերջ;
Քայլ 14
Ահա ամբողջական ծրագիրը.
օգտագործում է
CRT;
var
i: Իրական;
s: Իրական;
մ ՝ իրական;
ch: Իրական;
սկսել
SetWindowTitle ('Վայրկյանաչափ');
TextColor (LightGreen);
WriteLn ('Կտտացրեք վայրկյանաչափը սկսելու համար');
WriteLn ('Կրկին սեղմեք կանգ առնելու համար');
Գրիր ('Կրկին կտտացրու ՝ սկզբից սկսելու համար');
ReadLn;
մինչդեռ (ճշմարիտ) անում են
սկսել
i: = 0;
մինչդեռ սեղմված չէ
սկսել
ClrScr;
եթե (i> 60) և (i <3600) ապա սկսվում են
մ: = Int (i / 60);
s: = i - m * 60;
Գրիր (մ, 'րոպե (ներ) և', ս. 1: 2, 'վայրկյան (ներ)')
վերջ;
եթե ես <60, ապա
Գրել ('', i: 1: 2, 'seconds (a / s)');
եթե ես> 3600, ապա սկսիր
մ: = Int (i / 60);
s: = i - m * 60;
ch: = Int (մ / 60);
մ: = մ - ճ * 60;
Գրել (ch, 'ժամ (ներ)', m, 'րոպե (ներ) և', s: 1: 2, 'վայրկյաններ (ներ));
վերջ;
i: = ես + 0,01;
Հետաձգում (10);
վերջ;
Readln;
Readln;
վերջ;
վերջ
Քայլ 15
Պարզվեց `ոչ շատ գեղեցիկ, բայց ծրագիրը ճիշտ է գործում:
