Цитата:
|
Сообщение от m1sclick
Ну если говоришь что хочешь научиться то учись. А то я скину тебе код а толку для тебя ноль будет.
Создай массив с анлийским алфавитом, 8 переменных типа integer, дальше друг в друге напиши 8 циклов, а в конце добавь что-то типа Memo1.Lines.Add(alphabet[first]+alphabet[second]+alphabet[third]+...);
И на выходе получишь все возможные комбинации.
|
Решил написать код не для всего Англ.алфавита , а для 3 букв : a,b,c ( для начала , что бы не запутаться ) , но не знаю как поставить оператор цикла и правильно организовать вывод результатов . Вот мой примитивный код :
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Abc : array [1..3] of char; // массив с алфавитом
k,n,m ,i: integer;
begin
Abc[1]:='a';
Abc[2]:='b';
Abc[3]:='c';
k:=0;
While k<=2 do // первый оператор цикла
begin // начало первого оператора цикла
k:=k+1;
Memo1.Lines.Add(Abc[k]);
end // коней первого оператора цикла
...
... // Место для других операторов цикла
...
end;
end.
т.к. пока один оператор цикла , то в Memo1 у меня получилось так : a , b , c ( т.е. как и должно быть ).