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

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

Восстановить пароль Регистрация
 
Iniriad
0 / 0 / 0
Регистрация: 28.09.2011
Сообщений: 4
22.11.2012, 20:44     перевести код из паскаля в С++ #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
program Terri;
uses crt;
const m=100;   // Максимальный размер массива
var
mg:array[1..m,1..m] of byte;    // Матрица смежности
stack:array[1..m-1] of word;    // Стек
i,j:word;
column,row:word;   
sp:word;   // номер последнего элемента в стеке 
vs,vf:word;
n: word;   // Реальный размер матрицы смежности
begin
clrscr;
write('Input size matrix: ');
read(n);
clrscr;
for i:=1 to n do
for j:=1 to n do
if i=j then
mg[i,j]:=0    // Диагональным элементам присваивается ноль
else
begin
write('mg(',i,',',j,') = ');
read(mg[i,j]);
clrscr;
end;
write('Input Start: ');       // Вводим начальную вершину
read(vs);
write('Input Finish: ');   // Вводим конечную вершину
read(vf);
row:=vs;             // Начальное значение строки
column:=1;
sp:=0;           // Стек пустой
while row<>vf do
if mg[row,column]=1 then   // Если элемент единичный
begin
mg[row,column]:=0;     // то заменить его
if mg[column,row]=1 then   // ,а, если надо, то и симметричный ему
mg[column,row]:=0;
sp:=sp+1;        // указатель на вершину стека сместить
stack[sp]:=row;  // положить в стек номер строки
row:=column;   // строка принимает значение столбца
column:=1;   // столбец сбрасывается
end
else
if column=n then   // Если все элементы нулевые
begin
row:=stack[sp];   // вытащить из стека
sp:=sp-1;   // сместить указатель
column:=1;   // сбросить столбец
end
else
column:=column+1;   // перейти к другому столбцу
sp:=sp+1;        
stack[sp]:=row;    //  положить в стек конечный элемент
writeln;
write('Path : ');
for i:=1 to sp do
write(' ',stack[i]);   // Вывести на экран содержимое стека
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2012, 20:44     перевести код из паскаля в С++
Посмотрите здесь:

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

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

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

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