วิธีสร้างเกมใน Pascal

2024 ผู้เขียน: Timothy Dodson | [email protected]. แก้ไขล่าสุด: 2024-01-18 13:09

ทุกวันนี้ เกมง่ายๆ ที่ไม่มีภาพกราฟิกหรือเอฟเฟกต์เสียง กำลังเกิดใหม่ ในการเล่นนั้น ผู้ใช้จะเน้นที่โครงเรื่อง ไม่ใช่เทคนิคทางศิลปะ ภาษาปาสกาลเหมาะสำหรับการสร้างเกมดังกล่าว

คำแนะนำ

ขั้นตอนที่ 1

ดาวน์โหลดคอมไพเลอร์ Pascal จากหน้าต่อไปนี้ - https://edn.embarcadero.com/article/20803 โปรดอ่านข้อกำหนดการใช้งานสำหรับแพ็คเกจซอฟต์แวร์นี้แล้วทำการติดตั้

ขั้นตอนที่ 2

พยายามสร้างเกมที่ผู้เล่นต้องเดาตัวเลขในช่วง 0 ถึง 100 ก่อนอื่นให้ป้อนชื่อโปรแกรม: program ugadayka;

ขั้นตอนที่ 3

เชื่อมต่อหน่วย CRT: ใช้ crt;

ขั้นตอนที่ 4

กำหนดตัวแปรของคุณดังนี้: var

zagadka, mnenie, popytki: จำนวนเต็ม;

คนอ๊อคก้า: char

ขั้นตอนที่ 5

เริ่มโปรแกรมโดยล้างหน้าจอและตัวแปร และกำหนดค่าสุ่มหลอกให้กับตัวเลขที่ซ่อนอยู่: เริ่ม

clrscr;

สุ่ม;

popytki: = 0;

มินนี่: = 0;

zagadka: = int (rnd * 100);

ขั้นตอนที่ 6

ทำให้คอมพิวเตอร์ถามผู้ใช้ว่าตัวเลขที่ซ่อนอยู่ในความเห็นของเขาคืออะไร จนกว่าเขาจะเดาได้: ในขณะที่ไม่ใช่ mnenie = zagadka do

เริ่ม

popytki: = popytki + 1;

writeln ('หมายเลขพยายาม', popytki, '.');

เขียน ('คุณคิดอย่างไร คิดเลขอะไร');

readln (mnenie);

ถ้า zagadka> mnenie แล้ว writeln ('ไม่ จำนวนที่ซ่อนอยู่นั้นมากกว่า!')

อื่น writeln ('ไม่ จำนวนที่ซ่อนอยู่น้อยกว่า!')

จบ;

ขั้นตอนที่ 7

หลังจากเดาตัวเลขแล้ว การทำซ้ำอัตโนมัติของเหตุการณ์ข้างต้นจะหยุดลง บรรทัดถัดไปของโปรแกรมจะเริ่มดำเนินการ ในนั้น ให้เครื่องแสดงข้อมูลที่ผู้ใช้เดาตัวเลข: writeln ('ยินดีด้วย! คุณเดาตัวเลขได้โดยลองตัวเลข', popytki, '. มันเท่ากับ', zagadka, '.');

knopochka: = readkey