PureBasic беда с написанной программой!!!
Доле в том что я решил попробовать себя в смостоятельном изучении программирования. Нашёл PureBasic там были видео уроки учебник в электронном виде, короче всё для начинающих. Просмотрел видео по начальным командам и синтаксису и написал, уже на основе того что узнал, свою програмку (Там подсчёт сотни с разным шагом в консольном режиме) . И вроде должно работать так как задумано и работает, но только при первом подсчёте. Дальше переход без условий (D:) к точке в которой снова предлагается ввести число и программа тупо не запускает программу цикла:
Case "y"
PrintN("Vvedite velechinu shaga.Ne men'she 1, ne bol'she 50.")
B$=Input()
If 1<=Val(B$) And Val(B$)<=50
While F<100
F+Val(B$)
If F>100
Continue
EndIf
PrintN(Str(F))
Wend
Просто перескакивает на Wend и возвращает к точке
Вопрос такой! Есть ли ошибка в написании программы или надо менять версию PureBasic,а может и язык поменять (в крайнем случае) .
ЗАРАНЕЕ БЛАГОДАРЕН!! !
Вот текст программы:
If OpenConsole()
PrintN("Schiot ot 0 do 100.Poschitat'?")
S:
PrintN("y - da,n - net")
PrintN("end - vihod")
A$=Input()
Select A$
Case "n"
Print("Net tak net...")
Delay(2000)
End
Case "y"
PrintN("Vvedite velechinu shaga.Ne men'she 1, ne bol'she 50.")
B$=Input()
If 1<=Val(B$) And Val(B$)<=50
While F<100
F+Val(B$)
If F>100
Continue
EndIf
PrintN(Str(F))
Wend
PrintN("end - vihod")
Goto D
ElseIf B$ = "end"
PrintN("Poka")
Delay(3000)
End
Else
PrintN("Vvedena bukva ili chislo ne iz 'ot 1 do 50'.")
PrintN("end = Vihod")
Goto D
EndIf
Case "end"
Print("Poka")
Delay(3000)
End
Default
PrintN("Vvedite odnu iz trebuemih komand.")
Goto S
EndSelect
EndIf
P.S. Прошу извинить за кривизну кода! ЭТО моя первая программа. Так же на счёт Goto я в курсе что это не лучший выбор но только этот оператор мне известен в данный момент.