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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
jxallkmen
227 / 18 / 0
Регистрация: 27.12.2012
Сообщений: 69
#1

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

05.05.2013, 15:31. Просмотров 209. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2013, 15:31
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переписка с Бейсика в С++ (C++):

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

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

Задача переписка - Turbo Pascal
Недавно была перехвачена переписка Ильи с Илоной. Из нее были удалены все символы, кроме смайлов: • :( -1 • :) +1 • :-D ...

Внутренняя переписка на сайте - PHP БД
Начал делать скрипт на php внутренней переписки и застрял на первом этапе, вот такой вопрос, создавать одну таблицу для хранения писем и...

Переписка сектора памяти - Assembler
Ребят, помогите, пжлст! Нужно написать программу (лабораторная работа), а как обычно бывает в нашей стране, препода не было пол семестра и...

Из Бейсика на C - C++ WinAPI
Есть программа, написанная на Microsoft Quick Basic v.4.50, которая пингует сайт и при не получении ответа от сайта в течении 120 секунд...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2013, 15:31
Привет! Вот еще темы с ответами:

Где в Windows 7 сохраняется переписка ВК - Windows 7
Самые умненькие мальчики,расскажите пож-та где в виндоус 7 сохраняется переписка например контакта?????

Переписка файлов в несколько потоков - Windows
Переписываю файлы с компьютера (у нас 4 харда с большими файлами) на внутренний hdd, подключенный к компу через док.станцию по eSATA. ...

с бейсика на паскаль - Pascal ABC
у меня есть программа на бейсике,мне ее же нужно написать на паскале: 10 PRINT &quot;день,месяц,год(12,08,1992)&quot; 20 PRINT 21 PRINT 22...

Интерпретатор бейсика - C (СИ)
Вот исходник из какой-то книги по Си, точное название не помню http://rghost.ru/19458571 В ней рассматривается интерпретатор бейсика и...


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

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

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