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

359

Ää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. Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?

      Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv
      Maailman menoa
      200
      4363

    2. "Mitä sä nainen tuot sitten pöytään" ?

      Jos mies provaidaa ja suojelee... Pitääkö miesten kysyä tuollaisia?
      Ikävä
      100
      2902

    3. Ekologinen kommunismi tulee voittamaan fossiilikapitalismin

      Kiina on mahtitekijä uusiutuvien energialähteiden kehityksessä, ja Trump osoitus viimeisestä öljyn perään itkemisestä, m
      Maailman menoa
      21
      2845

    4. Minja jytkyttää vas.liiton kannatusta ylöspäin

      Alkaa raavaat duunarimiehetkin palaamaan vasemmistoliiton kannattajiksi. Eduskunnassahan on vain kaksi työntekijöiden p
      Maailman menoa
      92
      2654

    5. Aktivistinainen pysäytti ICE-agentin luodin päällään USA:ssa!

      Video ampumistilanteesta: https://edition.cnn.com/2026/01/07/us/video/ice-shooting-minneapolis-digvid "Media: ICE:n am
      Maailman menoa
      152
      2347

    6. 6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta

      Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark
      Maailman menoa
      57
      2295

    7. Oikeistopuolueiden kannatus vain 37,8 %, vasemmiston 43,0 %

      Keskustaan jää 17,4 prosenttia ja loput ovat sitten mitä ovat. Mutta selvästikin Suomen kansa on vasemmalle kallellaan.
      Maailman menoa
      33
      2107

    8. Tiedän ettei

      Meistä mitään tule. Toinen oli sinulle tärkeämpi
      Ikävä
      20
      2072

    9. Mahonselän jäät - Saaristokunta Lieksa brutaalisti kriisin partaalla!

      Lieksan loppuvuoden hyvän kehityksen jälkeen ei olisi uskonut että palstan ahkerista kommentoijista huolimatta matkailu
      Lieksa
      137
      2001

    10. Laitetaan nyt kirjaimet kohdilleen

      kuka rakastaa ja ketä ?
      Ikävä
      87
      1999
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt