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

373

Ää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. Vesikin maksaa, miksei hengitysilma?

      Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial
      Maailman menoa
      29
      1879

    2. Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin

      Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras
      Maailman menoa
      162
      1844

    3. Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä

      Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva
      Maailman menoa
      364
      1646

    4. Mitä haluaisit

      Tehdä kaivattusi kanssa?
      Ikävä
      150
      1247

    5. Mies profiloin sinut

      Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.
      Ikävä
      215
      1199

    6. Lahkokasteen ja kristillisen kasteen erot

      Raamatun mukaan Kristillisessä yhdessä kasteessa Jumala pesee ja puhdistaa ihmisen sydämen ja poistaa perisynnin kirouks
      Kaste
      422
      1138

    7. Känsäkoura ja hotelli

      Tietoa kuka ostanut?
      Kuhmo
      12
      1081

    8. Heikki Paasosen Marita-vaimo jätti tunteikkaat jäähyväiset: "Tällä kertaa me..."

      Heikki Paasonen on naimisissa Marita Paasosen (os. Alatalo) kanssa ja heillä on kaksi pientä lasta. Nyt koitti aika jätt
      Suomalaiset julkkikset
      7
      1032

    9. Salainen kastekoulutus

      Millainen on helluntailainen kastekoulutus ja kauanko se kestää ?
      Kaste
      285
      1005

    10. Nostetaanko nainen kissa pöydälle?

      Ja selvitetään nämä tunteet?
      Ikävä
      82
      991
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt