Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

помагите с алгоритмом   Найти похожие ветки 

← →
kimona   (2005-10-04 01:22) [0]

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

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

---

← →
saNat ©   (2005-10-04 01:52) [1]

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


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;

?

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

---

← →
kimona   (2005-10-04 02:44) [2]

спасибо ЕВА!

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

---

← →
Германн ©   (2005-10-04 02:59) [3]

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

---

← →
kristina_   (2005-10-04 03:04) [4]

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

---

← →
saNat ©   (2005-10-04 04:40) [5]

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


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");


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

---

← →
Германн ©   (2005-10-05 00:25) [6]

А можно и так:

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 обойтись, но на мой скус - не стоит.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.048 c