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

Перевести с QBasic на С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
QBasic Построить вектор из положительных элементов матрицы http://www.cyberforum.ru/cpp-beginners/thread916585.html
Дана прямоугольная матрица 5*12 1) Определить среднее отрицательных элементов 2) Построить вектор из положительных элементов матрицы
QBasic Определить максимальный и минимальный элемент среди элементов на главной диагонали матрицы 1) Определить максимальный и минимальный элемент среди элементов на главной диагонали 2) Построить массив из положительных элементов матрицы http://www.cyberforum.ru/cpp-beginners/thread916583.html
QBasic Подсчитать количество положительных элементов матрицы
1) Подсчитать количество положительных элементов 2) Построить вектор из отрицательных элементов k-го столбца
Определить какой-либо корень уравнения f(x) = 0 с точностью до ε методом половинного деления QBasic
Определить какой-либо корень уравнения f(x) = 0 с точностью до ε методом половинного деления f(x)=e^(0.5*x)*tg(4*x+1); a=2,2; b=2.43; ε=0.001.
QBasic Вычислить сумму квадратов первых десяти натуральных чисел http://www.cyberforum.ru/cpp-beginners/thread913473.html
Требуется вычислить сумму квадратов первых десяти натуральных чисел. Спасибо за помощь заранее!
QBasic Найти сумму абсолютных значений негативных элементов массива Вот у меня есть начальный код REM Praktica REM Formirovanie isxod dann OPEN "H:\pr.doc" FOR OUTPUT AS #1 RANDOMIZE TIMER DIM d(12) FOR K = 1 TO 12 d(K) = 4 * RND - 1 PRINT "d("; K; ")="; d(K) PRINT #1, "d("; K; ")="; d(K) подробнее

Показать сообщение отдельно
sanechka6
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 31
15.07.2013, 15:15     Перевести с QBasic на С++
Добрый день.Имеется рабочий код на QBasic,хочу переписать его на C++.Пока не получается,требуется ваша помощь.
PureBasic
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
CLS
INPUT "ширина общ", x
INPUT "шир1", a
INPUT "шир2  ", b
INPUT "шир3  ", c
INPUT "шир4  ", d
INPUT "шир5  ", e
 
INPUT "мин шир кромки ", y
INPUT "макс шир кромки ", ym
INPUT "максвозможн число резов ", n
 
PRINT
PRINT
'DIM a(n)
'DIM b(n)
'DIM c(n)
'DIM d(n)
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'a(i) = i * a
'S = S + a
'i = i + 1
'WEND
'AI = i - 4
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'b(i) = i * b
'S = S + b
'i = i + 1
'WEND
'BI = i - 2
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'c(i) = i * c
'S = S + c
'i = i + 1
'WEND
'CI = i - 1
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'd(i) = i * d
'S = S + d
'i = i + 1
'WEND
'DI = i - 1
'm = AI * BI * CI * DI
 
'DIM CROY(AI, BI, CI, DI)
PRINT "крой:"
PRINT
 
 
 
FOR i = 0 TO INT(x / a)
FOR j = 0 TO INT(x / b)
FOR k = 0 TO INT(x / c)
FOR l = 0 TO INT(x / d)
FOR m = 0 TO INT(x / e)
 
CROY = x - a * i - b * j - c * k - d * l - e * m
IF CROY >= y AND (i + j + k + l + m) < n AND CROY <= ym THEN PRINT i; "по"; a, j; "по"; b, k; "по"; c, l; "по"; d, m; "по"; e; " кромка "; CROY
NEXT m, l, k, j, i
END
Добавлено через 21 минуту
На данный момент вот что есть,не знаю так или не так:
C++
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
// wer.cpp : Defines the entry point for the console application.
//
 
#include "stdafx.h"
#include <iostream>
#include <cmath>
 
using namespace std;
 
int _tmain(int argc, _TCHAR* argv[])
{
 
 
    cout << "vvedite dannie: " << endl;
    int x;
    cout << "Shirina rulona";
    cin >> x;
    int a;
    cout << "shirina 1 ";
    cin >> a;
    int b;
    cout << "Shirina 2 ";
    cin >> b;
    int c;
    cout << "Shirina 3 ";
    cin >> c;
    int d;
    cout << "Shirina 4 ";
    cin >> d;
    int e;
    cout << "Shirina 5 ";
    cin >> e;
    int y;
    cout << "Min ";
    cin >> y;
    int ym;
    cout << "Max ";
    cin >> ym;
    int n;
    cout << "razrez";
    cin >> n;
    int *arr = new int[n];
    int *brr = new int[n];
    int *crr = new int[n];
    int *drr = new int[n];
    int s=0;
    int i=0;
    while ((s<=x - y) && (i < n))
    {
        arr[i] = i * a;
        s = s + a;
        i = i + 1;
    }
    int AI = i - 4;
    s = 0;
    i = 0;
    while ((s <= x - y) && (i < n))
    {
        brr[i] = i * b;
        s = s + b;
        i = i + 1;
    }
    int BI = i - 2;
    s = 0;
    i = 0;
    while ((s <= x - y) && (i < n))
    {
        crr[i] = i * c;
        s = s + c;
        i = i + 1;
    }
 
    int CI = i - 1;
    s = 0;
    i = 0;
 
    while ((s <= x - y) && (i < n)){
 
        drr[i] = i * d;
        s = s + d;
        i = i + 1;
    }
    int DI = i - 1;
 
    int m = AI * BI * CI * DI;
 
}
А вот дальше затрудняюсь....

Добавлено через 1 час 19 минут
ребяточень нуждаюсь в вашей помощи

Добавлено через 4 минуты
помогите вот в этом разобраться:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
DIM CROY(AI, BI, CI, DI)
 
FOR i = 0 TO INT(x / a)
FOR j = 0 TO INT(x / b)
FOR k = 0 TO INT(x / c)
FOR l = 0 TO INT(x / d)
FOR m = 0 TO INT(x / e)
 
IF CROY >= y AND (i + j + k + l + m) < n AND CROY <= ym THEN PRINT i; "по"; a, j; "по"; b, k; "по"; c, l; "по"; d, m; "по"; e; " кромка "; CROY
NEXT m, l, k, j, i
END
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 18:58. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru