Free Pascal循环程序问题。急急！

来源：百度知道 编辑：UC知道 时间：2024/05/29 03:33:10
就是用循环程序输出如下直角三角形
*
**
***
****
必须要是循环程序，不要用writeln('*')之类的
急！
要是有流程图更好了，会加分的……就今天晚上

var
i:longint;
st:string;
begin
st:='';
for i:=1 to 4 do
begin
st:=st+'*';
writeln(st);
end;
end.

var
i:Integer;
S:string;
begin
S:='*';
Memo1.Lines.Add(S+#13);
for I := 0 to 4 do
begin
S:=S+'*';
Memo1.Lines.Add(S+#13);
end;
Delphi2010(Pascal)编译环境下编译
Memo1.Lines.Add(S+#13);可以修改为任何输出语句