Kirjautuminen

Haku

Tehtävät

Koodit: Logo: Lukujen vertailu

Kirjoittaja: Linkku

Kirjoitettu: 09.05.2004 – 09.05.2004

Tagit: ohjelmointitavat, koodi näytille, vinkki

Jättimäisen suosion saanut logokoodivinkki saa jatkoa.

Koodissa tehdään randomina luku ja sitten silmukka joka tarkastaa onko luku sama mikä on randomilla arvottu.

Suoritetaan kirjoittamalla 'tarkistaluku'.

to tarkistaluku

   make "luku 1             ; muuttujan 'luku' arvoksi 1
   make "luku2 random 14

   until [:luku > 15][       ; kunnes luku on 15

      make "luku  :luku + 1  ; kasvatetaan yhdellä
      test :luku = :luku2    ; kokeillaan onko tosi

      ; jos on tosi
      ; print[] ei piirrä tekstiä näytölle vaan tulostaa sen tekstinä
      iftrue [print [Luvut ovat samat]]

      ; jos ei ole tosi
      iffalse [print [Luvut eivät ole samat]]
   ]
   ; tallentaa koodin nimellä 'luvuntarkistus.lgo'
   save "luvuntarkistus.lgo
end

Kommentit

Gwaur [09.05.2004 22:08:31]

#

Entäs vertailu tyyliin pienempi kuin tai suurempi kuin?
Vaikuttaa kyllä kivalta kieleltä :)

Linkku [10.05.2004 07:33:34]

#

No siis sehän onnistuu ihan if :luku > :luku2, mutta tässä nyt oli ideana tarkistaa onko se tosi.

Heikki [10.05.2004 07:33:46]

#

Logohan tulee vauhdilla putkaan. Onko jo toinen Logo-esimerkki?

makeuu [10.05.2004 14:21:51]

#

Linkku, milloin kirjoitat oppaan?

mamaze [10.05.2004 14:43:10]

#

tulee se logo joo mutta ei tuolla kyllä mitään pelejä kannata ruveta tekemään, jos kaikki ohjelmat pitää ajaa itse logolla (ei(kö/hän) sillä voi tehdä exe - filejäkään.

(eikä tallentaa tiedostoja)

Antti Laaksonen [10.05.2004 17:11:25]

#

Harvoin olen innostunut mistään kielestä samalla tavalla kuin Logosta. Jos Linkku ei kirjoita opasta, niin minä teen sen. :)

Linkku [10.05.2004 18:55:44]

#

Tässä Antille pari linkkiä oppaan kirjoittamista varten:

MSWlogo, jota kannattaa käyttää
http://www.softronix.com/logo.html

Logotutoriaali
http://www.cs.brown.edu/courses/bridge/1997/Resources/LogoTutorial.html

Ja tämä kannattaa lukaista läpi
http://www.southwest.com.au/~jfuller/logotut/logo1.htm

Fisher [11.05.2004 20:19:49]

#

ja kuutio logolla:

to nelio
   repeat 4 [fd 100 rt 90]
end

to kuutio
   perspective
   repeat 4 [nelio fd 100 down 90]
end

Kirjoita kommentti

Muista lukea kirjoitusohjeet.
Tietoa sivustosta