Syntax error при выводе строки на экран

Здравствуйте я хотел бы научится писать программы и приобрел книгу там первое задание на qbasic я сам эту программу не нашел для win 7 64 bit и установил PureBasic (x64) и теперь у меня токай вопрос Введите в программном окне текст вот такой:
10 PRINT "Сообщите пароль, шеф"
20 INPUT PS
30 CLS
40 PRINT "Стой! Пароль?"
50 PRINT "У Вас две попытки"
60 FOR A = 1 TO 2
70 INPUT AS
80 IF AS  = PS THEN A = 2: GOTO 130
90 PRINT "Неправельно"
100 NEXT A
110 PRINT "Прочь, шпион!"
120 END
130 PRINT "Проходите, друг!"
140 END
я его пишу все правильно в программе PureBasic (x64) но выводит вот такую ошибку Line 1:Syntax error пожалуйста подскажите что делать или я что делаю не так ?? Зарание спасибо
7 ответов

Синтаксис разных диалектов BASIC иногда заметно отличается. Программа, написанная для одного, без правок на другом не пойдет. Насколько я могу судить по беглому поиску, нумерация строк в PureBasic не практикуется, да и вообще синтаксис весьма далек от QBasic.Как запустить QBasic на Windows 7


aza, в PureBasic эта прога не пойдет, а для QBasic ее надо исправить, Вы набрали символ s вместо $:
10 PRINT "Сообщите пароль, шеф"
20 INPUT P$
30 CLS
40 PRINT "Стой! Пароль?"
50 PRINT "У Вас две попытки"
60 FOR A = 1 TO 2
70 INPUT A$
80 IF A$ = P$ THEN A = 2: GOTO 130
90 PRINT "Неправельно"
100 NEXT A
110 PRINT "Прочь, шпион!"
120 END
130 PRINT "Проходите, друг!"
140 END
В таком виде прога работает.А осталное Вам уже написали.


спасибо


и приобрел книгу
aza, вы купили книгу времён перестройки? ))) Так уже давно авторы не пишут и на подобных примерах не учат.


а вы можете посоветовать что нибудь если бы видео та было бы замечательно ))


На PureBasic, код будет выглядеть немного по другому.
OpenConsole()
 
PrintN("Сообщите пароль, шеф")
P$=Input()
PrintN("Стой! Пароль?")
PrintN("У Вас две попытки")
 
For A = 1 To 2
  A$=Input()
  If A$ = P$ 
    Goto m1
  Else
    PrintN("Неправельно")
  EndIf
Next A
 
Print("Прочь, шпион!")
Input()  ; Чтобы консоль не закрылась. Нажать Enter для закрытия.
End
 
m1:
PrintN("Проходите, друг!")
Input()  ; Чтобы консоль не закрылась. Нажать Enter для закрытия.
End
Литературу по PureBasic можно найти на форуме. Литература по PureBasic


а вы можете посоветовать что нибудь если бы видео та было бы замечательно ))
Могу: nibbles.bas и справка QBasic. Видео не учит терпению и выработке собственного стиля, а вбивает в вашу голову шаблоны и стереотипы. Код запускать желательно на DOSBox c низкими циклами.