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

[NDiễm52]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đà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

 

[02-07-2019.]

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

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!

 

[lâm tùng apollo]

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ế....?