La Tortue parle Turc ou le Turc par le Logo !

enseigner à Logo - ögretmek () - to teach to Logo
programme(s) - program - procedures

POUR - üzere, için - (for) to

FIN - Son - End

POUR FAIREUNCARRE ;;Kare yapmak icin REPETE 4 [AV 60 TD 90] ;;sayfa bir FIN

POUR KARE :COTE ;;côté-taraf - longueur-uzunluk REPETE 4 [AV :COTE TD 360 / 4] ;;td 90... FIN

POUR ROSAKARE :FOIS :COTE ;;fois-defa REPETE :FOIS [KARE :COTE TD 360 / :FOIS] FIN

SI - Ise - If

[] alors - o sirada - then {sinon - yoksa}

STOP - Dur (durdurmak : arrêter, interrompre)

POUR KAREPP :COTE SI :COTE < 10 [STOP] KARE :COTE ;;{ KAREPP :COTE - 10 ;;} FIN

P_LOGO	réponse - cevap
?FAIREUNCARRE
?KARE 35
?ROSAKARE 10 45
?KAREPP 80

POUR EPELLE :MOT ;;épeler - hecelemek SI VIDE? :MOT [STOP] ;;vide - empty ECRIS PREMIER :MOT EPELLE SP :MOT FIN

POUR EPELER ;;épeler - hecelemek (si, alors, sinon - ise, o sirada, yoksa) SI VIDE? :MOT [STOP] [EC PREM :MOT EPELER SP :MOT] FIN

POUR COMPTER :LISTE SI VIDE? :LISTE [RENDS 0] [RENDS + 1 COMPTER SP :LISTE] FIN

POUR INVERSEM :M ;;mot - söz SI VIDE? :M [RETOURNE "] RETOURNE MOT DERNIER :M SD :M FIN

POUR INVERSEL :L ;;liste - list SI VIDE? :L [RETOURNE []] RETOURNE PHRASE DERNIER :L INVERSEL SD :L FIN

P_LOGO	réponse - cevap
?EPELLE "EVET	E V E T
?EPELER "HAYIR	H A Y I R
evet - oui - yes	hayir - non - no
?ECRIS COMPTER [A Z E R T Y U I O P]	10
?ECRIS INVERSEM "LEYLA	ALYEL
?ECRIS INVERSEL [A D N]	N D A

Bas (s avec une cédille) sayfa (page 0)

Sayfa dört (page 4)