Sanayhdistelmät

P3P

Siis on satoja erilaisia sanoja joista haluaisin
muodostaa KOLMEN SANAN YHDISTELMIÄ.
Keksitty esimerkki: rakas - lastenkoti - pakkanen - hyllytettiin - joulupukki.

Näistä pitäisi muodostaa lauseita joissa kussakin on kolme sanaa. (Esim. yksi kappale: lastenkoti joulupukki hyllytettiin) Tästä 5 sanan ryhmästä tietysti niitä tulee jo aika monta erilaista kolmen sanan lausetta.

Miten Pascalilla?

4

309

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • P3P

      Lomakkeella Button1 ja Memo1


      procedure TForm1.Button1Click(Sender: TObject);
      var i,j,k:integer;
      begin
      Memo1.Clear;
      sl:=TStringList.Create;
      sl.LoadFromFile('sanat.txt');
      for i := 0 to sl.Count-1 do
      for j := 0 to sl.Count-1 do
      for k := 0 to sl.Count-1 do
      if (sl.Strings[i] sl.Strings[j])and
      (sl.Strings[i] sl.Strings[k]) and
      (sl.Strings[j] sl.Strings[k]) then
      Memo1.Lines.Add(sl.Strings[i] ' ' sl.Strings[j] ' ' sl.Strings[k] );

      end;

      • ------------------

        Vähän monipuolisempi saadaan lisäämällä

        ..
        sl:=TStringList.Create;
        sl2:=TStringList.Create;
        sl2.LoadFromFile('sanat.txt');
        sl2.Delimiter:=' ';
        sl2.QuoteChar:=' ';
        sl.Delimiter:=' ';
        sl.DelimitedText:=sl2.DelimitedText;
        for i := 0 to sl.Count-1 do
        ...

    • Epäilijä
      • asdassd

        Kyl toi oli ihan asiallinen. Turhaan huolestuit.
        Näitä Delphillä (tai Pascalilla) tehtyjä
        koodeja on mukava lukea. Lisäksi osa näistä Delphi alueelle kirjoittajista on tosi asiantuntijoita!

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Hyvästi, mies

      Tulen nyt tänne harvoin. Lakkasin unelmoimasta meistä. Päästin irti tästä meidän välisestä tilanteesta. Vaikka mitään ei
      Ikävä
      27
      2351

    2. Sä saisit kenet

      Sä vaan haluaisit
      Ikävä
      79
      1736

    3. Oikein hyvää perjantai päivää

      Hyvää huomenta ja kaikkea hyvää. ☺️🤍🍁✨🧡
      Ikävä
      222
      1062

    4. Hiihtäjälegenda Juha Mieto avautuu Farmin "leidien" käytöksestä - Tämä yllätti: "Me miehet oltiin.."

      Juha Mieto on mukana Farmi Suomi: Revanssi -realityssä. Tsemppiä Farmille, Mietaa! Lue Juha Miedon haastattelu: https:
      Suomalaiset julkkikset
      18
      989

    5. Semmonen juttu, että..

      ..ikävä iski. Mietin kaikkea sitä, mitä sä antaisit mulle ja mitä mä antaisin sulle. Millasta meillä olisi yhdessä, kos
      Ikävä
      28
      934

    6. Nuorempi mies, vanhempi nainen

      Olen aivan sekaisin itseäni n. 20 vuotta vanhemmasta naisesta. En saa häntä mielestäni millään, vaikka olen yrittänyt. E
      Ikävä
      61
      911

    7. Parisuhteettomuus- kyse valinnasta, kelpaamisesta vai siitä ettei osaa hakea

      Parisuhteettomuus- kyse valinnasta, kelpaamisesta vai siitä ettei osaa hakea? Ikivanhan aloituksen provosoimana mietin m
      Sinkut
      122
      891

    8. Mennäänkö sitten mies

      Naimisiin joskus? Haluaisitko?
      Ikävä
      43
      829

    9. Mietin vain sua

      Kuinka saat pään ihan pyörälle. Oltaisiin hyviä yhdessä. Joku uskomaton kemia meidän välillä. Ulkopuolisista varmaan näy
      Ikävä
      11
      771

    10. On ilta jälleen joten

      Uusi iltaketju tähän. Mukavaa iltaa vaan. Susi se täällä aina yksin tallustaa. 😊🐺🌃🌙☕🧡
      Ikävä
      118
      720
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt