Форум программистов, компьютерный форум CyberForum.ru

Basic для платформы Android - Basic4Android - Basic4Android

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic Найти с заданной точностью корни уравнения http://www.cyberforum.ru/basic4android/thread1146225.html
Вчера пол дня провела в интернете изучая бессик,ни кто не поверит ,но ничего не поняла ,особенно господа программисты)я восхищаюсь их способностями и очень огорчена ,что мне этого не дано,помогите пожалуйста .Из 4 заданных заданий смогла кое как сделать первое и то преподаватель помог .печатаю одно из заданий -Найти с заданной точностью корни уравнения соs2/X-sin1/X=1/X=0 в интервале изменения...
Basic Ищу информацию по MobileBASIC Есть что-нибудь по mobilebasic? http://www.cyberforum.ru/basic4android/thread1144060.html
Basic Найти ошибку в программе
подскажите где ошибка: друг попросил написать прогу на бейсике в универ, хз как там с синтаксисом READ STUDENTS TOTAL=0 FOR I=1 TO STUDENTS STEP 1 READ STEPENDIYA TOTAL=TOTAL+STEPENDIYA NEXT І MID=TOTAL/STUDENTS
Программирование вычислений по простейшим формулам Basic
Определить длину вектора и угол между ним и координатными осями при заданных координатных концах вектора. Помогите написать программу пожалуйста!
Basic Выбор бесплатного компилятора Basic http://www.cyberforum.ru/basic4android/thread1131601.html
Всем добрый день! В институте я изучал старенькие VB и QBasic, и сегодня хотел бы применить знание бейсика в деле, получая за это денежку. Подскажите, пожалуйста, бесплатный компилятор языка, идущий в ногу с современностью. Именно компилятор, так как моя работа ближе к разработке отдельных мини-программ, нежели к написанию макросов или .net-приложений. С уважением, Сергей aka Shull
Basic Программа для определения количества цифр для нумерации квартир Программа спрашивает у пользователя, сколько квартир нужно пронумеровать. Результат работы : вывод на экран информации о том, сколько потребуется цифр 0,1,2...9 Нужна консолька :) подробнее

Показать сообщение отдельно
Evgeniy45
Сообщений: n/a
26.07.2014, 17:28     Basic для платформы Android - Basic4Android
Всем привет! Народ, а как должна выглядеть в данном языке конструкция из vb6:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Eag(ByVal Re, ByVal Im)
        piobs = 3.141593
        If Re = 0 Then
            Select Case Im
                Case Is > 0
                    phase = 90 : Exit Sub
                Case Is < 0
                    phase = 270 : Exit Sub
            End Select      [COLOR="Red"]"вадаёт ошибку здесь не могу понять что не так"[/COLOR]
Parsing code.                           Error
Error parsing program.
Error description: Missing Keyword: end select
            
       End If
        
        If Im = 0 Then
            Select Case Re
                Case Is > 0
                    phase = 0 : Exit Sub
                Case Is < 0
                    phase = 180 : Exit Sub
            End Select
        
        If Re > 0 Then
            Select Case Im
                Case Is > 0
                    phase = ATan(Im / Re) * 180 / piobs
                    Exit Sub
                Case Is < 0
                    phase = ATan(Im / Re) * 180 / piobs
                    phase = 360 + phase
                    Exit Sub
            End Select
        End If
        If Re < 0 Then
            phase = ATan(Im / Re) * 180 / piobs
            phase = phase + 180
        End If
    End Sub
Сижу над этим уже почти сутки! Вот вот башню сорвёт!
Заранее благодарен за помощь!!!
 
Текущее время: 15:06. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru