Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.23 c
14-1128920739
ilya39
2005-10-10 09:05
2005.10.30
Visual Studio Beta 2


6-1118473231
ZAV
2005-06-11 11:00
2005.10.30
Как загрузить файл на сайт?


14-1128436634
oldman
2005-10-04 18:37
2005.10.30
Чисто информационная ветка. Может даже опрос...


2-1128037519
TechnoDreamer
2005-09-30 03:45
2005.10.30
Помогите составить запрос


3-1127292171
Каспер
2005-09-21 12:42
2005.10.30
Обработчик AfterScroll, в ADOQuery





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский