Tin học Sử dụng lệnh While..đó

NDiễm52

Học sinh
Thành viên
21 Tháng ba 2020
11
1
21
19
Đồng Tháp
THCS Nguyễn Du

02-07-2019.

Học sinh tiến bộ
HV CLB Lịch sử
Thành viên
4 Tháng năm 2018
1,485
1,656
236
Vĩnh Phúc
Trung học cơ sở Lập Thạch
Viết chương trình in ra màn hình mười dòng chữ " Chăm học”. Sử dụng lệnh lặp While.. Do.
Mọi người giúp mình với ạ, mình đã cố gắng nhưng không thể hiểu được dạng này :(
Mã:
Var i:integer;
Begin
          i:=10;
  While i>0 do
 Begin
 Writeln('Cham hoc');
 dec(i);
 End;
End.
Có gì không hiểu hỏi lại mình nha!
 
  • Like
Reactions: NDiễm52

lâm tùng apollo

Cựu Mod Địa | PCN CLB Địa Lí
Thành viên
26 Tháng ba 2018
1,170
3,213
371
19
Shurima
Thái Nguyên
THPT LƯƠNG NGỌC QUYẾN
Viết chương trình in ra màn hình mười dòng chữ " Chăm học”. Sử dụng lệnh lặp While.. Do.
Mọi người giúp mình với ạ, mình đã cố gắng nhưng không thể hiểu được dạng này :(
Thử chương trình này đi...
Dòng chữ Cham hoc tự động xuất hiện sau 1s, điều chỉnh ở chỗ delay ấy (hoặc là xóa cả dòng ấy đi nếu không muốn chờ).....

Program CT;
Uses crt;
Var a: byte;
Begin clrscr;
a:=1;
While a<= 10 do
Begin a:=a+1;
Writeln ('Cham hoc');
Delay (1000);
End;
Readln;
End.

Mà sao lớp 9 vẫn phải học Turbo Pascal thế....?
 
  • Like
Reactions: Silver flame
Top Bottom