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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Ввод, транспонирование, умножение и сложение матриц используя функций http://www.cyberforum.ru/cpp-beginners/thread862458.html
Есть две матрицы, каждую из них надо транспонировать и умножить на себя, полученные две матрицы сложить, т.е в конце должна выводиться одна матрица. A*A(t)+B*B(t)=C. Все нужно сделать с помощью...
C++ Хаффман Доброго времени суток! Наткнулся в интернете на вот такую программу , паковщик и расспаковщик по Хаффману. Кто может объяснить как паковать и распаковывать файлы этой программой? ... http://www.cyberforum.ru/cpp-beginners/thread862452.html
Замена элемента списка C++
#include <stdio.h> #include <conio.h> #include <stdlib.h > struct spis{ int data; struct spis *ptr; }; int main() { clrscr();
Динамический массив обьектов в класе C++
Надо сделать так чтоб в класе был дин.массив обьектов другого класа. создаю я массив через конструктор с параметром(размерность). С созданием класса проблем нету, а вот обьект создаваться не хочет. в...
C++ Упрощение кода программы http://www.cyberforum.ru/cpp-beginners/thread862435.html
Здравствуйте уважаемые форумчане! Решил начать изучать язык Си++, начал с простого также как и при изучении языка Pascal. Дана следующая задача: Задача: Составить программу, нахождения площади...
C++ Проверить код на адекватность (объединение двух упорядоченных бинарных файлов в один) Даны два бинарных файла f1 и f2, компоненты которых - произвольные цепочки символов (компоненты упорядочены в алфавитном порядке). Написать программу, которая объединяет файлы f1 и f2 в файл f3 так,... подробнее

Показать сообщение отдельно
staroksi
0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 19

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

12.05.2013, 15:08. Просмотров 650. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru