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?
Sanayhdistelmät
4
341
Vastaukset
- 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ä
sama "yleistä ohjelmoinnista" -palstalla:
http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=652&posting=22000000033289703
Näemmeköhän kohta saman myös C-ohjelmointi -palstalla ?- 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ä.
Luetuimmat keskustelut
Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli
Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei2017038- 1592076
- 1131718
- 511400
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️551268Möykkähulluus vaati kuolonuhrin
Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢571165Älä mies pidä mua pettäjänä
En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu1001084Reeniähororeeniä
Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?71036Tarvitsemme lisää maahanmuuttoa.
Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan257985- 41969