bài toán hình chữ nhật viền sao

[icanfly]

Dưới đây là bài giải in ra hình chữ nhật viền * dài n, rộng m.
Nhưng mình muốn hỏi để in ra giữa màn hình thì làm thế nào, phải thêm gì vào bài dưới này? bạn có thể giải thích cho mình bài toán này được không?Cảm ơn nhiều nhá.

Program Ve_sao_hinh_chu_nhat_rong;
var i,j,n,m: integer;

Begin
            write('Nhap vao so n : '); readln(n);

            write('Nhap vao so m : '); readln(m);

            for i:=0 to (m - 1) do write('* ');
            writeln;

            for i:=1 To (n-2) do 
            begin

                           write('* ');
                           for j:=1 to (m-2) Do write(' ');
                           writeln('* ');
            end;

            for i:=0 to (m - 1) do write('* ');
            readln;

end.

[mrtrong181]

uses    crt;
var     i,j,n,m,d: integer;

Begin
        clrscr;
        write('Nhap vao so n : '); readln(n);
        write('Nhap vao so m : '); readln(m);
        d:=29;
        for i:=0 to (m - 1) do
        begin
                gotoXY(d,15);
                d:=d+2;
                write('* ');
        end;
        d:=16;
        writeln;
        for i:=1 To (n-2) do
        begin
                gotoXY(29,d);
                write('*');
                gotoXY(29+m*2-2,d);
                write('*');
                inc(d);
        end;
        d:=29;
        for i:=0 to (m - 1) do
        begin
                gotoXY(d,15+(n-2)+1);
                write('* ');
                d:=d+2;
        end;
        readln;

end.

p/s: Bạn có thể chỉnh lại vị trí thông qua tọa độ ở lệnh GotoXY [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[innguyengia]

Bạn tham khảo thêm các lệnh sau vào chương trình bạn ah!

program ve_hcn;
Var i,j,m,n,k:integer;
Begin
write('Nhap vao chieu dai:'); Readln(m);
write('Nhap vao chieu rong:'); Readln(n);
{Màn hinh van ban co 25 hang va 80 cot nen de giua trang k:=(80-m) div 2}
k:=(80-m)div 2;
write(' ':k); For i:=1 to m do write('*');  writeln;
For i:=1 to n do
 Begin
 write(' ':k);
  write('*');write(' ':m-2);
  writeln('*');
 End;
write(' ':k);   For i:=1 to m do write('*');
Readln
End.

[phungnham92]

day chang phai vd ve chuong trinh con trong SGK Tin hoc 11 hay sao

[fidd]

Tất nhiên đây là VD trong SGK nhưng trong SGK 11 không có định dạng vẽ HCN ra giữa trang màn hình.