Bu gün qrafik və səs effektlərinin olmadığı sadə oyunlarda yenidən doğuş yaşanır. Onları oynayarkən, istifadəçi bədii texnikaya deyil, süjetə diqqət yetirir. Paskal dili bu cür oyunlar yaratmaq üçün çox uyğundur.
Təlimat
Addım 1
Pascal kompilyatorunu aşağıdakı səhifədən yükləyin - https://edn.embarcadero.com/article/20803. Xahiş edirəm bu proqram paketi üçün istifadə şərtlərini oxuyun və sonra quraşdırın
Addım 2
Oyunçunun 0-dan 100-ə qədər olan bir rəqəmi təxmin etməsi lazım olan bir oyun yaratmağa çalışın. Əvvəlcə proqramın adını daxil edin: program ugadayka;
Addım 3
CRT vahidini qoşun: crt istifadə edir;
Addım 4
Dəyişənlərinizi belə təyin edin: var
zagadka, mnenie, popytki: tam ədəd;
knopochka: char
Addım 5
Proqramı ekranı və dəyişənləri təmizləyərək gizli nömrəyə yalan təsadüfi bir dəyər təyin edərək başlayın.
clrscr;
randomizə etmək;
popytki: = 0;
mnenie: = 0;
zagadka: = int (rnd * 100);
Addım 6
Kompüteri istifadəçidən güman etdiyi qədər gizli rəqəmin nə olduğunu soruşun: mnenie = zagadka do
başlamaq
popytki: = popytki + 1;
writeln ('Cəhd sayı', popytki, '.');
yazın ('Sizcə nə hesab olunur, hansı rəqəm düşünülür?');
oxumaq (mnenie);
əgər zagadka> mnenie onda Writeln ('Xeyr, gizli say daha böyükdür!')
else writeln ('Xeyr, gizli rəqəm azdır!')
son;
Addım 7
Nömrəni təxmin etdikdən sonra yuxarıdakı hadisələrin avtomatik təkrarlanması dayanacaq. Proqramın növbəti sətirləri icra olunmağa başlayacaq. Onlarda maşının istifadəçinin rəqəmi təxmin etdiyi məlumatları göstərin: writeln ('Təbrik edirik!', Popytki, 'sayını sınayaraq nömrəni təxmin etdiniz.', Zagadka, '.');
knopochka: = oxu açarı
Addım 8
Proqramı bitirmək üçün bir bəyanat daxil edin: son.
Addım 9
Proqramı menyu elementləri faylı istifadə edərək istənilən istədiyiniz ad altında saxlayın -> Kimi saxla. Gələcəkdə hər düzəlişdən sonra F2 düyməsini basaraq qeyd edin.
Addım 10
Proqramı icra üçün başlamaq üçün eyni zamanda Control və F9 düymələrini basın.
Addım 11
Proqram çıxdıqdan sonra əvvəllər ekranda nəyin göstərildiyini görmək üçün alt="Image" və F5 düymələrini eyni vaxtda basın. Redaktora qayıtmaq üçün eyni düymə birləşməsini yenidən basın.
