Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
227 / 18 / 2
Регистрация: 27.12.2012
Сообщений: 69
1

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

05.05.2013, 15:31. Просмотров 311. Ответов 0
Метки нет (Все метки)

Помогите переписать два кода с Бейсика в С++

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

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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2013, 15:31
Ответы с готовыми решениями:

Помогите переписать с Бейсика на С/С++
CLS DO cl1 = 0 /* + */ cl2 = 0 /* + */ datPort$ = &quot;&quot; /* ?*/ strGps$ = &quot;&quot; /*...

Fread(), fseek(), fwrite() - Переписка байтов
Всем привет. Такой вопрос. Есть задача пройтись по бинарному файлу с вещественными числами и...

Интересная переписка
В скором времени Маричка будет принимать участие в конкурсе &quot;Мисс-Школа 2013&quot;. Зеник обещал помочь...

Переписка я Яшей
Собственно сайт _http://mfree.ru После этого ответа морда появляется в индексе Дальше...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2013, 15:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переписка с Платоном
Мой основной адалт сайт уже примерно пол года отсутствует в поиске. Много писем я писал и получал...

Задача переписка
Недавно была перехвачена переписка Ильи с Илоной. Из нее были удалены все символы, кроме смайлов:...

Интересная переписка
В скором времени Маричка будет принимать участие в конкурсе &quot;Мисс-Школа 2013&quot;. Зеник обещал помочь...

Внутренняя переписка на сайте
Начал делать скрипт на php внутренней переписки и застрял на первом этапе, вот такой вопрос,...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.