блок-схема

[volk_102]

помогите составить 2 блок-схемы)))

код для первой блок-схемы

begin
c:=0;
st:=edit1.Text;
for i:=1 to Length(st) do
begin
stt:=copy(st,i,1);
if (stt=' ') and (c>=1) then
begin
st1:=st1;
c:=c+1;
end
else if (stt=' ') and (c=0) then
begin
c:=c+1;
st1:=st1+stt;
end
else if (stt<>' ') then
begin
c:=0;
st1:=st1+stt;
end
end;
edit2.text:=st1;
end;


код для 2 блок-схемы

Memo2.Lines.Add('');
for i:=0 to strtoint(edit1.text)-1 do
begin
for j:=0 to strtoint(edit1.text)-1 do
b[i]:=b[i]+a[i,j]*a[i,strtoint(edit1.text)-j];
Memo2.Lines.Add(floattostrf(b[i],ffFixed,5,3));
end;

[Mad_Cat]

volk_102 Ctrl+V и Ctrl+C не работает?

[volk_102]

работает так то