끄적끄적IT공부방
델파이 for문으로 별찍기 본문
procedure TForm1.star;
var
st,bb,bb1,be,ss,st1,st2: string;
i,j,k: integer;
begin
for j := 5 downto 1 do
begin
st := st+'*';
st1 := st1+st+#13;
bb := Copy('****', 1, j-1);
be := be+bb+#13;
end;
memo1.Lines.Text := st1+be;
end;
procedure TForm1.sam;
var
st,bb,bb1,be,ss,st1,st2: string;
i,j,k: integer;
begin
j := 9;
for i := 1 to 5 do
begin
st := Copy('*********', 1, j);
for k :=1 to 1 do
begin
bb := bb+ ' ';
end;
st1 := bb + st + #13 + st1;
j := j-2
end;
memo2.Lines.Text := st1;
end;
{
*
**
***
****
*****
}
procedure TForm1.star1;
var
st,st1,sp: string;
i: integer;
begin
for i := 1 to 5 do
begin
st := COPY('*****', i, 5) + #13#10;
sp := sp + ' ';
st1 := sp + st + st1 + #13#10;
end;
memo1.Lines.add(st1);
end;
{
*****
****
***
**
*
}
procedure TForm1.star2;
var
st,st1,sp: string;
i: integer;
begin
for i := 1 to 5 do
begin
st := COPY('*****', i, 5) + #13#10;
sp := sp + ' ';
st1 := st1+sp + st;
end;
memo1.Lines.add(st1);
end;
procedure TForm1.star3;
var
st,st1,sp: string;
i,j: integer;
begin
j := 9;
for i := 1 to 5 do
begin
st := COPY('*********', 1, j) + #13#10;
sp := sp + ' ';
st1 := st1 + sp + st;
j := j-2;
end;
memo1.Lines.add(st1) ;
end;
procedure TForm1.star1;
var
st,st1,sp: string;
i: integer;
begin
for i := 1 to 5 do
begin
st := COPY('*****', i, 5) + #13#10;
sp := sp + ' ';
st1 := sp + st + st1 + #13#10;
end;
memo1.Lines.text := st1;
end;
{
*****
****
***
**
*
}
procedure TForm1.star2;
var
st,st1,sp: string;
i: integer;
begin
for i := 1 to 5 do
begin
st := COPY('*****', i, 5) + #13#10;
sp := sp + ' ';
st1 := st1+sp + st;
end;
memo2.Lines.text := st1;
end;
procedure TForm1.star3;
var
st,st1,sp: string;
i,j: integer;
begin
j := 9;
for i := 1 to 5 do
begin
st := COPY('*********', 1, j) + #13#10;
sp := sp + ' ';
st1 := st1 + sp + st;
j := j-2;
end;
memo3.Lines.text := st1;
end;
procedure TForm1.star4;
var
st,st1,st2,sp: string;
i,j,num,k,n: integer;
begin
num := 11;
for i := 1 to num do
begin
if num >= 1 then
begin
for j := 1 to num do
begin
st := st+'*';
end;
for k := 1 to 1 do
begin
sp := sp+' ';
end;
if num mod 2 = 1 then
begin
st1 := st1+sp+st+#13;
st := '';
end;
end;
num := num - 2;
end;
memo4.Lines.text := st1;
end;
procedure TForm1.star5;
var
st,st1,st2,sp,star: string;
i,j,num,k,n,m,s: integer;
begin
num := 11;
for i := 1 to num do
begin
if num >= 1 then
begin
for j := 1 to num do
begin
st := st+'*';
end;
for k := 1 to 1 do
begin
sp := sp+' ';
end;
if num mod 2 = 1 then
begin
st1 := sp+st+#13+st1;
st := '';
end;
end;
num := num - 2;
end;
memo5.Lines.text := st1;
end;
procedure TForm1.star1;
var
st,st1,st2,sp: string;
i,j,num,k,n: integer;
begin
num := StrToInt(edit1.Text);
for i := 1 to num do
begin
for j := 1 to 1 do
begin
st := st+'*';
end;
st1 := st+#13+st1;
num := num -1;
end;
memo1.Lines.text := st1;
end;
{
*****
****
***
**
*
}
procedure TForm1.star2;
var
st,st1,st2,sp: string;
i,j,num,k,n: integer;
begin
num := StrToInt(edit1.Text);
for i := 1 to num do
begin
for j := 1 to 1 do
begin
st := st+'*';
end;
st1 := st1+st+#13;
num := num -1;
end;
memo2.Lines.text := st1;
end;
procedure TForm1.star3;
var
st,st1,st2,sp: string;
i,j,num,num1,k,n: integer;
begin
num := StrToInt(edit1.Text);
num1 := num - 1;
for i := 1 to num do
begin
for j := 1 to 1 do
begin
st := st+'*';
end;
st1 := st+#13+st1;
num := num -1;
end;
for k := 1 to num1 do
begin
for n := 1 to 1 do
begin
sp := sp+'*';
end;
st2 := st2+sp+#13;
num1 := num1 -1;
end;
memo3.Lines.text := st2+st1;
end;
procedure TForm1.star4;
var
st,st1,st2,sp: string;
i,j,num,k,n: integer;
begin
num := StrToInt(edit1.Text);
for i := 1 to num do
begin
if num >= 1 then
begin
for j := 1 to num do
begin
st := st+'*';
end;
for k := 1 to 1 do
begin
sp := sp+' ';
end;
if num mod 2 = 1 then
begin
st1 := st1+sp+st+#13;
st := '';
end;
end;
num := num - 2;
end;
memo4.Lines.text := st1;
end;
procedure TForm1.star5;
var
st,st1,st2,sp,star,nu: string;
i,j,num,k,n,m,s: integer;
begin
num := StrToInt(edit1.Text);
for i := 1 to num do
begin
if num >= 1 then
begin
for j := 1 to num do
begin
st := st+'*';
end;
for k := 1 to 1 do
begin
sp := sp+' ';
end;
if num mod 2 = 1 then
begin
st1 := sp+st+#13+st1;
st := '';
end;
end;
num := num - 2;
end;
memo5.Lines.text := st1;
end;
procedure TForm1.star6;
var
st,st1,st2,sp,star,nu: string;
i,j,num,num1,k,n,m,s: integer;
begin
num := StrToInt(edit1.Text);
num1 :=num-1;
for i := 1 to num do
begin
for j := 1 to num do
begin
st := st+' ';
end;
for k := 1 to 1 do
begin
sp := sp+'*';
end;
st1 := st+sp+#13+st1;
//st2 := st2+st+sp+#13;
st := '';
num := num - 1;
end;
st := ' ';
for n := 1 to num1 do
begin
for m := 1 to num1 do
begin
st := st+' ';
end;
for k := 1 to 1 do
begin
nu := nu+'*';
end;
st2 := st2+st+nu+#13;
st := ' ';
num1 := num1 - 1;
end;
memo1.Lines.text := st2+st1;
end;
