Viết chương trình nhap chiều dài và rộng in ra màn hình các dấu sao
VD: dài 12
rộng 5
**************
* *
* *
* *
**************
PASCAL IDE
Viết chương trình nhap chiều dài và rộng in ra màn hình các dấu sao VD: dài 12 rộng 5 ************** * * *
By Gianna
program ct;
uses crt;
var d,r,i,j:integer;
begin clrscr;
write(‘Nhap chieu dai va chieu rong: ‘); readln(d,r);
for i:=1 to d do
write(‘*’);
writeln;
for i:=1 to r-2 do
begin
write(‘*’);
for j:=1 to d-2 do
write(‘ ‘);
write(‘*’);
writeln;
end;
for i:=1 to d do
write(‘*’);
readln;
end.
Học tốt!
uses crt;
var d,r,i:longint;
begin
clrscr;
write(‘Nhap chieu dai: ‘);readln(d);
write(‘Nhap chieu rong: ‘);readln(r);
for i:=1 to d do write(‘*’); writeln;
for i:=1 to r-2 do
begin
gotoxy(1,3+i); write(‘*’);
gotoxy(d,3+i); write(‘*’);
end;
gotoxy(1,2+r);
for i:=1 to d do write(‘*’); writeln;
readln
end.
/////////////////////////////////////
Test: