PROGRAM CT82;
USES crt;
VAR a,b: BYTE;
PROCEDURE HCN(cdai,crong: BYTE);
VAR i,j: BYTE;
BEGIN
FOR i:=1 TO cdai DO Write('*');
Writeln;
FOR i:=1 TO crong-2 DO
BEGIN
Write('*');
FOR j:=1 TO cdai-2 DO
Write(' ');
Writeln('*');
END;
FOR i:=1 TO cdai DO Write('*');
END;
BEGIN
clrscr;
a:=81; b:=26;
WHILE (a>80) AND (b>25) DO
BEGIN
Write('Nhap chieu dai, chieu rong: '); Readln(a,b);
END;
HCN(a,b);
Readln
END.
Download: http://www.mediafire.com/?493j4npt9g8sdrg
USES crt;
VAR a,b: BYTE;
PROCEDURE HCN(cdai,crong: BYTE);
VAR i,j: BYTE;
BEGIN
FOR i:=1 TO cdai DO Write('*');
Writeln;
FOR i:=1 TO crong-2 DO
BEGIN
Write('*');
FOR j:=1 TO cdai-2 DO
Write(' ');
Writeln('*');
END;
FOR i:=1 TO cdai DO Write('*');
END;
BEGIN
clrscr;
a:=81; b:=26;
WHILE (a>80) AND (b>25) DO
BEGIN
Write('Nhap chieu dai, chieu rong: '); Readln(a,b);
END;
HCN(a,b);
Readln
END.
Download: http://www.mediafire.com/?493j4npt9g8sdrg