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

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

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

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

22.04.2011, 18:35. Просмотров 1002. Ответов 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++ (C++):

Перевод кода с Pascal на С++ - C++
uses crt; function Summ(n:longint):byte; var m:longint; s:byte; begin s:=0; m:=n; while m&gt;0 do begin s:=s+m mod...

Перевод кода с Pascal - C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin

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

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

Перевод кода с 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++ - C++
ребятки, помогите с переводом с паскаля на C++ данный код var n,s,t,n1,kk,e1,x,i,ss,h:integer; ///возводит x в степнь e1 по...

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

Добавлено через 2 минуты
Код
Если нет графического интерфейса, то Паскаль на С++ 1:1 практически переводится.
Только всё это работает на уровне "Здравствуй, вёрлд".
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2011, 13:35
Привет! Вот еще темы с ответами:

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

Перевод кода с 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++
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of integer; used: array of Boolean; ...


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

Или воспользуйтесь поиском по форуму:
7
Yandex
Объявления
27.04.2011, 13:35
Ответ Создать тему
Опции темы

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