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

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

Войти
Регистрация
Восстановить пароль
 
Sultan1993
Сообщений: n/a
#1

Перевод кода из Pascal/VB в C++ - C++

22.04.2011, 18:35. Просмотров 990. Ответов 6
Метки нет (Все метки)

Помогите пожалуйста перевести код в С++. Сдавать уже скоро, и я никак не приложу ума как это все сотворить в С++


Oracle 11 SQL
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
      uses crt;
      TYPE fff=FILE OF CHAR;
      var f,g:fff;
      PROCEDURE vvod(var f:fff);
      var c:string;
          i:INTEGER;
          a:CHAR;
      BEGIN
       writeln('Vvedite simvoli');
       repeat
        readln(c);
        FOR i:=1 TO LENGTH(c) DO WRITE(f,c[i]);
        WRITE('Prodolzhit? y/n ');
        readln(a);
       until a='n';
      END;
      PROCEDURE vivod(var f:fff);
      var c:CHAR;
      BEGIN
       WHILE NOT eof(f) DO
       BEGIN
        read(f,c);
        WRITE(c);
       END;
       writeln;
      END;
      PROCEDURE obrabotka(var f,g:fff);
      var c:CHAR;
          i:INTEGER;
          f1:BOOLEAN;
      BEGIN
       f1:=FALSE;
       WHILE NOT eof(f) DO
       BEGIN
        read(f,c);
        IF f1 THEN WRITE(g,c);
        IF c='a' THEN f1:=TRUE
        ELSE f1:=FALSE;
       END
      END;
      BEGIN
       clrscr;
       assign(f,'f:\sss.lab');
       assign(g,'f:\ggg.lab');
       rewrite(f);
       vvod(f);
       reset(f);
       clrscr;
       writeln;
       writeln('Ishodniy fayl:');
       vivod(f);
       reset(f);
       rewrite(g);
       obrabotka(f,g);
       reset(g);
       writeln;
       writeln('Obrabotanniy fayl:');
       vivod(g);
       readln;
      END.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim n as integer, x as double, arr() as double, flg as boolean, b() as byte
n=inputbox("NNN")
x=inputbox("XXX")
redim arr(1 to n,1 to 2*n)
redim b(1 to n)
for i=1 to n
flg=false
for j=1 to 2*n
arr(i,j)=inputbox("ARRAY")
if arr(i,j)<=x then flg=true
next j
b(i)=abs(flg)
next i
 
for i=1 to n
msgbox b(i)
next i

Oracle 11 SQL
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
uses crt,graph;
var x,y,gd,gm:INTEGER;
    SIZE:word;
    p1,p2:pointer;
BEGIN
gd:=vga;gm:=2;
initgraph(gd,gm,'');
SIZE:=ImageSize(0,0,20,100);{размер области}
setlinestyle(0,0,3);
{первый образ}
pieslice(10,10,0,360,10);
fillellipse(10,40,10,20);
line(8,60,0,100);line(12,60,20,100);
{второй образ}
pieslice(60,10,0,360,10);
fillellipse(60,40,10,20);
line(60,60,60,100);
getmem(p1,SIZE);
getimage(0,0,20,100,p1^);
getmem(p2,SIZE);
getimage(50,0,70,100,p2^);
cleardevice;
x:=0;y:=200;
line(0,300,640,300);
repeat
putimage(x,y,p1^,1);
delay(150);
putimage(x,y,p1^,1);
putimage(x,y,p2^,1);
delay(150);
putimage(x,y,p2^,1);
x:=x+10;
until x>getmaxX-20;
freemem(p1,SIZE);
freemem(p2,SIZE);
readln
END.
Заранее большое спасибо
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2011, 18:35     Перевод кода из Pascal/VB в C++
Посмотрите здесь:

Перевод кода из Pascal в C++ - C++
Нужна ваша помощь в переводе с паскаля ибо не особо знаком с конструкциями си. Код в паскале: Program Princip_Guigensa_Frenelya; uses...

Перевод кода с Pascal - C++
var k,i,n,c:integer; p,w:real; begin write('k&gt;-3 k='); readln(k); w:=0; c:=1; for i:=-3 to k do begin ...

Перевод кода с Pascal - C++
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t); b:=sin(p*p)+Power(x,3); a:=Power(exp(1),...

Перевод кода с Pascal - C++
var k,n,m:integer; x,s,p,t:real; begin repeat write('x&lt;&gt;0 x=');{х в знаменателе, исключаем заведомое деление на 0} readln(x);...

Перевод кода из Pascal в C++ - C++
Помогите пожалуйста)) Дано: A 5*4 формируемый массив B 5*4, где bij=i+3,если i&gt;=j j-2 - иначе, i=1..5, j=1..4 Условия...

Перевод кода из Pascal в Си++ - C++
Type ST = Record Num: Integer; Name: String; Fak: String; Group: String; Angl: Integer; Physic: Integer; var Table: Array ...

Перевод кода с с Pascal на С++ - C++
Совсем не знаю язык Pascal, а нужно перевести кусочек кода с этого языка на С++. Помогите, пожалуйста! Задан текст. По правилам...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
AlexP11223
36 / 37 / 4
Регистрация: 20.04.2011
Сообщений: 288
22.04.2011, 18:41     Перевод кода из Pascal/VB в C++ #2
Не знаю что делает ваша простыня кода, но в гугле есть множество Pascal to C++ конвертеров.
Garic_
71 / 71 / 7
Регистрация: 03.11.2009
Сообщений: 468
27.04.2011, 12:39     Перевод кода из Pascal/VB в C++ #3
Nubik756, Простыня это точно, можно было выложить код в управление вложениями,
Код
гугле есть множество Pascal to C++ конвертеров.
а на счет конвертера, это ты загнул!
Deviaphan
Делаю внезапно и красиво
Эксперт C++
1286 / 1220 / 50
Регистрация: 22.03.2011
Сообщений: 3,744
27.04.2011, 12:44     Перевод кода из Pascal/VB в C++ #4
Цитата Сообщение от Garic_ Посмотреть сообщение
на счет конвертера, это ты загнул!
Как бы это не прикол...
Garic_
71 / 71 / 7
Регистрация: 03.11.2009
Сообщений: 468
27.04.2011, 13:10     Перевод кода из Pascal/VB в C++ #5
Deviaphan, Нет это не прикол, ты лично пробовал переводить?
Deviaphan
Делаю внезапно и красиво
Эксперт C++
1286 / 1220 / 50
Регистрация: 22.03.2011
Сообщений: 3,744
27.04.2011, 13:14     Перевод кода из Pascal/VB в C++ #6
Цитата Сообщение от Garic_ Посмотреть сообщение
ты лично пробовал переводить?
Мне проще самому написать.)
Если нет графического интерфейса, то Паскаль на С++ 1:1 практически переводится.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2011, 13:35     Перевод кода из Pascal/VB в C++
Еще ссылки по теме:

Перевод кода с Pascal - C++
uses crt,graphABC; function y(x:real):real; begin if x&lt;0 then y:=1+sqrt(abs(cos(x*x+1))) else if x&lt;=1 then y:=-2*x-sqr(sin(x)) ...

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...

перевод кода из Pascal в C++ - C++
помогите, пожалуйста, перевести этот код в C++ :impossible: program chisla; uses Crt; const n = 5; var y: real; flag:...

Перевод кода из pascal в c++ - C++
Помогите пожалуйста перевести на c++ Program bukv; Uses crt; Const g: array of char=('а','е','и','о','у','ы','э','ю','я'); Var i,j:...

Перевод кода из Pascal в С++ - C++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function st2(k:integer): integer; var j, rez:...


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

Или воспользуйтесь поиском по форуму:
Garic_
71 / 71 / 7
Регистрация: 03.11.2009
Сообщений: 468
27.04.2011, 13:35     Перевод кода из Pascal/VB в C++ #7
Deviaphan,
Код
Мне проще самому написать.)
Это более похоже на правду.

Добавлено через 2 минуты
Код
Если нет графического интерфейса, то Паскаль на С++ 1:1 практически переводится.
Только всё это работает на уровне "Здравствуй, вёрлд".
Yandex
Объявления
27.04.2011, 13:35     Перевод кода из Pascal/VB в C++
Ответ Создать тему
Опции темы

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