Share code trò chơi về đích miễn phí ( made by Teacher )

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Share code trò chơi về đích miễn phí ( made by Teacher )

Bài gửi by teacher on Sun 03 Apr 2011, 9:03 pm

program chuongtrinhtrochoi_classicfat32;
uses crt;
var classicfat32, ban , k , dich : integer;

begin
clrscr;
writeln('ban co muon choi tro choi hay khong ? classicfat32: hi hi !');
writeln('chung ta se choi tro choi dua ngua ve dich nhe! ok HE HE !');
writeln('luat choi nhu sau :ban se dau voi may nhe ! Ban se phai chon tung so sau khi may sinh ra so truoc ');
write('so chon sau chi duoc phep tang them mot gia tri nho hon hoac bang khoang cach da quy dinh ');
writeln(' ai dat duoc gia tri dich truoc nguoi do se thang !');
writeln('Now ! Come on ! goodluck !');
write(' moi ban nhap gia tri dich , dich = '); readln(dich);
write(' moi ban nhap gia tri khoang cach , k = '); readln(k);
writeln(' gia tri nho nhat bat dau se la 0 ');
writeln(' Thua khong duoc cay cu dau nhe ! KE KE !' );
writeln(' bat dau ! ');
classicfat32 := dich mod ( k+1 );
while (classicfat32 < dich) or (ban < dich) do
begin
write(' hi hi classicfat32 = ' , classicfat32 , ' ban hay cho gia tri ban ? ban = '); readln(ban);
while (( ban > classicfat32 ) and ( ban <= classicfat32+k )) do
begin

classicfat32 := classicfat32 + k+1;
writeln(' classicfat32 = ',classicfat32);

write('ban = ');readln(ban);
if classicfat32 = dich then begin writeln(' classicfat32 : ban thua thoi mui roi !'); readln; exit ; end;
if (ban = dich) and (ban <= classicfat32+ k) and (ban > classicfat32) then
begin
writeln('ban da thang, phai cong nhan ban gioi that');
readln;
exit ;
end;

end;

end;
readln;
end.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: Share code trò chơi về đích miễn phí ( made by Teacher )

Bài gửi by teacher on Sun 03 Apr 2011, 9:04 pm

bạn SHINICHI đưa bài mẫu lên chuyên mục này để share cho các em nhỏ nhé ! Basketball
À quên ! Bạn nào đọc bài của ai thấy hay thì nhấn cái dấu like để thưởng cho người viết 2 điểm uy tín nhá !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết