BÀI XẤU

Xem chủ đề cũ hơn Xem chủ đề mới hơn 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*

classicfat32@gmail.com
https://sites.google.com/site/dayhocdientu/
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

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