Vlákno názorů k článku
BASIC oslavil 60 let od CPU - 10 LET A=0 20 PRINT "HORRAY!" 30 IF A<100 THEN...

10 LET A=0
20 PRINT "HORRAY!"
30 IF A<100 THEN GOTO 50
40 END
50 A=A+1
60 IF A=100 THEN PRINT "JA NERAD JEZKA"
70 IF A=100 THEN A=0
80 GOTO 20

2. 5. 2024, 11:35 editováno autorem komentáře

Nie je mi úplne jasné načo sú tam tie riadky 30 a 40.

Riadok 70 zabezpečí, že A nikdy nebude rovné alebo väčšie ako 100 počas tej kontroly.

To se takhle dělalo, aby ti to chcíplo, když se ti to dostane mimo mez :-D
Je to v podstatě obdoba:
MOV BX, 100 decimálně;
CMP CX, BX;
JB NavestiKdeToJeOK;
---sem se to nemá dostat, ukonči program, když jsi udělal logickou chybu---

Jo to byla doba :-D

Cavo asi narazal ze je to nekonecna smycka

A tak to má být :)

Vždyť jo. Dostaneš 99x "HOORAY", pak 1x "Já nerad Ježka", a tak pořád dokola.
Akorát takhle v dialektu, nemajícím cykly, je to na Kinedryl.

Tak aspoň pište "SPOILER ALERT", když už vyzrazujete pointu vtipu! ;-)

Řádky 30 a 40 jsou tam proto, aby to byl *zdánlivě* konečný algoritmus.
Následující řádky jsou tam proto, aby to bylo vtipné :-).

10 INPUT "CO MATE PROTI JEZKOVI?";A$
20 IF A$="VUBEC NIC" GOTO 50
30 IF A$<>"VUBEC NIC" PRINT "SPATNA ODPOVED! ZKUS ZNOVU A LEPE."
40 GOTO 10
50 PRINT "HNED JSEM SI TO MYSLEL"

Řádek 30 - podmínka je tam zbytečně.
30 PRINT "SPATNA ODPOVED! ZKUS ZNOVU A LEPE."

Jasne, vim to, ale vsiml jsem si toho teprve az po odeslani prispevku, kdy to uz neslo dodatecne editovat.

Lepší by bylo vyrobit z GOTO infinite loop, přepsat řádky 30 a 40 na guard clause a případně použít GOSUB místo GOTO.

2. 5. 2024, 17:46 editováno autorem komentáře

JJ :)

>případně použít GOSUB místo GOTO.

Toto som chcel navrnúť ja :)

GOSUB taky zavan proceduralneho programovania.

GOSUB a RETURN boli v ATARI basicu podporovane od zaciatku.