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

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

Восстановить пароль Регистрация
 
DeFeND
0 / 0 / 1
Регистрация: 18.10.2011
Сообщений: 37
14.05.2012, 18:59     Обьединение массивов(Код на Паскаль дан) #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
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++ Дан одномерный массив.Не используя других массивов переставить его элементы в обратном порядке.
Нужно переписать код в паскаль C++
C++ Обьединение двух массивов в третий (с чередованием их елементов). Как сделать задачу?
как написать готовый код паскаль на с++? C++
C++ Обьединение двух массивов в одном
C++ Переписать код с паскаль на С++
Переписать код с паскаль на С++ C++
C++ Перевести код Паскаль на С++

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

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

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