viết chương trình in ra màn hình chữ loading và sau đó là 1 dấu chấm rồi 2 dấu chấm rồi 3 dấu chấm…rồi 5 dấu chấm rồi quay lại ko còn dấu chấm rồi 1 dấu chấm……..tiếp tục cho đến khi nhấn 1 phím bất kì
viết chương trình in ra màn hình chữ loading và sau đó là 1 dấu chấm rồi 2 dấu chấm rồi 3 dấu chấm…rồi 5 dấu chấm rồi quay lại ko còn dấu chấm rồi 1 dấu chấm……..tiếp tục cho đến khi nhấn 1 phím bất kì
program loading3cham;
uses crt;
var n, i: integer;
cham: string;
begin
clrscr;
n:=10;
repeat
n:=n+1;
if n>5 then n:=0;
if n=0 then cham:=”;
if n=1 then
cham:=’.’;
if n=2 then cham:=’..’;
if n=3 then cham:=’…’;
if n=4 then cham:=’….’;
if n=5 then cham:=’…..’;
textmode (co40);
gotoxy (12,10);
writeln (‘loading’,cham);
delay (100);
clrscr;
i:=i+1;
until keypressed;
readln;
end.
chữ lớn luôn đó nghe bn
:)))
uses crt;
begin
clrscr;
textcolor (white+blink);
writeln (‘loading…’);
readln;
end.