Viết chương trình chơi game đoán số với máy trên Free Pascal, máy sẽ cho ra 1 số ngẫu nhiên, nếu minh doán dúng sẽ được cộng 1 điểm, đoán sai máy sẽ được cộng 1 điểm
Điểm bắt đầu của máy và người là 0
sau 10 lần chơi nếu máy cao điểm hơn sẽ xuất ra màn hình ” Ban da thua ”
nếu người cao điểm hơn sẽ xuất ra màn hình ” Ban da thang ”
nhưng chỉ áp dụng kiến thức từ bài 1 đến bài 6 và được sử dụng câu lênh xuất ra số ngẫu nhiên
uses crt;
var i, doan, ran, dnguoi, dmay: byte;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
ran:= random(3);
write(‘Lan doan thu ‘,i,’. Nhap mot so 1 hoac 2: ‘);
readln(doan);
if (doan = ran) then dnguoi:=dnguoi+1 else dmay:=dmay+1;
end;
if (dnguoi > dmay) then write(‘Ban da thang voi so diem: ‘,dnguoi) else write(‘Ban da thua voi so diem: ‘,dnguoi);
readln
end.