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

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

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

Перевод кода с Basic - C++

19.07.2014, 16:08. Просмотров 440. Ответов 3
Метки нет (Все метки)

Нужно переписать программу из Basic в C++
 Комментарий модератора 
Тексты программ нужно перепечатывать внутрь сообщения!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.07.2014, 16:08     Перевод кода с Basic
Посмотрите здесь:

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

Перевод из Basic в С++ - C++
Нужна помощь в переводе двух простых программ с Basic на с++ Написать программу ввода массива целых чисел. Из элементов введенного...

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

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

Перевод кода на C++ - C++
есть код на шарпе class Program { static void Main(string args) { int digitsCount =...

Перевод кода С# на С++ - C++
Данный код написан на языке С#. Необходимо перевести на язык С++. namespase WindowsFormsApplication1 { public partial class...

перевод кода из С++ в С - C++
Кто может перевести код на С ,сделайте доброе дело.....Пожалуйста ;-) #include <iostream> #include <iomanip> #include <time.h> ...

Перевод кода из c в c++ - C++
Помогите перевести код из c в c++ строки 86,239,403 выдают одну и туже ошибку... #include <stdio.h> #include <stdlib.h> #include...

Перевод кода - C++
Переведите пжалуйста код на паскаль #include<iostream> #include<string> using namespace std; unsigned long long res=1; int n,len;...

Перевод кода с VB на C++ - C++
Помогите перевести код с VB на C++ Private Sub Command1_Click() Dim a As Double, c As Integer, p As Integer, z As Double, y As Double ...

Перевод кода на с++ - C++
Program z15_1_6; const n=5; const m=5; var massiv:array of integer; row,column,exchange:integer; flag:boolean; begin ...

Перевод кода в С - C++
Помогите, пожалуйста, перевести код: a = 0.99f; b = 1.f - a; Не знаю что это за язык и не могу понять значение f


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Tulosba
:)
Эксперт С++
4393 / 3236 / 297
Регистрация: 19.02.2013
Сообщений: 9,045
19.07.2014, 16:22     Перевод кода с Basic #2
Цитата Сообщение от PolII Посмотреть сообщение
Нужно переписать программу из Basic в C++
А переписать хотя бы исходное задание лениво?
PolII
0 / 0 / 0
Регистрация: 19.07.2014
Сообщений: 2
19.07.2014, 16:41  [ТС]     Перевод кода с Basic #3
Прошу прощения.
QSoftware
0 / 0 / 0
Регистрация: 07.01.2016
Сообщений: 1
07.01.2016, 20:55     Перевод кода с Basic #4
Нужно перевести код с QBasic на C++ без ошибок.

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
56
57
58
59
60
SCREEN 13: DEF SEG = &HA000
DIM hei%(4096 - 1), col%(4096 - 1)
 
   'Generate palette
OUT &H3C8, 0
FOR z% = 0 TO 63: OUT &H3C9, z%: OUT &H3C9, z%: OUT &H3C9, z% \ 2: NEXT z%
FOR z% = 0 TO 63: OUT &H3C9, z% \ 2: OUT &H3C9, z%: OUT &H3C9, z%: NEXT z%
 
   'Generate interesting height & color maps
p% = 0
FOR y% = 0 TO 63
   FOR x% = 0 TO 63
      d% = 15 * 15 - ((x% AND 31) - 16) ^ 2 - ((y% AND 31) - 16) ^ 2
      IF d% > 0 AND ((x% XOR y%) AND 32) THEN
         hei%(p%) = 64 - SQR(d%): col%(p%) = (x% + y%) * .5
      ELSE
         hei%(p%) = 64: col%(p%) = (COS(x% * .2) + SIN(y% * .3)) * 3 + 88
      END IF
      p% = p% + 1
   NEXT x%
NEXT y%
 
   'Initialize starting position
posx& = 0: posy& = 0: posz& = 40 * 65536: ang = 0: horiz& = -50
 
r160 = 1 / 160
dd& = 65536 * r160 'Increment size
de& = dd& * 128    'Scan out 128 units
sdz& = (100 - horiz&) * 65536 * r160
DO
   cosang = COS(ang) * 65536: sinang = SIN(ang) * 65536
   dx& = sinang + cosang: dxi& = -sinang * r160
   dy& = sinang - cosang: dyi& = cosang * r160
 
      'For each column in 320*200 mode...
   FOR sx% = 0 TO 319
 
         'Fast ray trace! No *'s or /'s in here (\ 65536 is a shift)
      x& = posx&: y& = posy&: z& = posz&: dz& = sdz&: p& = sx% + 63680
      FOR d& = 0 TO de& STEP dd&
         x& = x& + dx&: y& = y& + dy&: z& = z& + dz&
         i% = (((x& * 64) AND &HFC00000) + (y& AND &H3F0000)) \ 65536
         h& = hei%(i%) * 65536
         DO WHILE h& < z&
            POKE p&, col%(i%): p& = p& - 320&
            z& = z& - d&: dz& = dz& - dd&
         LOOP
      NEXT d&
      dx& = dx& + dxi&: dy& = dy& + dyi&
 
         'Finish off rest of line
      DO WHILE p& >= 19200: POKE p&, 0: p& = p& - 320: LOOP
   NEXT sx%
 
      'Move position & angle
   posx& = posx& + cosang * 4
   posy& = posy& + sinang * 4
   ang = ang + .02
 
LOOP WHILE INKEY$ = ""
Yandex
Объявления
07.01.2016, 20:55     Перевод кода с Basic
Ответ Создать тему
Опции темы

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