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

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

Войти
Регистрация
Восстановить пароль
 
DeFeND
0 / 0 / 1
Регистрация: 18.10.2011
Сообщений: 37
#1

Обьединение массивов(Код на Паскаль дан) - C++

14.05.2012, 18:59. Просмотров 228. Ответов 0
Метки нет (Все метки)

Есть программа написанная на паскале,нужно ее переделать на С
Смысл программы в том что она находит обьединение двух массивов в один
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
const
q=100;
type
VECTOR=array[1..q] of integer;
var
X,Y,Z: VECTOR;
n: word;
i,m,k,s:integer;
begin
{vvod razmera ishodnyh massivov}
repeat
writeln('vvedite N: ramer massivov X i Y');
readln(N);
until (1<=N) and (N<=q);
{ massiv X}
writeln('vvedite massiv X');
for i:=1 to n do
readln(X[i]);
{massiv Y}
writeln('vvedite massiv Y');
for i:=1 to n do
readln(Y[i]);
writeln;
writeln; {pomeshaem znacheniya massivov X i Y v Z,proveriaya na odinakovye znaceniya}
s:=0;
m:=1;
k:=0;
while m<=n do {znacheniya massiva X pomeshayutsa v massiv Z}
begin
k:=k+1;
i:=0;
repeat
i:=i+1;
until (i>=k) or (z[i]=X[m]);
if z[i]=X[m] then
begin
k:=k-1;
end
else
begin
z[k]:=X[m]; {perenos ocherednogo elementa massiva X v Z}
s:=s+1;
end;
m:=m+1;
end;
m:=1;
while m<=n do {znacheniya massiva Y pomeshayutsa v massiv Z}
begin
k:=k+1;
i:=0;
repeat
i:=i+1;
until (i>=k) or (z[i]=Y[m]);
if z[i]=Y[m] then
begin
k:=k-1;
end
else
begin
z[k]:=Y[m]; {perenos ocherednogo elementa massiva X v Z}
s:=s+1;
end;
m:=m+1;
end;
 
for i:=1 to (s) do
write(Z[i]:6); {vyvod znacheniy na ekran}
writeln;
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2012, 18:59     Обьединение массивов(Код на Паскаль дан)
Посмотрите здесь:

Обьединение двух массивов в одном - C++
#include &lt;iostream&gt; #include &lt;cstdio&gt; #include &lt;time.h&gt; using namespace std; void main(){ srand(time(NULL)); int a; ...

Обьединение двух массивов в третий (с чередованием их елементов). Как сделать задачу? - C++
Дано 2 одинаковых по длине одномерных массива.Нужно обьединить их в 3ий, чередуя елементы 1го и 2го массивов. --- То есть, если у...

Переписать код с паскаль на С++ - C++
это 1 program 1; var a,b:array of real; i,n:integer; begin readln(n); setlength(a,n);

Перевести код Паскаль на С++ - C++
uses crt,dos; type te=record kal,ves,dl,vis:string; med:string; pr_nom:string; end; var f:file of...

Переписать код с паскаль на С++ - C++
Program 1; Var mas:array of real; i,m,n,kolvo:integer; shar,v,r:real; Begin // Задаем рандомно матрицу с элементами // ...

Нужно переписать код в паскаль - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; using namespace std; bool simple(int x) { for (int i=2; i&lt;=(x/2);i++) { if...

как написать готовый код паскаль на с++? - C++
program elmgmv; uses Grt,Graph; var gd,gm,xd,yd:Integer; x,y,z,mx,t,dt,q,m,v,al,vx,vy,vz,fx,fy,fz:real; e,ex,ey,ez,b,bx,by,bz:real;...

Дан одномерный массив.Не используя других массивов переставить его элементы в обратном порядке. - C++
Дан одномерный массив.Не используя других массивов переставить его элементы в обратном порядке.

Дан одномерный массив. Не используя других массивов, переставить его элементы в обратном порядке - C++
Задача №2 &quot;Дан одномерный массив. Не используя других массивов, переставить его элементы в обратном порядке&quot; ____________ Надеюсь на...

Дан одномерный массив. Не используя других массивов, переставить его элементы в обратном порядке - C++
Дан одномерный массив. Не используя других массивов, переставить его элементы в обратном порядке.

Нужна помощь программистов которые смогу переписать код из Паскаль в С++ - C++
Добрый день! Нужна помощь программистов которые смогу переписать код из Паскаль в С++, поможет кто ? var s, a, i, r, k, m:int64; ...

Обьединение в с++ - C++
Задание: Определить объединение из 2-х полей. Первое поле -массив из двух байт второе - слово. Ввести целое х в диапазоне 1-1000....


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

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

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