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
P3P
4
381
Vastaukset 4
- 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
- 1292079
- 51989
Perhoseni (miehelle)
Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r160877Myönnetään, tunnen lämpimiä tunteita kohtaasi
Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....50766- 77720
- 53627
- 67626
- 59616
Onko Sofia jälleen jätetty?
Moni asia viittaisi siihen, että hän on jälleen sinkku.145612Rekat seisovat dieselin hinnan takia . Ala ei kestä tällaista hintatasoa, sanoo yrittäjä .
EU:n kallein diesel on kova paikka kuljetusalalle. Ajoja on jätetty ajamatta kannattavuusongelmien vuoksi, sanoo alan e133570Mies, näetkö minut myös
Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?20520- 52513
- 6504
- 4499
Voiko se ikinä toimia
Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het32498- 55488
- 34487
Nainen, mitä mieltä olet kodittomista?
Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?118486Totta on asia. Jeffrey Cohen on jättänyt Sofian.
Vaimon viesti on paljastanut totuuden.154476Mitä jos...
Susta tykätään poikana enemmän, kun tyttönä? Miten asian käsittelet tai otat tiedon vastaan? T nainen gubetellija herät142463