| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

помагите с алгоритмом

kimona ©   (2005-10-04 01:22:00) 

вот написал такой простой код

var x, y:integer;
   t:string;
begin
memo1.Lines.Clear;
x:=1;
repeat
t:='';
y:=0;
 repeat
 t:=t+'1';
 y:=y+1;
 until
x=y;
memo1.Lines.Add(t);
x:=x+1;
until
x>15;
end;
--------
но хотелбы писать вот такой

1
12
123
1234
12345
123456
1234567
12345678
123456789
1234567890

---

Германн   (2005-10-05 00:25:00) [1]

А можно и так:

Procedure TForm1.Button1Click(Sender:TObject);
Var
 St : string;
begin
 Memo1.Clear;
 St:='';
 repeat
   St:=St+IntToStr(Memo1.Lines.Count+1);
   Memo1.Lines.Add(St);
 until (Memo1.Lines.Count = 10);
end;

И короче и St вместо Text. Можно конечно и без St обойтись, но на мой скус - не стоит.

---

saNat   (2005-10-04 04:40:00) [2]

Возможно, так:


Var
X,Y:integer;
Text:string;
Begin
Memo1.Clear;
X:=1;
Y:=1;
Repeat
Text:='';
Repeat
 Text:=Text+IntToStr(X);
 Inc(X);
Until (X>Y);
Memo1.Lines.Add(Text);
X:=1;
Inc(Y);
Until (Y=10);
Memo1.Lines.Add(Text+'0');


С уважением, ЕВА

---

kristina_   (2005-10-04 03:04:00) [3]

Германн
можеш покозать?если конеФФна не трудно для тебя :)

---

Германн   (2005-10-04 02:59:00) [4]

2 kimona   (04.10.05 02:44) [2]
Можно!

---

kimona   (2005-10-04 02:44:00) [5]

спасибо ЕВА!

возник ещо один вопрос: можнjли это осушиствить с помощью repeat..until?

---

saNat   (2005-10-04 01:52:00) [6]

Вот это требуется:


Procedure TForm1.Button1Click(Sender:TObject);
Var
X,Y:integer;
Text:string;
Begin
Memo1.Clear;
X:=1;
Y:=1;
While Y<10 Do
 Begin
  Text:='';
  While X<=Y Do
   Begin
    Text:=Text+IntToStr(X);
    Inc(X);
   End;
  Memo1.Lines.Add(Text);
  X:=1;
  Inc(Y);
 End;
Memo1.Lines.Add(Text+'0');
End;

?

С уважением, ЕВА

---

Наверх