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

Перевести код из Qbasic в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Ошибки Cannot convert и Statement missing. Как исправить? http://www.cyberforum.ru/cpp-beginners/thread685184.html
Друзья, помогите, пожалуйста! Очень срочно нужно. В C++ очень недавно, поэтому ошибки могут быть элементарными, но как с ними справиться, я не знаю. вот программа 1 //--------------------------------------------------------------------------- 2 3 #include <clx.h> 4 #pragma hdrstop 5 #include <stdio.h>
C++ Управление файлами и Каталогами Visual studio 2010 Разработать программу, которая позволяет: 1. перемещать все файлы в указанный пользователем каталог все файлы из его подкаталогов. 2. подсчитать количество цифр в файле с именем, указанным пользователем. 3. переименовывать файлы следующим образом: все строчные символы в имени файла заменяются на прописные и наоборот. Имя файла указывается пользователем. 4. выводить список файлов из указанного... http://www.cyberforum.ru/cpp-beginners/thread685148.html
Массивы: создать цепочку символов «а» произвольной длины, после которой следует символ «b» C++
Всем привет! Помогите пожалуйста сделать программу с комментариями! Цепочка символов «а» произвольной длины, после которой следует символ «b»; цепочка символов «а» произвольной длины, после которой следует сим-вол «с»; цепочка символов «b» произвольной длины, после которой следуют «а» или «с». Сделать программу нужно через работу с массивом! Заранее спасибо!
Определить, сколько различных согласных слова Х употребляется в написании более одного раза C++
Всем привет. Нужно составить программу, подсчитывающую, сколько различных согласных слова Х употребляется в написании Х более одного раза. Заранее спасибо
C++ Вывод текста с разными цветовыми атрибутами http://www.cyberforum.ru/cpp-beginners/thread685104.html
Дано задание перевести дисплей в текстовый (80*25) режим работы. И выводить на екран заданый текст с видео атрибутами типа: первые два слова красного цвета на белом фоне, третье слово синим цветом высокой интнсивности , четвертое слово зеленое мигающее на красном фоне. Как обращаться к регистрам через dos.h и REGS знаю.. Немогу понять как обращаться к буферу видеоконтролера в текстовом...
C++ Для матрицы найти такие k и n, что сумма элементов k-столбца совпадает с суммой элементов n-й строки Для заданной матрицы размера NхN найти такие k и n, что сумма элементов k-столбца матрицы совпадает с суммой элементов n-й строки. Сделал наброску кода, но как реализовать саму задачу я не знаю. #include<iostream> #include<stdio.h> #include<conio.h> #include<locale.h> using namespace std; const int N=3; int A; int S,D; подробнее

Показать сообщение отдельно
ELO
Сообщений: n/a

Перевести код из Qbasic в С++ - C++

31.10.2012, 14:46. Просмотров 243. Ответов 0
Метки (Все метки)

Здравствуйте! Помогите, пожалуйста, перевести программу на бейсике в С++

QBasic/QuickBASIC
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
CLS
DEFINT I-J,N
N=21 'ЧИСЛО ТОЧЕК
'ОКТЯБРЬ 1 СЛОЙ
PRINT "OCT 1 SLOI"
DIM T(N), SI(N), P(N), B(N), M(N,N) AS SINGLE
'T-МАССИВ ТЕМПЕРАТУР ПО ТОЧКАМ ИЗМЕРЕНИЯ
'SI(N)- МАССИВ СОДЕРЖАНИЯ КРЕМНИЯ ПО ТОЧКАМ ИЗМЕРЕНИЯ
'P(N)-МАССИВ СОДЕРЖАНИЯ ФОСБОРА ПО ТОЧКАМ ИЗМЕРЕНИЯ
'B(N)-МАССИВ СОДЕРЖАНИЯ БИОМАССЫ ПО ТОЧКАМ ИЗМЕРЕНИЯ
DATA -1.7,31., 4.67, 233.33
DATA -1.7, 196.67, 10.17,275.
DATA -3.73, 203.33, 18.77, 100.
DATA -3.23, 350., 20.57, 136.67
DATA -3.67, 256.67, 25.8, 160.
DATA -2.3, 80., 5.83, 126.67
DATA -0.97, 100.,6., 206.67
DATA -3.23, 256.67, 11.77, 150.
DATA -3.83,273.33, 17.53, 116.67
DATA -3.23, 183.33,31.2, 150.
DATA -2.27, 126.67, 7.93, 166.67
DATA -3.87,353.33, 31., 143.33
DATA -1.73, 136.67, 7.27, 193.33
DATA -1.73, 136.67, 7.27, 193.33
DATA 0.73, 453.33, 18.93,306.67
DATA -0.43, 523.33, 24.67, 193.33
DATA 0.9, 480., 29.83, 363.33
DATA -4.1, 440., 36.43, 86.67
DATA 2.47, 536.67, 27.83, 266.67
DATA 2.9, 596.67, 35.87, 330.
DATA 3., 613.33, 39.77,283.33
'ПРОЦЕДУРА СЧИТЫВАНИЯ И ПЕЧАТИ ИСХОДНЫХ ДАННЫХ
FOR I=1 TO N 
READ T(I),SI(I), P(I), B(I)
PRINT USING "###.##"; T(I); SI(I); P(I); B(I)
NEXT I
'ПРОЦЕДУРА РАСЧЕТА МАТРИЦЫ
FOR I=1 TO N 
FOR J=1 TO N
M(I,J)=((T(I)-T(J))^2+(SI(I)-SI(J))^2_
+(P(I)-P(J))^2+(B(I)-B(J))^2)^(1/2)
NEXT J
NEXT I
FOR I=1 TO N
PRINT USING "###"; I;
NEXT I
PRINT
'ПРОЦЕДУРА ПЕЧАТИ МАТРИЦЫ
FOR I=1 TO N 
FOR J=1 TO N
PRINT USING "###";M(I,J);
NEXT J
PRINT USING "##";I
NEXT I
END
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 04:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru