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

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

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

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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2014, 01:08     Перевести код с паскаля на C++
Посмотрите здесь:

C++ Перевести код с Паскаля на С++
C++ Перевести код паскаля в с++
Перевести код программы Паскаля в код С++ C++
C++ Перевести код с паскаля на C++
C++ Перевести код из Паскаля в С++
перевести небольшой код с паскаля на с C++
C++ Перевести код с Паскаля на С++
Необходимо перевести код с паскаля на С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 18:33. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru