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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Программа которая работает и файлами (структуры данных) http://www.cyberforum.ru/cpp-beginners/thread574355.html
Из чужой проги надо сделать мою!!! ПЛИИИИИИз очень срочно нужна помощь.... Задание перврй: Структура TRAIN с полями: - название пункта назначения; - номер поезда; - время отправления. Действия с файлом структур:
C++ Арифметические действия с системами счисления Доброго времени суток ! Нужно написать программу , производящую арифметические действия с числами во всех системах счисления. Систему счисления задает пользователь , действие ( + , - , * ) задает пользователь. http://www.cyberforum.ru/cpp-beginners/thread574353.html
Найти периметр и площадь по координатам C++
Заданы координаты трех вершин треугольника (y1,x1),(y2,x2),(y3,x3).Найти его периметр и площадь.
Создать треугольный массив C#
Мне нужно сделать треугольный массив, но не получается. Помогите using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication3
C++ си++ http://www.cyberforum.ru/cpp-beginners/thread574346.html
подскажи пожалуйста как сделать след: определение класса прописать в заголовочном файле, а реализация в отдельной библиотеке код основного потока проги должен подключать заголовок, а не конкретную библиотеку вот в этой вот программе #include <iostream> #include <cmath> using namespace std;
C++ Задача на динамическую структуру данных Разработайте динамическую структуру для решения задачи. Даны целые числа p и q. Получить все делители числа q, взаимно простые с числом p. подробнее

Показать сообщение отдельно
DeFeND
0 / 0 / 1
Регистрация: 18.10.2011
Сообщений: 37
14.05.2012, 18:59     Обьединение массивов(Код на Паскаль дан)
Есть программа написанная на паскале,нужно ее переделать на С
Смысл программы в том что она находит обьединение двух массивов в один
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 02:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru