|
#1
|
|||
|
|||
Все комбинации
Подскажите как вычислить все комбинации с записью в memo
в одной строке цифры: 1,2,3,4 и в другой 5,6,7,8 . Нужно высчитать все комбинации например: 1-5 1-6 1-7 1-8 2-5 2-6 12-78 и т.д. и заканчивая 1234 - 5678 |
#2
|
||||
|
||||
Код:
var s1: string = '1234'; s2: string = '5678'; procedure TForm1.Button1Click(Sender: TObject); var i, j: integer; begin Memo1.Clear; i:= 1; while i < 5 do begin j:= 1; while j < 5 do begin Memo1.Lines.Add(s1[i] + '-' + s2[j]); inc(j); end; inc(i); end; i:= 1; while i < 5 do begin j:= 1; while j < 5 do begin Memo1.Lines.Add(s1[i] + s1[i+1] + '-' + s2[j] + s2[j+1]); inc(j, 2); end; inc(i, 2); end; Memo1.Lines.Add(s1 + '-' + s2); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Мих123456 (11.01.2017)
|