Viết chương trình sử dụng câu lệnh câu lệnh while do để in ra màn hình bảng cửu chương số n khoảng từ 1 đến 9 số được nhập từ bàn phím
Viết chương trình sử dụng câu lệnh câu lệnh while do để in ra màn hình bảng cửu chương số n khoảng từ 1 đến 9 số được nhập từ bàn phím
*Đối với For…to…do thì:
Uses crt;
Var i,n,T: integer;
Begin
Clrscr;
Repeat
Write(‘Nhap so n vao: ‘); Readln(n);
Until (n>0) and (n<=9);
T:=0;
Writeln(‘Bang cuu chuong cua ‘ ,n,’ la:’);
For i:=1 to n do
Begin
T:=n*i;
Writeln;
Writeln(n,’x’,i,’=’,T);
End;
Readln;
End.
*Đối với While…do thì:
Uses crt;
Var i,n,T: integer;
Begin
Clrscr;
Repeat
Write(‘Nhap so n vao: ‘); Readln(n);
Until (n>0) and (n<=9);
T:=0; i:=0;
Writeln(‘Bang cuu chuong cua ‘ ,n,’ la:’);
While i<=9 do
Begin
i:=i+1;
T:=n*i;
Writeln;
Writeln(n,’x’,i,’=’,T);
End;
Readln;
End.
*Khác nhau: For..to…do: i được gán từ 1 -> 9 nên khi tính thì không cần gán i và phải báo i:=i+1 như while do.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks 😀
p/s: Hỏi và đáp, comment bên dưới
uses crt;
var i,n: integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
i:=0;
while i<10 do
begin
i:=i+1;
writeln(n,’*’,i,’=’,n*i);
end;
readln;
end.