С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Запись текста в файл http://www.cyberforum.ru/cpp-beginners/thread705916.html
Доброго времени суток. У меня есть такой код программы: #include <iostream> #include <fstream> #include <iomanip> #include <string> #include <clocale> using namespace std; struct clients {...
C++ Замена символов в строке Надо написать программу, которая будет считывать строку, и заменять определенный символ(пользователь сам указывает, какой именно) на другой (который тоже указывает пользователь). Вот код: #include... http://www.cyberforum.ru/cpp-beginners/thread705903.html
C++ Составить программу, которая инвертирует строку, подавая его в обратном виде;
С клавиатуры вводится строка. Составить программу, которая инвертирует строку, подавая его в обратном виде; подсчитывает количество чисел в тексте; удаляет все слова, начинающиеся с гласных букв.
Двумерный массив. Найти такие k и n, что сумма элементов k-столбца матрица совпадает с суммой элементов n-го новой строки. C++
Для заданной матрицы размера NxN найти такие k и n, что сумма элементов k-столбца матрица совпадает с суммой элементов n-го новой строки. Найти сумму элементов в тех строках, которые содержат хотя бы...
C++ В одномерном массиве, состоящем из N целых элементов, вычислить: http://www.cyberforum.ru/cpp-beginners/thread705894.html
В одномерном массиве, состоящем из N целых элементов, вычислить: • Номер элемента массива, ближайшего к средне арефметичного его значений; • Сумма элементов массива, расположенных между первым...
C++ Немного муторности: переписать готовые решения Я тупо не успеваю это сделать, есть тонна другой работы. Надеюсь на понимание. Есть 6 супер халявных задач на массивы. К ним есть (!) готовые решения. Нужно туда напихать указатели. Каким боком не... подробнее

Показать сообщение отдельно
Iniriad
0 / 0 / 0
Регистрация: 28.09.2011
Сообщений: 4

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

22.11.2012, 20:44. Просмотров 246. Ответов 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
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.