Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Сколько штатов в государстве (перевод с С на С++) https://www.cyberforum.ru/ cpp-beginners/ thread856470.html
#include <stdio.h> #define CITY_MAX 100 #define ROAD_MAX 1000 struct road { int city1; int city2; }; struct roadto {
Про звук C++
Не знаю, в какую тему обращаться, поэтому написал сюда. В общем, мне потребовалась какая-нибудь библиотека для работы со звуком. Требования примерно такие: умение убрать шум, склеить в один файл...
Класс в классе C++
Здравстуйте. При создании базы данных столкнулся со следующей проблемой - не знаю как определить класс внутри класса. А именно скажите в чем здесь ошибка class student{ public: char* name; ...
C++ Работа со стеком. Программа, которая к вершине стека добавляет некоторое число, а следующему элементу присваивает значение предыдущего Есть некоторый стек, в каждом элементе которого записаны по два целых числа. Нужно сделать программу которая к вершине стека добавляет некоторое число, а следующему элементу присваивает значение... https://www.cyberforum.ru/ cpp-beginners/ thread856453.html
C++ Произвести хэширование по словам https://www.cyberforum.ru/ cpp-beginners/ thread856435.html
Помогите, пожалуйста, разобраться, что должна делать хэш-функция. Мне нужно произвести хэширование по словам, т.е. я должен каждому слову каким-то образом присвоить какое-либо число? Если да, то как...
Массив указателей на методы класса C++
Подскажите плз в чём ошибка: class Entrant{ int ID; int mark; int school; int addpt; int totall; string sname;
Создать абстрактный тип данных - класс вектор, который имеет указатель на long, число элементов и переменную состояния C++
Помогите пожалуйста, нужно написать код на с++ Создать абстрактный тип данных - класс вектор, который имеет указатель на long, число элементов и переменную состояния. Определить конструктор без...
C++ Ввод строки с пробелами произвольной длины Помогите, пожалуйста. Нужно ввести строку произвольной длины с пробелами и различными символами. Мой код: char *s; s=new char; cout<<"vvedite stroku: "; cin>>s; cout<<s<<endl; https://www.cyberforum.ru/ cpp-beginners/ thread856368.html
C++ Дано действительное число а, не пользуясь ни какими другими арифметическими операциями, кроме умножения получить а^5 и а^13 за 5 операция https://www.cyberforum.ru/ cpp-beginners/ thread856362.html
1 )Дано действительное число а, не пользуясь ни какими другими арифметическими операциями, кроме умножения получить а^5 и а^13 за 5 операция
C++ Исключение для шаблона Здравствуйте ! У меня следующий вопрос : Есть база данных, написан шаблон ввода для нее template <typename T> friend std::ostream& operator<<( std::ostream& os, Array<T>& cont){// ... https://www.cyberforum.ru/ cpp-beginners/ thread856356.html
227 / 18 / 2
Регистрация: 27.12.2012
Сообщений: 69
0

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

05.05.2013, 15:31. Просмотров 313. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.