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
309
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
Hyvästi, mies
Tulen nyt tänne harvoin. Lakkasin unelmoimasta meistä. Päästin irti tästä meidän välisestä tilanteesta. Vaikka mitään ei272351- 791736
- 2221062
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:18989Semmonen juttu, että..
..ikävä iski. Mietin kaikkea sitä, mitä sä antaisit mulle ja mitä mä antaisin sulle. Millasta meillä olisi yhdessä, kos28934Nuorempi 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. E61911Parisuhteettomuus- kyse valinnasta, kelpaamisesta vai siitä ettei osaa hakea
Parisuhteettomuus- kyse valinnasta, kelpaamisesta vai siitä ettei osaa hakea? Ikivanhan aloituksen provosoimana mietin m122891- 43829
Mietin vain sua
Kuinka saat pään ihan pyörälle. Oltaisiin hyviä yhdessä. Joku uskomaton kemia meidän välillä. Ulkopuolisista varmaan näy11771On ilta jälleen joten
Uusi iltaketju tähän. Mukavaa iltaa vaan. Susi se täällä aina yksin tallustaa. 😊🐺🌃🌙☕🧡118720