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

354

Ää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. Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa

      Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on
      Yrittäjyys
      35
      5591

    2. Pystyisitkö pitämään

      Näppejä erossa jos tulisi siihen tilaisuus
      Ikävä
      53
      5383

    3. Sture Fjäder haluaa tuensaajien nimet julki

      Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h
      Maailman menoa
      100
      4410

    4. En saa sua mielestäni vaikka tekisin mitä

      Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛
      Ikävä
      16
      3813

    5. Luotathan siihen tunteeseen, joka välillämme on?

      Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist
      Ikävä
      44
      3673

    6. Riikka on siis suomalaisille velkaa 84 mrd

      Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai
      Maailman menoa
      131
      3452

    7. Onnettomuus

      Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?
      Kuhmo
      5
      3180

    8. Sanna on suomalaisille siis velkaa 24 mrd euroa

      Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl
      Maailman menoa
      168
      2916

    9. Tuntuuko ettet tiedä

      Enää miten toimia mun suhteen. Kun en taida tietää itsekään
      Ikävä
      25
      2629

    10. Maahanmuuttajat torjuvat marjanpoiminnan - "emme ole rottia"

      Ruotsalaisen journalistin selvitys paljasti, miksi maahanmuuttajat kieltäytyvät työstä. Taustalla vaikuttavat kulttuuris
      Maailman menoa
      40
      2505
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt