sử dụng vòng lặp while để viết chương trình in ra bảng cửu chương từ 1 đến 9
sử dụng vòng lặp while in ra các số từ 1 đến 5.
sử dụng vòng lặp while để viết chương trình in ra bảng cửu chương từ 1 đến 9 sử dụng vòng lặp while in ra các số từ 1 đến 5.
By Vivian
Bài 1: Bảng cửu chương
program bangcuuchuong;
uses crt;
var i,j:byte;
begin
clrscr;
writeln(‘BANG CUU CHUONG’);
i:=1;
while i<=9 do
begin
j:=1;
writeln(‘Bang cuu chuong 1:’)
while j<=10 do
begin
writeln(i,’ x ‘,j,’= ‘,i*j);
j:=j+1;
end;
delay(500);
end;
readln;
end.
Bài 2:
program insotu1den5;
uses crt;
var i:byte;
begin
clrscr;
i:=1;
while i<=5 do
begin
write(i,’ ‘);
i:=i+1;
end;
readln;
end.
Bài 1:
program bang_cuu_chuong;
uses crt;
var i,j:integer;
begin
clrscr;
writeln(‘BANG CUU CHUONG’);
i:=1;
while i<=9 do
begin
j:=1;
writeln(‘Bang cuu chuong 1:’)
while j<=10 do
begin
writeln(i,’ x ‘,j,’= ‘,i*j);
j:=j+1;
end;
delay(500);
end;
readln;
end.
Bài 2:
program inso;
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=5 do
begin
write(i,’ ‘);
i:=i+1;
end;
readln;
end.