Паскальда оюндарды кантип түзсө болот

Мазмуну:

Паскальда оюндарды кантип түзсө болот
Паскальда оюндарды кантип түзсө болот

Video: Паскальда оюндарды кантип түзсө болот

Video: Паскальда оюндарды кантип түзсө болот
Video: POWERPOINT. Презентация жасоо. ОН ҮЧҮНЧҮ САБАК. Триггер же акылдуу анимация 2024, Май
Anonim

Бүгүн, эч кандай графикалык жана үн эффекттери жок жөнөкөй оюндар кайрадан жаралууда. Аларды ойнотуп, колдонуучу көркөм ыкмаларга эмес, сюжетке көңүл бурат. Мындай оюндарды түзүүгө Паскаль тили жакшы ылайыктуу.

Паскальда оюндарды кантип түзсө болот
Паскальда оюндарды кантип түзсө болот

Нускамалар

1 кадам

Паскаль компиляторун кийинки беттен жүктөп алыңыз - https://edn.embarcadero.com/article/20803. Сураныч, ушул программалык топтомдун колдонуу шарттарын окуп чыгып, аны орнотуп алыңыз

2-кадам

Оюнчудан 0дон 100гө чейинки аралыктагы санды табышы керек болгон оюн түзүп көрүңүз. Алгач программанын атын киргизиңиз: program ugadayka;

3-кадам

CRT бирдигин туташтырыңыз: crt колдонот;

4-кадам

Өзгөрмөлөрүңүздү төмөнкүдөй белгилеңиз: var

загадка, мнение, попытки: бүтүн сан;

knopochka: char

5-кадам

Программаны экранды жана өзгөрүлмө нерселерди тазалап, жашырылган номерге псевдо-кокустук маани берип баштаңыз:

clrscr;

рандомизациялоо;

popytki: = 0;

mnenie: = 0;

загадка: = int (rnd * 100);

6-кадам

Компьютер колдонуучудан болжолдонгончо, анын жашырылган номери эмне экендигин сураңыз: while not mnenie = zagadka do

баштоо

popytki: = popytki + 1;

writeln ('Аракет номери', popytki, '.');

write ('Сиздин оюңузча, кандай сан ойлонуштурулган?');

readln (mnenie);

if zagadka> mnenie then writeln ('Жок, катылган сан чоңураак!')

else writeln ('Жок, жашырылган сан азыраак!')

аягы;

7-кадам

Номер болжолдонгондон кийин, жогорудагы окуялардын автоматтык түрдө кайталанышы токтойт. Программанын кийинки саптары аткарыла баштайт. Аларда колдонуучу номерди болжолдогон маалыматты машинада көрсөтүңүз: Writeln ('Куттуктайбыз! Сиз', popytki, 'санын сынап санды таптыңыз. Бул чындыгында', zagadka, '.');

knopochka: = readkey

8-кадам

Программаны аяктоо үчүн билдирүүнү киргизиңиз: end.

9-кадам

Программаны каалаган аталышта меню элементтеринин файлын колдонуп -> Save as деп сактаңыз. Келечекте, ар бир түзөтүүдөн кийин, F2 баскычын басуу менен сактап коюңуз.

10-кадам

Программаны аткарууга баштоо үчүн, Control жана F9 баскычтарын бир эле учурда басыңыз.

11-кадам

Программа чыккандан кийин, анын экранда эмнени чагылдыргандыгын көрүү үчүн, бир эле учурда alt="Image" жана F5 баскычтарын басыңыз. Редакторго кайтуу үчүн ушул эле баскыч айкалышын дагы бир жолу басыңыз.

Сунушталууда: