Generowanie Liczb

0

Witam,
zastanawiam się nad pewnym zagadnieniem?

  1. Ile znaków pomieści MEMO?
    2.Jak można napisać program w którym podaje poszczególne znaki
    np. abcdefg i z tych znaków układa np od 1 do 100 cyfrowe kombinacja tzn ilość cyfr w jednej kombinacji można podać na 5 kombinacji
  • warunek że nie może być dwóch takich samych znaków koło siebie/albo mogą taki checkbox + warunek. niezbyt wiem jak mam sie do tego zabrać
    myślałem by najpierw generować w memo1 a potem zapisać do txt?
0

Poszukaj sobie kodów do tworzenia tak zwanych anagramow z podanych liter i zastosuj w pętli ile kombinacji potrzebujesz. Możesz je dodać do TStringlist i
później w pętli albo jeżeli nie jest ważna wielkość liter sprawdzać IndexOf('Kombinacja') jeżeli zwróci -1 to znaczy, że jeszcze takiej na liście nie ma i można dodać.
Natomiast sprawdzenie czy obok danej litery nie ma drugiej takiej samej zrobisz też w pętli. Od 1 do Length(kombinacja) - 1 i jeżeli Znak[I] <> Znak[I] + 1 to nie
powtarza się znak czyli na przykład jest AB, a nie AA. Więcej informacji znajdziesz w google. A Memomoże i pomieści mniej znaków, ale zawsze możesz użyc
TStringList, który przynajmniej od Delphi 7, pozwala na pomieszczenie bardzo dużych ilości tekstu, a można go zapisac do pliku, konwertujac liczby na tekst.

1 użytkowników online, w tym zalogowanych: 0, gości: 1