viết chương trình theo thuật toán

[talkmylove]

Thuật toán in ra màn hình hình chữ nhật viền *

Cho i nhận từ 1 đến n
+ Cho j nhận từ 1 đến m
Nếu tọa độ (i,j) trên biên thì in dấu * trái lại in một dấu cách.
+ Xuống đầu dòng mới.

Giúp mình nha. Cảm ơn các bạn!

[xuxulinh0993]

Begin
  For i:=1 To N Do
  Begin
    For j:=1 To M Do
      If ((i=1) or (i=N)) or ((j=1) or (j=M)) Then Write('*') Else Write(' ');
      Writeln;
  End;    
  Readln;
End.

[honganh_dn]

Bài toán này của bạn là 1 cách khác để viết ra màn hình hình chữ nhật * như trong SGK lớp 11 cũng có bài toán này.

[thu phuong]

Chương trình này thì mình cũng viết như bạn trên thôi

Var i,j,m,n:integer;
Begin
write('Nhap vao chieu dai'); Readln(m);
write('Nhap vao chieu rong:'); Readln(n);
For i:=1 to n do
Begin
 For j:=1 to m do
   if (i=1) or (j=1) or (j=m) or (i=n) then write('*')
   else write(' ');writeln;
End;
Readln
End.

Mình nghĩ đây cũng là 1 cách hay để vẽ hình chữ nhật!

[lamchuong95]

Chương trình này thì mình cũng viết như bạn trên thôi

Var i,j,m,n:integer;
Begin
 write('Nhap vao chieu dai'); Readln(m);
 write('Nhap vao chieu rong:'); Readln(n);
 For i:=1 to n do
 Begin
  For j:=1 to m do
    if (i=1) or (j=1) or (j=m) or (i=n) then write('*')
    else write(' ');writeln;
 End;
 Readln
 End

Mình nghĩ đây cũng là 1 cách hay để vẽ hình chữ nhật!

Giống hệt của PowerTalent mà :|

[noithatquangvinh]

Thì đã bảo là mình viết giống bạn trên thôi mà!