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

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

Войти
Регистрация
Восстановить пароль
 
staroksi
0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 19
#1

Перевод из Basic в С++ - C++

12.05.2013, 15:08. Просмотров 626. Ответов 2
Метки нет (Все метки)

Нужна помощь в переводе двух простых программ с Basic на с++

Написать программу ввода массива целых чисел. Из элементов введенного массива сформировать новый массив, содержащий положительные числа. Найти номер максимального элемента.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DIM a(10) AS INTEGER
DIM b(10) AS INTEGER
INPUT n
FOR i=1 TO n
INPUT a(i)
IF a(i)>0 THEN
b(i) = a(i)
END IF
NEXT
 
max=b(1)
FOR i=1 TO n
IF b(i) > max THEN
max=b(i)
m=i
END IF
NEXT
 
PRINT max
PRINT m
Написать программу нахождения максимального элемента заданного файла. Найти сумму двух первых и двух последних элементов заданного файла.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
OPEN "f.txt" FOR INPUT AS #1
INPUT #1, a, b
first = a + b
PRINT first
max = a
IF b > max THEN
    max = b
END IF
DO WHILE (NOT EOF(1))
    INPUT #1, a, b
    IF (a > max) THEN
        max = a
    END IF
    IF (b > max) THEN
        max = b
    END IF
    last = a + b
LOOP
PRINT last
PRINT max
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2013, 15:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Basic в С++ (C++):

Перевод из Basic на язык С. - C++
Помогите пожалуйста кто-нибудь, переведите с Basic на язык С READ n, x DIM p(20), z(20) m0=0: m1=0: m2=0: m3=0 PRINT "s1 ...

Перевод кода с Basic - C++
Нужно переписать программу из Basic в C++ Тексты программ нужно перепечатывать внутрь сообщения!

Перевод из Visual Basic в С++ - C++
Здравствуйте. Прошу вашей помощи. Так как я VB не изучал. Можите помочь перевести из Visual Basic в С++ Sub...

Перевод кода с visual basic на C++ - C++
Здравствуйте!Помогите, пожалуйста, перевести задачу о распределении инвестиций с visual basic на C++. 1. ReDim B(0 to M) 2. ...

Перевод с Basic на C# - C#
Добрый день. Перевожу программу с basic на c#. Столкнулся с следующим кодом взаимодействия с базой данных. Затрудняюсь в переводе....

Перевод кода с Basic - Turbo Pascal
Кто-нибудь помогите перевести код из Basic в Pascal. С Бэйсиком никогда не сталкивалась, никак не могу разобраться. Заранее спасибо. Вот...

2
итернал
4 / 4 / 0
Регистрация: 17.09.2012
Сообщений: 324
Завершенные тесты: 1
12.05.2013, 16:13 #2
первое
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
#include <iostream>
using namespace std;
void main()
{
    int a[10];
    int b [10];
    for(int i=0;i<10;i++)
    {
        cout<<"Enter the "<<i<<" elemetns of masiv ";
        cin>>a[i];
    }
    int j=0;
    for(i=0;i<10;i++)
    {
        if(a[i]>=0)
        {
            b[j]=a[i];
            j++;
        }
    }
    int n =j;
    int max,k;
    b[0]=max;
    for(j=0;j<n;j++)
    {
        if(b[j]>max)
        {
            max=b[j];
            k=j;
        }
    }
    cout<<"Max element "<<max<<" and his number "<<k;
    scanf("%i");
}
0
staroksi
0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 19
12.05.2013, 17:03  [ТС] #3
итернал, спасибо, будем разбираться и исправлять)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2013, 17:03
Привет! Вот еще темы с ответами:

Перевод из C++ в Visual Basic - Visual Basic
Здравствуйте. Прошу вашей помощи. #include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;cmath&gt; using namespace std; void main() {...

Перевод с Pascal на Basic - Turbo Pascal
Здравствуйте. Есть простой код программы на Turbo Pascal. Помогите пожалуйста перевести этот текст на Visual Basic. Program...

Перевод из Pascal в Basic - Basic
Переведите пожалуйста из Pascal в Basic! Задание 1: Заполнить файл f N целых чисел, полученных с помощью генератора случайных чисел....

Перевод в Visual Basic - Visual Basic
Решить нелинейное уравнение методом простых итераций Ln(x)-x+1.8 = 0 На отрезке По этому уравнению есть программка в Pascal ...


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

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

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