| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
erdbeer0815
Anmeldungsdatum: 16.02.2011
Beiträge: 1
|
 Verfasst am: 16.02.2011, 23:28 Titel: Problem mit "schiffeversenken" |
 |
|
Das programm ist schon sehr alt trotzdem wollte ich es kürzlich ausprobieren und mit einen Qbasic emulator runtergeladen
leider wird bei dem text ein Fehler angezeigt weis allerdings nciht wieso?
kann mir jemand helfen?
wäre sehr nett 
| Code: | 10: Z = 60: X = 0: Y = 0: D = 0
20: INPUT "INITAL="; H
30: GOSUB 220
40: A = W
50: GOSUB 220
60: B = W
70: C = ABS(X - A) + ABS(Y - B)
80: PRINT USING "####"; X; Y; C; Z
90: INPUT "DX DY?", P, Q
100:Z=Z-ABS P-ABS Q
110:If 0>=ZBEEP 4:Print "ANZAHL DER GETROFFENEN U-BOOTE=";D:End
120:IF (X+P)=0)*(9>=X+P)*(Y+Q>=0)*89>=Y+Q)<>0goto 160
150:Print "FEHLER":goto 80
160:X=X+P:Y=Y+Q
170:if X=AIF Y=B goto 190
180:goto 70
190:beep 2:print"Treffer"
200:D +1:Z=Z+5:goto 30
210:end
220:E=ABS (439147+E+F)
221:G=E8+1:H=23*E
222:E=H-int (H/G)*G
223:W=int (10*E/G)
224:return
225:end
100:Z=Z-ABS P-ABS Q |
In zeile 10 (100:) wird ein Fehler angezeigt
Incorrect number passed to function in line 10
bemerkung in zeile 200 steht eig D= D+1:... ohne leerzeichen |
|
| Nach oben |
|
 |
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
