ini untuk segitiga ke atas dan kebawah,
tidak ada contoh, silahkan coba sendiri.
selamat mencoba...
procedure
TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
for i:=1 to 10 do
begin
for j:=1 to i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
end;
Memo1.Lines.Add('');
end;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
for i:=10 downto 1 do
begin
for j:=1 to i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
end;
Memo1.Lines.Add('');
end;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
i:=1;
repeat
j:=1;
repeat
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
until j > i;
Memo1.Lines.Add('');
inc(i);
until i > 10;
end;
procedure TForm1.Button5Click(Sender:
TObject);
begin
memo1.Clear;
i:=10;
repeat
j:=1;
repeat
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
until j > i;
Memo1.Lines.Add('');
dec(i);
until i < 1;
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
memo1.Clear;
i:=1;
while i <= 10 do
begin
j:=1;
while j <= i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
end;
Memo1.Lines.Add('');
inc(i);
end;
end;
procedure
TForm1.Button6Click(Sender: TObject);
begin
memo1.Clear;
i:=10;
while i >= 1 do
begin
j:=1;
while j <= i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
end;
Memo1.Lines.Add('');
dec(i);
end;
end;
end.
procedure
TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
for i:=1 to 10 do
begin
for j:=1 to i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
end;
Memo1.Lines.Add('');
end;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
for i:=10 downto 1 do
begin
for j:=1 to i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
end;
Memo1.Lines.Add('');
end;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
i:=1;
repeat
j:=1;
repeat
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
until j > i;
Memo1.Lines.Add('');
inc(i);
until i > 10;
end;
procedure TForm1.Button5Click(Sender:
TObject);
begin
memo1.Clear;
i:=10;
repeat
j:=1;
repeat
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
until j > i;
Memo1.Lines.Add('');
dec(i);
until i < 1;
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
memo1.Clear;
i:=1;
while i <= 10 do
begin
j:=1;
while j <= i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
end;
Memo1.Lines.Add('');
inc(i);
end;
end;
procedure
TForm1.Button6Click(Sender: TObject);
begin
memo1.Clear;
i:=10;
while i >= 1 do
begin
j:=1;
while j <= i do
begin
Memo1.Lines.Text:=Memo1.Lines.Text+'*';
inc(j);
end;
Memo1.Lines.Add('');
dec(i);
end;
end;
end.
Tidak ada komentar:
Posting Komentar