প্রয়োজনীয়
পাস্ক্যালএবিসি.এনইটি বা পাসকাল্টুর্বো প্রোগ্রামিং পরিবেশ।
নির্দেশনা
ধাপ 1
সুতরাং, প্রথমে প্রোগ্রামটি খুলুন। আসুন একটি নতুন ফাইল তৈরি করুন এবং প্লাগইনগুলি নির্দিষ্ট করুন। এই ক্ষেত্রে, কনসোল - সিআরটি দিয়ে কাজ করার জন্য আমাদের একটি মডিউল প্রয়োজন।
এর জন্য আমরা লিখব:
ব্যবহারসমূহ
সিআরটি;
ধাপ ২
আসল প্রকারের i, s, m - ভেরিয়েবলগুলি নির্দেশ করুন।
var
আই, এস, এম: রিয়েল;
ধাপ 3
প্রোগ্রামটি শুরু করতে, লিখুন:
শুরু
এবং আমরা কনসোল উইন্ডোর শিরোনামটি নির্দেশ করব:
সেটউইন্ডটোটিউটল ('স্টপওয়াচ');
পদক্ষেপ 4
পাঠ্য রঙের পদ্ধতিটি পাঠ্যের জন্য একটি রঙ নির্ধারণ করে এবং লিখিত বিবৃতিটি স্ক্রিনে পাঠ্যটি প্রদর্শন করে:
পাঠ্য রঙ (লাইটগ্রিন);
WritLn ('স্টপওয়াচ শুরু করতে এন্টার টিপুন');
WritLn ('থামাতে আবার চাপুন');
লিখুন ('আবার শুরু করতে আবার ক্লিক করুন');
শেষ Ln পরবর্তী লাইনে চলে আসে।
পদক্ষেপ 5
রিডলন অপারেটর কীবোর্ড থেকে মানগুলি প্রবেশ করে, তবে এই ক্ষেত্রে এটি কেবল ব্যবহারকারী প্রবেশের জন্য অপেক্ষা করে:
রিডলন;
পদক্ষেপ 6
আমরা একটি অন্তহীন লুপ তৈরি করি:
যখন (সত্য) করতে
শুরু
যখন (সত্য) কাজটি অনুবাদ করা শুরু করে তেমনি অনুবাদ করে: যখন (শর্ত) কর ()। এখানে কেন শুরু হয়?
এই ক্ষেত্রে, আমাদের একটি যৌগিক অপারেটর প্রয়োজন, যার অর্থ শর্তটি সত্য হলেও বেশ কয়েকটি অপারেটরকে মৃত্যুদন্ড কার্যকর করা হয়। যদি এটি শুরু না হয়, তবে পরে, কেবলমাত্র একটি বিবৃতি কার্যকর করা হয়েছিল, যা ভুল প্রোগ্রাম অপারেশনে পরিচালিত করবে। শেষে বিবৃতিটি শেষ করতে আমরা শেষ লিখি।
পদক্ষেপ 7
এখন আসুন কাউন্টারটি পুনরায় সেট করুন:
i: = 0;
পদক্ষেপ 8
নিম্নলিখিত বিবৃতিটি অনুবাদ করে: ডু () কী টিপুন না হওয়া পর্যন্ত।
কিপ্রেসড না করার সময়
শুরু
ClrScr অপারেটরটি স্ক্রিনটি সাফ করে:
ClrScr;
পদক্ষেপ 9
আমরা শর্তটি সেট করে রেখেছি: যদি সেকেন্ডগুলি 60 এর বেশি হয় এবং 3600 এর চেয়ে কম হয় (এটি প্রয়োজনীয় যাতে সময়টি এক ঘণ্টার বেশি হয়, তবে প্রোগ্রামটি কেবল তৃতীয়টির পরে প্রিন্ট করে তবে):
যদি (i> 60) এবং (i <3600) তবে শুরু হয়
পরিবর্তনশীল মি (মিনিট) এর সমান: সেকেন্ডে 60 দ্বারা বিভক্ত এবং সামনের দিকে গোল করে।
মি: = ইনট (আই / 60);
এবং ভেরিয়েবল গুলি (মিনিট ছাড়াই সেকেন্ড) সমান: সমস্ত সেকেন্ড বিয়োগ মিনিট 60 দ্বারা গুণিত হয়।
s: = i - m * 60;
পদক্ষেপ 10
লিখিত বিবৃতিটি লিখেছে যে কত মিনিট এবং সেকেন্ড কেটে গেছে, এবং শেষের বিবৃতি যদি শর্তটি অনুসরণ করে শুরু করার কাজ শেষ করে:
(এম, 'মিনিট (গুলি) এবং', গুলি: 1: 2, 'সেকেন্ড (গুলি)' লিখুন
শেষ;
ফাংশন: 1: 2 মানে সেকেন্ডে দুটি দশমিক জায়গায় লেখা উচিত।
পদক্ষেপ 11
যদি সেকেন্ডগুলি 60০ এরও কম হয়, তবে মাত্র দুটি দশমিক জায়গায় কত সেকেন্ড পেরিয়ে গেছে তা লিখুন:
যদি আমি <60 তারপর
লিখুন ('', i: 1: 2, 'সেকেন্ড (a / s)');
পদক্ষেপ 12
যদি সেকেন্ডগুলি 3600 এর বেশি হয় (এটি, এক ঘণ্টারও বেশি) তবে:
যদি i> 3600 তবে শুরু করুন
মি: = ইনট (আই / 60);
s: = i - m * 60;
ch: = ইনট (মি / 60);
মি: = মি - চ * 60;
(সিএইচ, 'ঘন্টা (গুলি)', এম, 'মিনিট (গুলি) এবং', গুলি: 1: 2, 'সেকেন্ড (গুলি)' লিখুন;
শেষ;
পদক্ষেপ 13
সুতরাং, প্রোগ্রামটি লিখেছিল যে 0 সেকেন্ড অতিক্রান্ত হয়েছে, এখন এটি 10 মিলিসেকেন্ডের চেয়ে কাউন্টারকে বাড়িয়ে তোলে এবং যেহেতু প্রোগ্রামটি তাত্ক্ষণিকভাবে সমস্ত কিছু করে, তাই আমরা একই সময়ের জন্য বিলম্ব করি:
i: = i + 0.01;
বিলম্ব (10);
এরপরে, আমরা যখন (কীপ্রেসড নয়) বিবৃতিটি শেষ করব:
শেষ;
যদি ব্যবহারকারী এন্টার কী টিপেন, তবে প্রোগ্রামটি আবার স্টপওয়াচটি শুরু করার জন্য এটি টিপতে অপেক্ষা করে:
পঠিত;
পঠিত;
যদিও এটি (সত্য) বিবৃতি দেওয়ার পরে আমরা কাউন্টারটিকে শূন্যের সাথে সেট করেছিলাম তা কোনও কাকতালীয় ঘটনা নয়, কারণ যখন ব্যবহারকারী দ্বিতীয়বার এন্টার চাপবে তখন প্রোগ্রামটি সেখান থেকে শুরু হবে, কাউন্টারটি পুনরায় সেট করুন এবং আবার গণনা শুরু করবেন।
এরপরে, আমরা শেষের সময়টি এবং পুরো প্রোগ্রামটির জন্য:
শেষ;
পদক্ষেপ 14
এখানে সম্পূর্ণ প্রোগ্রাম:
ব্যবহারসমূহ
সিআরটি;
var
আমি বাস্তব;
s: আসল;
মি: বাস্তব;
চ: বাস্তব;
শুরু
সেট উইন্ডোটিটল ('স্টপওয়াচ');
পাঠ্য রঙ (লাইটগ্রিন);
WritLn ('স্টপওয়াচ শুরু করতে এন্টার টিপুন');
WritLn ('থামাতে আবার চাপুন');
লিখুন ('আবার শুরু করতে আবার ক্লিক করুন');
রিডলন;
যখন (সত্য) করতে
শুরু
i: = 0;
কিপ্রেসড না করার সময়
শুরু
ClrScr;
যদি (i> 60) এবং (i <3600) তবে শুরু হয়
মি: = ইনট (আই / 60);
s: = i - m * 60;
(এম, 'মিনিট (গুলি) এবং', গুলি: 1: 2, 'সেকেন্ড (গুলি)' লিখুন
শেষ;
যদি আমি <60 তারপর
লিখুন ('', i: 1: 2, 'সেকেন্ড (a / s)');
যদি i> 3600 তবে শুরু করুন
মি: = ইনট (আই / 60);
s: = i - m * 60;
ch: = ইনট (মি / 60);
মি: = মি - চ * 60;
(সিএইচ, 'ঘন্টা (গুলি)', এম, 'মিনিট (গুলি) এবং', গুলি: 1: 2, 'সেকেন্ড (গুলি)' লিখুন;
শেষ;
i: = i + 0.01;
বিলম্ব (10);
শেষ;
পঠিত;
পঠিত;
শেষ;
শেষ.
পদক্ষেপ 15
এটি খুব সুন্দর নয়, তবে প্রোগ্রামটি সঠিকভাবে কাজ করে!
