Өнөөдөр график эсвэл дууны эффект байхгүй энгийн тоглоомууд дахин төрөлтийг мэдэрч байна. Тэдгээрийг тоглуулахдаа хэрэглэгч уран сайхны техник дээр биш харин үйл явдалд анхаарлаа төвлөрүүлдэг. Паскаль хэл нь ийм тоглоом үүсгэхэд тохиромжтой.
Зааварчилгаа
1-р алхам
Pascal хөрвүүлэгчийг дараах хуудсаас татаж авна уу. 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
Компьютерийг хэрэглэгчээс таамаглах хүртлээ далд дугаар нь юу болохыг асуугаарай: not mnenie = zagadka do
Эхлэх
popytki: = popytki + 1;
writeln ('Хичээлийн тоо', popytki, '.');
бичих ('Та юу гэж бодож байна, ямар тоог бодож олсон бэ?');
унших (mnenie);
хэрэв загадка> mnenie бол Writeln ('Үгүй, далд тоо илүү том!')
else writeln ('Үгүй, далд тоо бага байна!')
Төгсгөл;
Алхам 7
Дугаарыг таамагласны дараа дээрх үйл явдлуудыг автоматаар давтахаа зогсооно. Хөтөлбөрийн дараагийн мөрүүд хэрэгжиж эхэлнэ. Тэдгээрийн дотор хэрэглэгчийн тоог таасан мэдээллийг машин дээр харуулаарай: writeln ('Баяр хүргэе! Та', popytki, 'гэсэн тоог оролдоод тоог тааварлав. Энэ үнэхээр', zagadka, '.');
knopochka: = унших товч
Алхам 8
Програмыг дуусгахын тулд мэдэгдэл оруулна уу.
Алхам 9
Програмыг хүссэн нэрийн дор цэс файлуудын файлыг ашиглан хадгална уу. Ирээдүйд засвар бүрийн дараа F2 товчийг дарж хадгална уу.
Алхам 10
Програмыг ажиллуулахын тулд Control болон F9 товчлууруудыг зэрэг дарна уу.
Алхам 11
Програм гарсны дараа дэлгэцэн дээр юу харагдаж байгааг харахын тулд alt="Image" ба F5 товчлууруудыг зэрэг дарна уу. Засварлагч руу буцахын тулд ижил товчлуурын хослолыг дахин дарна уу.
