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

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

Войти
Регистрация
Восстановить пароль
 
ilyashis
-36 / 0 / 1
Регистрация: 08.12.2011
Сообщений: 137
#1

Переведите код на pascal с C++ - C++

06.06.2012, 20:21. Просмотров 246. Ответов 0
Метки нет (Все метки)

Переведите код на pascal с C++
C++ (Qt)
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
110
111
112
113
114
115
116
117
118
119
120
121
122
#include <iostream>
#include <conio.h>
 
using namespace std;
 
//------------------------------------------------------------------------------
struct Tspisok
{
 int k;
 Tspisok* Next;
}
*Gol = NULL;
//------------------------------------------------------------------------------
void Add(Tspisok **G)
{
  int a;
  Tspisok *Tek = *G, *Kon = NULL;
  while(Tek!=NULL)
  {
   Kon = Tek;
   Tek = Tek->Next;
  }
 
  cout<<"Vvedite znachenie\n";
  cin>>a;
  Tek = new Tspisok;
  Tek->k = a;
  Tek->Next = NULL;
  if (*G == NULL)
   *G = Tek;
  else
   Kon->Next = Tek;
}
//------------------------------------------------------------------------------
void Print(Tspisok* G)
{
 Tspisok *Tek = G;
 while(Tek!=NULL)
 {
 cout<<Tek->k<<" ";
 Tek = Tek->Next;
 };
};
//------------------------------------------------------------------------------
void Delete(Tspisok **G)
{
  Tspisok *Tek = *G;
  while(Tek != NULL)
  {
   Tek = Tek->Next;
   free(*G);
   *G = Tek;
  }
};
//------------------------------------------------------------------------------
void  Poisk(Tspisok **G,int E)
{
   Tspisok *tek = *G;
   while(tek!=NULL)      //первое вхождение E
   {
    if (tek->k == E)
    {
    break;
    }
    else
    tek = tek->Next;
   }
   if (tek == NULL)
   cout<<"Element E ne fhodit";
   else
   {
    Tspisok *Z = tek;
    tek = *G;
    Tspisok *Gol2=NULL, *Kon2=NULL;
    Tspisok *tek2;
    while(tek!=NULL)
    {
     tek2 = new Tspisok;
     tek2->k = tek->k;
     tek=tek->Next;
     tek2->Next = NULL;
   if (Gol2 == NULL)
   {
   Gol2 = tek2;
   Kon2 = tek2;
   }
   else
   {
    Kon2->Next = tek2;
    Kon2 = tek2;
   }
   }
   Z->Next=Gol2;
   };
};
//------------------------------------------------------------------------------
int main()
{
 int n;
 int E;
 while(1)
 {
  cout<<"Dobavit Element Y-1/N-2\n";
  cin>>n;
  if (n==1)
  Add(&Gol);
  else
  {
  cout<<"Vvedite E";
  cin>>E;
   Print(Gol);
   Poisk(&Gol,E);
   cout<<"\n";
   Print(Gol);
   Delete(&Gol);
   break;
  }
 }
getch();
return 0;
}
//---------------------------------------------------------------------------
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2012, 20:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите код на pascal с C++ (C++):

Переведите код с Pascal на С++ - C++
program lab100301; uses crt; type tablica=record name:string; sred:real; rus,math,fiz:byte; end; var ...

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal на C++ - C++
var m, n, i : integer; a : array of longint; begin assign(input,'input.txt'); reset(input); 268 assign(output,'output.txt');...

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2012, 20:21
Привет! Вот еще темы с ответами:

Переведите с Pascal в C++ - C++
помогите пож с заданиями,очень нужно на завтра( 1) переведите пож в с ++ код var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:Real; ...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...

Переведите с Pascal на C++ - C++
Уважаемые программисты, переведите с Pascal на C++, пожалуйста var a, h, z:longint; tz, tgz, rez:real; begin readln (a,...

Переведите с Pascal на C++ - C++
program stringtale; var x,y:array of char; n,i,s:integer;t:boolean;p:char; Begin readln(n); for i:=1 to n do...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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