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

Переписка с Бейсика в С++ - C++

Восстановить пароль Регистрация
 
jxallkmen
227 / 18 / 0
Регистрация: 27.12.2012
Сообщений: 68
05.05.2013, 15:31     Переписка с Бейсика в С++ #1
Помогите переписать два кода с Бейсика в С++

Зарание спасибо

1.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
15  Private Sub Command1_Click()
Dim X(12) As Single, T(12) As Single
Dim A!, S!, P!
Dim i%, st1 As String, st2 As String
Randomize (Timer)
S = 0: P = 1: st1 = "": st2 = ""
For i = 1 To 12
X(i) = Int(Rnd * 10): st1 = st1 & X(i) & "  "
T(i) = Int(Rnd * 10): st2 = st2 & T(i) & "  "
If i < 8 Then S = S + (X(i) - T(i)) Else P = P * (X(i) - T(i))
Next i
MsgBox st1 & vbLf & _
        st2 & vbLf & _
        "A=" & S & " + " & P & "=" & S + P
End Sub
2.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
15  Private Sub Form_Load()
Dim C(1 To 5, 1 To 11), M1, T, R
For i = 1 To 5
    For j = 1 To 11
        C(i, j) = Int(100 * Rnd - 50)
    Next j
Next i
M1 = C(1, 1): T = 1: R = 1
For i = 1 To 5
    For j = 1 To 11
        If C(i, j) < M1 Then M1 = C(i, j): T = i: R = j
    Next j
Next i
MsgBox "M1 = " & M1 & Chr(13) & "T = " & T & Chr(13) & "C = " & R
End Sub
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2013, 15:31     Переписка с Бейсика в С++
Посмотрите здесь:

C++ Помогите переписать с Бейсика на С/С++
Windows 7 где в виндоус 7 сохраняется переписка
Переписка боссов WoW по скайпу
Windows Переписка файлов в несколько потоков
Turbo Pascal Задача переписка
Внутренняя переписка на сайте PHP БД
Fread(), fseek(), fwrite() - Переписка байтов C++
Из Бейсика на C C++ WinAPI

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 11:30. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru