, y, k: ineger;
begin
writeln ( Комп'ютер задумав число від 1 до 10, вгадай це число );
writeln ( У тебе є 5 спроб );
k:=5; randomize; x:=random (10);
: writeln ( Введи число від одного до десяти );
readln (y); if k lt; gt; 0 then beginx=y then begin writeln ( Ви вгадали! ); 1; begin if y gt; x then ( Ваше число більше задуманого )
else writeln ( Ваше число менше задуманого );
k:=k - 1; 2; begin writeln ( Число спроб минув ); 1;
end;
: readln;
end.
Примітки: Вгадати число завжди можна не більше ніж через 5 спроб.
. 2 Тир
Програма Тир представляє з собою игровую програму. Мішень в тирі має круглу форму. Програма виводить запрошення: «Ласкаво просимо в тир». Після цього користувачеві пропонується зробити постріл, т. Е. Ввести значуще x і y. Виводить повідомлення: «Ваш постріл, введи значуще x, y». Якщо це значення задовольняє умові x 2 + y 2 lt;=R 2, то користувач потрапить у мішень, інакше немає. При промаху програма виводить повідомлення про промаху: «Промах, спробуйте ще раз» і пропонує користувачеві зробити постріл ще раз. Програма мовою Pascal:
Program Tir; 1,2; R, x, y: integer;
Begin
Writeln (Ласкаво просимо в тир);
: writeln (Ваш постріл, введи значуще x, y);
Readln (x, y); R:=10; SQR (x) + SQR (y) lt; R * R then begin (Попадання, ви виграли) ;; end Else begin writeln (Промах? Спробуй ще раз); 2; end; 1Readln; End.
ВИСНОВОК
У курсовій роботі були розглянуті основні питання, що стосуються основ структурного програмування в середовищі Turbo Pascal. Turbo Pascal є одним з найбільш затребуваних мов програмування які використовуються при навчання студентів основам алгоритмізації та програмування. Він був створений Николаусом Віртом для навчання студентів в 70-х роках минулого століття, але до цих пір користується популярністю у починаючих програмістів завдяки своїй простоті і можливості створювати від простих програм до складних багаторядкових кодів.
У курсовій роботі були висвітлені питання, пов'язані з основами програмування мовою Pascal. У теоретичній частині курсової роботи розглянуті структура програми на мові Pascal, типи даних, основні оператори мови, такі як оператори введення і виведення, умовний оператор, оператор безумовного переходу, цикл з передумовою, цикл з постусловіем і цикл з параметром. Також розглянуті основи роботи з символьними і рядковими змінами, одновимірним і двовимірними масивами.
У практичній частині курсової роботи були розглянуті питання, що стосуються створення програм на мові Pascal в якості прикладів програм були обрані ігрові програми. Такі як Тир і Угадай число. Мова програмування Pascal надає можливість для створення ігрових програм різних видів.
У програмі Тир був реалізований циклічний алгоритм, який здійснював вихід з циклу тільки за умови потрапляння користувача в ціль. Це здійснювалося за допомогою оператора безумовного переходу goto.
У програмі Вгадай число використовувався датчик випадкових чисел для того, щоб комп'ютер загадав число. Спочатку користувачеві було дано п'ять спроб для вгадування. Якщо користувач не зміг вгадати задумане комп'ютером число за п'ять спроб, то він програє.
У висновку слід зазначити, що мова програмування Pascal володіє всіма можливостями для створення ігрових програм.
Створені, в рамках курсової роботи, програми можуть бути використані для навчання студентів основам структурного програмування мовою Pascal.
ВИКОРИСТАНІ ЛІТЕРАТУРИ
1.Аубакіров Г.Д., Хмиря А.Г. Мови програмування Pascal, Delphi. Навчальний посібник.- Астана: Фоліант, 2007. - 208 с.
2.Глінскій Я.М., Анюхина В.Є., Ряжських В.А. Turbo Pascal 7.0 і Delphi. Навчальний посібник - 2-е изд., Испр. і доп. СПб: ТОВ «ДиаСофтЮП», 2003. - 208 с.
.Немнюгін С.А. Turbo Pascal. Програмування на мові високого рівня: 2-е вид.- СПб .: Питер, 2008. - 544 с .: ил.
