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

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

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

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

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
низкими циклами.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

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

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

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

Решение