Kirjoittaja: Gwaur
Kirjoitettu: 27.12.2002 – 27.12.2002
Tagit: teksti, koodi näytille, vinkki
Tämä koodi tulostaa annetun merkkijonon (muuttujassa a) väärinpäin, esim: Moi -> ioM. Tällä voisi vaikka tarkistaa palindromit, esim: Noki-Matti, tittelittä jätti Letti-Titta Mikon --> nokiM attiT-itteL ittäj ättilettit ,ittaM-ikoN.
CLS DIM SHARED a AS STRING DIM SHARED b AS STRING a = "Ohjelmointiputka 2002" FOR i = 1 TO LEN(a) b = b + LEFT$(RIGHT$(a, i), 1) NEXT i PRINT b
Kelpaa.. tuntuu vähän siltä, että tämä olisi tehty vain tuota 365-tavoitetta varten.. :)
Simppeli on kyllä.. ehkä vähän liiankin simppeli tosiaan :)
erittäin simppeli.
juu aika yksinkertainen mutta ihan hauska ;)
No joo...voihan tuota käyttää tosiaan palindromien tarkastamiseen :) Funktioksi olisit voinut laittaa.
emmä osaa oikein noita aliohjelmia kun se aina valittaa jotain...
yritin kyllä mutta tuli liikka virheitä niin päätin jättää sen idean pois.
Tosiaan onnistuisi paremminkin.
Vaikka näin, vaikka taisi mennä vähän väärin kun näin nopeati kirjoitin ja kirjoitankin hyvin huolimattomasti koodia.
DECLARES SUB Kaanna(A$) INPUT "Mikä teksti käännetään";A$ Kaanna PRINT B$ SUB Kaanna(A$) FOR i = 1 TO LEN(A$) B$ = B + LEFT$(RIGHT$(A$, i), 1) NEXT i END SUB
ehkä fuktioksi kuitenkin kannattaa, ja kimmo toi sun juttus ei toimi oikein
INPUT "Mikä teksti käännetään"; a$
PRINT kaanna$ (a$)
FUNCTION kaanna$ (a$)
FOR i = 1 TO LEN(a$)
b$ = b$ + LEFT$(RIGHT$(A$, i), 1)
NEXT i
kaanna$ = b$
END FUNCTION
mutta kun mä en edelleenkään osaa noita funktioita ja aliohjelmia. Mulla tulee aina joku virhe, mm. "Array not defined" tai "Dublicate label". Ja sitten mun joskus valittaa jotain että muuttujan nimi ei voi päättyä $-merkkiin.
Ainakin jos käytät GOTOa, noita "Array not defined" -ilmoituksia voi tulla. :/ "Duplicate label" -ilmoitusta en ole koskaan itse saanut, enkä siis myöskään tiedä, mitä se tarkoittaa.
Ja muuten, tuo KimmoKM:n juttu ei toimi, koska siinä aliohjelman sisällytyslauseessa on virhe: "DECLARES SUB". ;) Sen pitäisi olla "DECLARE SUB". Yleisesti ottaen minusta muutenkin on järkevämpää tehdä tuosta funktio, niinkuin snakari teki.
Tuobbi, mää kyllä tiedän mitä dublicate meinaa. Se on se että jos samassa ohjelmassa on vaikka kaks kertaa kohta
moi:
SE DECLARESin loppu S oli pelkkä kirjoitusvirhe. Kuten B muuttujan perästä puuttui yhdestkä kohtaa myös $.
Bugi!Ohjelma tuottaa vain tekstin viimeisen merkin niin monta kertaa kuin merkkejä tekstissä.Esimerkiksi abc = ccc.
Jos olisin moisen bugin havainnut, en kai olisi tätä tänne lähettänytkään? ;)
Juu, kirjoitin väärin koodin.
.allopeleh niun ikilut es .eh eH