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

Перевести код с паскаля на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Написать программу для подсчета количества одинаковых цифр в массиве из 5-ти элементов http://www.cyberforum.ru/cpp-beginners/thread1118683.html
Только начал разбиратся в массивах. Помогите решыть. Написать программу для подсчета количества одинаковых цифр в массиве из 5-ти элементов.
C++ Подключение .h файлов друг в друга Здравствуйте. Появилась такая проблема: есть два .h файла, и они перекликаются содержимым: в одном наследуется класс из другого, а в другом просто используется класс из первого. В итоге программа не может скомпилироваться из-за того что что-то не объявлено, хотя всё ок. Если менять порядок их инклюдов, ошибки появляются в первом подключенном аш файле. Что делать? Алсо в каждом .h использую... http://www.cyberforum.ru/cpp-beginners/thread1118680.html
C++ Есть какая нибудь информация по созданию алгоритма или программы для автопилота
Есть какая нибудь информация по созданию алгоритма или программы для автопилота,интернет облазил,ничего не нашёл.
Реализовать систему плагинов (модулей), каждый из которых должен работать в отдельном потоке C++
Всем доброго времени суток, не могли бы вы мне помочь реализовать систему плагинов( модулей). Необходимо что бы: - каждый плагин работал в своем потоке; - Ядро - приложение вызывала функции - события в плагине, если они "зарегистрированы" - Плагин может вызывать функции ядра Буду благодарен за помощь.=)
C++ Сформировать матрицу NхN, элементы ниже побочной диагонали которой являются отрицательными числами http://www.cyberforum.ru/cpp-beginners/thread1118620.html
Помогите пожалуйста! Нужно сформировать матрицу NхN, элементы ниже побочной диагонали которой являются отрицательными числами.
C++ Посчитать в массиве все элементы, которые находится на нечётных позициях Одномерный массив посчитать в нём все элементы которые находится на нечётных позициях, за ранее спасибо подробнее

Показать сообщение отдельно
Dmitriy06
0 / 0 / 0
Регистрация: 06.01.2014
Сообщений: 4
14.03.2014, 01:08     Перевести код с паскаля на C++
//Помогите пожалуйста перевести с паскаля на С++

Pascal
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
uses crt;
type PList=^TList;
     TList=record
        inf:string;
        link:PList;
     end;
     var h,head,Pk:PList;
         s1, s2,k: string;
 
procedure ViewList(head:PList);
begin
    while head <> nil do
begin
   writeln(head^.inf);
   head:=head^.link;
end;
  end;
 
    procedure CreateList(var head:PList);
    var q,p:PList;
        i,n:integer;
    begin
        head:=nil;
        p:=nil;
        new(p);
        write('Сколько эментов нужно? ');
        readln(n);
        for i:=1 to n do
    begin
         new(q);
         write('Введите информационную часть: ');
         readln(q^.inf);
         q^.link:=nil;
         p^.link:=q;
         if i=1 then
         head:=q;
         p:=q;
    end;
      writeln('Введенные элементы');
      ViewList(head);
    end;
 
procedure DelMod2(head:PList);
var p,p0,p1:PList;
    k,dx:integer;
begin
    p:=head;
    k:=1;
    dx:=0;
       while p<>nil do
       begin
           if ((k-dx) mod 2 <> 0) and (p^.link<>nil) then
     begin
          p0:=p^.link;
          p1:=p0^.link;
          Dispose(p0);
          p^.link:=p1;
      if dx=0 then dx:=1
     else dx:=0;
    end;
       p:=p^.link;
   end;
end;
 
procedure asd(s1, s2: string);
var p: plist;
     begin
          p:=h;
          while p<>nil do
          begin
               if p^.inf=s2 then
               begin
                   p^.inf:=s1;
                   break;
               end;
                 p:=p^.link;
             end;
         end;
 
 Procedure InsertItem(var head :PList; k:string);
 var p:PList;
 begin
      new(p);
      p^.inf:=k;
      p^.Link:=head^.Link;
      head^.Link:=p;
 
 end;
begin
     CreateList(h);
     writeln();
begin
    DelMod2(H);
     writeln('Список после удаления второго элемента');
    ViewList(H);
      writeln('Введите элемент Q '); readln(s1);
      writeln('Введите элемент G'); readln(s2);
      writeln;
            asd(s1,s2);
            asd(s2,s1);
              writeln('Список с замененным элементом Q на G');
              ViewList(h);
              writeln('Введите элемент Q который нужно вставить после первого'); read(k);
              InsertItem(h,k);
              writeln;
              ViewList(h);
 
          end;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 16:20. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru