Paskalda Qanday Qilib O'yinlar Yaratish

Mundarija:

Paskalda Qanday Qilib O'yinlar Yaratish
Paskalda Qanday Qilib O'yinlar Yaratish

Video: Paskalda Qanday Qilib O'yinlar Yaratish

Video: Paskalda Qanday Qilib O'yinlar Yaratish
Video: OʻYINLARNI VZLOM QILISH 😨|| Endi Xoxlagan Oʻyinizni Vzlom Qilasiz👍 2024, May
Anonim

Bugungi kunda grafik yoki tovush effektlari bo'lmagan oddiy o'yinlar qayta tug'ilishni boshdan kechirmoqda. Ularni o'ynab, foydalanuvchi badiiy texnikaga emas, balki syujetga e'tibor qaratadi. Bunday o'yinlarni yaratish uchun Paskal tili juda mos keladi.

Paskalda qanday qilib o'yinlar yaratish
Paskalda qanday qilib o'yinlar yaratish

Ko'rsatmalar

1-qadam

Paskal kompilyatorini quyidagi sahifadan yuklab oling - https://edn.embarcadero.com/article/20803. Iltimos, ushbu dasturiy ta'minot to'plamidan foydalanish shartlarini o'qing va keyin uni o'rnating

2-qadam

O'yinchi yaratishga harakat qiling, unda o'yinchi 0 dan 100 gacha bo'lgan raqamni taxmin qilishi kerak. Dastlab dastur nomini kiriting: program ugadayka;

3-qadam

CRT birligini ulang: crt dan foydalanadi;

4-qadam

O'zgaruvchilaringizni quyidagicha belgilang: var

zagadka, mnenie, popytki: integer;

knopochka: char

5-qadam

Dasturni ekranni va o'zgaruvchilarni tozalab, yashirin raqamga psevdo-tasodifiy qiymat berib boshlang: start

clrscr;

tasodifiy qilish;

popytki: = 0;

mnenie: = 0;

zagadka: = int (rnd * 100);

6-qadam

Kompyuterdan foydalanuvchiga, uning fikriga ko'ra, yashirin raqam nima ekanligini taxmin qilgunicha so'rang: while not mnenie = zagadka do

boshlash

popytki: = popytki + 1;

writeln ('Sinov raqami', popytki, '.');

write ('Nima deb o'ylaysiz, qaysi raqam o'ylab topilgan?');

readln (mnenie);

agar zagadka> mnenie then Writeln ('Yo'q, yashirin raqam kattaroq!')

else writeln ('Yo'q, yashirin raqam kamroq!')

oxiri;

7-qadam

Raqam taxmin qilingandan so'ng, yuqoridagi voqealarni avtomatik takrorlash to'xtaydi. Dasturning keyingi satrlari bajarila boshlanadi. Ularda foydalanuvchi raqamni taxmin qilgani haqida ma'lumotni mashinada namoyish eting: writeln ('Tabriklaymiz! Siz raqamni', popytki, 'raqamini sinab topgansiz. Bu haqiqatan ham teng', zagadka, '.');

knopochka: = o'qish tugmasi

8-qadam

Dasturni tugatish uchun bayonotni kiriting: tugatish.

9-qadam

Menyu elementlari fayli yordamida dasturni istalgan nom ostida saqlang -> Save as. Kelajakda har bir tahrirdan so'ng uni F2 tugmachasini bosib saqlang.

10-qadam

Dasturni bajarish uchun boshlash uchun bir vaqtning o'zida Control va F9 tugmalarini bosing.

11-qadam

Dastur tugagandan so'ng, avvalgi ekranda nimani ko'rsatishini ko'rish uchun bir vaqtning o'zida alt="Image" va F5 tugmachalarini bosing. Tahrirlovchiga qaytish uchun yana bir xil tugmalar birikmasini bosing.

Tavsiya: