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

@aza · Регистрация: 11.09.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте я хотел бы научится писать программы и приобрел книгу там первое задание на qbasic я сам эту программу не нашел для win 7 64 bit и установил PureBasic (x64) и теперь у меня токай вопрос Введите в программном окне текст вот такой:

QBasic/QuickBASIC

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
пожалуйста подскажите что делать или я что делаю не так ?? Зарание спасибо

quwy · 11.09.2014, 20:06

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

Добавлено через 56 секунд
Как запустить QBasic на Windows 7

@markiza-inc · 11.09.2014, 22:08

aza, в PureBasic эта прога не пойдет, а для QBasic ее надо исправить, Вы набрали символ s вместо $:

QBasic/QuickBASIC

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 · 12.09.2014, 18:34 **[ТС]**

спасибо

@Quiet Snow · 16.09.2014, 20:33

и приобрел книгу

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

@aza · 17.09.2014, 08:00 **[ТС]**

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

@locm · 17.09.2014, 13:12

На PureBasic, код будет выглядеть немного по другому.

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

@Quiet Snow · 18.09.2014, 21:40

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

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

quwy Native x86 5514 / 3273 / 934 Регистрация: 13.02.2013 Сообщений: 10,423
	11.09.2014, 20:06	2
	Синтаксис разных диалектов BASIC иногда заметно отличается. Программа, написанная для одного, без правок на другом не пойдет. Насколько я могу судить по беглому поиску, нумерация строк в PureBasic не практикуется, да и вообще синтаксис весьма далек от QBasic. Добавлено через 56 секунд Как запустить QBasic на Windows 7 0

@aza 0 / 0 / 0 Регистрация: 11.09.2014 Сообщений: 15
	12.09.2014, 18:34 [ТС]	4
	спасибо 0

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,623 Записей в блоге: 2
	16.09.2014, 20:33	5
	Сообщение было отмечено aza как решение Решение и приобрел книгу aza, вы купили книгу времён перестройки? ))) Так уже давно авторы не пишут и на подобных примерах не учат. 1

@aza 0 / 0 / 0 Регистрация: 11.09.2014 Сообщений: 15
	17.09.2014, 08:00 [ТС]	6
	а вы можете посоветовать что нибудь если бы видео та было бы замечательно )) 0

	18.09.2014, 21:40

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

Решение