BÀI XẤU

Go down

BÀI XẤU

Bài gửi by HOANGQUOCCUONG1999 on Tue 11 Jun 2013, 9:06 pm

program xacdinh;
uses crt;
var TL:char;
Begin
clrscr;
repeat
begin
writeln('ban co phai la nguoi thong minh khong? )
write('Nhap Y de chon "yes", nhap N de chon ":no" :');
readln(tl);
IF tl='Y' then Writeln( ' ban phai nhap "N"');
end;
until upcase(tl) = 'N';
writeln;
writeln(' ban k thong minh roi..');
readln;
end. THẦY ƠI CT NÀY CHO LẶP LẠI ĐẾN KHI NGƯỜI TA NHÂP KHÔNG MỚI CHO THOÁT
avatar
HOANGQUOCCUONG1999
PRO LÝ
PRO LÝ

Nam
Tổng số bài gửi : 33
điểm điểm : 52
Birthday : 03/04/1999
Job/hobbies : student

Xem lý lịch thành viên http://www.vn-zoom.com/

Về Đầu Trang Go down

Re: BÀI XẤU

Bài gửi by teacher on Wed 12 Jun 2013, 8:13 am

chương trình này có thể nhập ký tự khác nữa ngoài N , bắt buộc đúng là N thì thoát !

-----------~~๑۩۞۩๑~~ 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: BÀI XẤU

Bài gửi by anhyeuem.myheart on Mon 24 Jun 2013, 5:45 pm

Thế thì dùng thêm lệnh break nữa cho vòng lặp.

Dùng hàm break cuối vòng lặp
BREAK; { dừng vòng lập }


Được sửa bởi teacher ngày Tue 25 Jun 2013, 8:54 am; sửa lần 2.
avatar
anhyeuem.myheart
PRO TOÁN
PRO TOÁN

Nam
Tổng số bài gửi : 83
điểm điểm : 114
Birthday : 25/03/1996
Đến từ : HHS
Job/hobbies : học sinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BÀI XẤU

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


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