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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Код. http://www.cyberforum.ru/cpp-beginners/thread281511.html
Ich gruesse euch! Куда можно скинуть код? Целью является то, чтобы другие программисты им попользовались и выявили, по-возможности, ошибки, предложили улучшения.
C++ проверка на пустоту строки подскажите как сделать чтобы проверялось еще одно условие if((ff==' ') || (ff=='')) то есть надо чтобы проверялось заполнена строка или нет в противном случае заполнить её _ const rt=100; char ggh(char ff) { cin.sync(); cin.getline(ff, 100); for(int z33=0;z33<rt;z33++) { http://www.cyberforum.ru/cpp-beginners/thread281500.html
C++ Связывание treeview и listview
Доброго времени суток!))Пишу проводник на с++ с использованием winapi,создал отдельно treeview и listview,как их теперь связать?Заранее спасибо))
Линейная интерполяция в с++ C++
Помогите пожалуйста...не могу разобраться с двумя ошибками и программа выводит полный бред... Задача такова:найти значение функции в заданных точках(t1,t2,t3)для зависимостей x,y и x13,y13 рез-ты вывести на экран и записать в файл #include <cstdlib> #include <iostream> #include <fstream> #include <iomanip>
C++ что не так делаю?! http://www.cyberforum.ru/cpp-beginners/thread281468.html
почему не правильно! помогите! #define SIZE 4 #include<iostream.h> int main() { int matrix; for (int i=0; i<0; i++) for(int j=0; j<0; j++) {
C++ Квантовый баг Нет, это не баг в программе для квантового компьютера. Это баг в программе для внешнего устройства. Блуждающий, прячущийся баг: при определённых условиях программа вылетает (наверное при разыменовании нулевого указателя или при обращении к несуществующей памяти) - самое классное в том, что как только начинаешь его искать - он сразу перестаёт появляться. Видимо это связано со стеком: добавляю... подробнее

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

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

22.04.2011, 18:35. Просмотров 982. Ответов 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.
Заранее большое спасибо
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru