Muuttaako lapsi tietokoneen biteiksi?

Seuraa 
Viestejä45973
Liittynyt3.9.2015

DIM Taulu(256)

FOR I=-10 to 10
REM Kaikki nykyisissä digiboxeissa näkyvät oliot on jo
REM muuttuneet biteiksi ja byteiksi(8-bit-tavuiksi)

REM Jumalan Sanasta sanottiin, että Hän on tämä on poika.
REM Tässä näätte edessään AGISSONIN AGIN BOJAN!

REM Mutta hienommaksi tämä poika muuttuu, jos pääset
REM ohjelmoimaan tekoälysovelluksia!

PRINT"Mitä vastaat?";
INPUT VAS$
VASTAUS$=VASTAUS$+VAS$;
IF VAS$="LOPPU" then I=10
VAS$="";
NEXT
pituus=LEN(vastaus$)
FOR I=1 to pituus
A= 1+RND(1)*pituus
SAMERKKI$=mid$(vastaus$,A,1);
Taulu(Asc(SAMERKKI$))=Taulu(Asc(SAMERKKI$))+1
PRINT SAMERKKI$;
NEXT
Print

Tiedättekö mitä ohjelma tekee?
Jos ette - olisi aika oppia!
Toi vastaus ei varmaan voi ylittää 255 merkkiä, mutta kokeilkaa vaikkapa QBASICILLA!

En ole nimeltäni Joona, mutta jollei Joona saarnaa, sanon: "KÄÄNTYKÄÄ JA OPETELKAA OHJELMOIMAAN, JOS TIETOKONETTA KÄYTÄTTE!" Tälläiset "Uhrit" on tietokoneelle hyvin vastenmielisiä, sillä se ei ymmärrä käyttämiämme sanoja, paitsi jos sattuu olemaan valikkopalkissa sama sana!"

Kutsun nyt erästä tuntemaani Joonaa saarnaamaan juuri tätä!
Tietokoneohjelmointi pitäisi aloittaa jo 1. tai 3. luokalla ala-asteella! Innokkasti tietenkin!

Kommentit (2)

Vierailija

Eikö qbasicissa tarvitse viitata suoritettaviin riveihin?

Huonolla basic tuntemuksella, mutta pseudokoodin osaamisella, näyttäisi vähän siltä, että ohjelma muuttaisi annetun sanan nolliksi ja ykkösiksi.

Ps. häpeän osaamattomuuttani.

Vierailija
Shriek
Eikö qbasicissa tarvitse viitata suoritettaviin riveihin?

Huonolla basic tuntemuksella, mutta pseudokoodin osaamisella, näyttäisi vähän siltä, että ohjelma muuttaisi annetun sanan nolliksi ja ykkösiksi.

Ps. häpeän osaamattomuuttani.




Onko muitakin mielipiteitä? Kyseessä ei ole monimutkainen ohjelma? Qbasicin vaikka sen "kivikautisen" saa takuulla ihan ilmaiseksi jostain! Se on aika näppärä vaikkapa olisi pelkkä tulkki! Kääntäjällä tulee vähän nopeempia ohjelmia!

Taulun printtaamisen voisi vielä pistää:
FOR I=65 to 127
PRINT I;":";chr$(i);"=";taulu(i);"kpl"
NEXT

Jos haluaisi tietkoneen pistää arpomaan pitempiä värssyjä, kuinka menettelette?

Uusimmat

Suosituimmat