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

Перевести с паскаля на Си++ - C++

Восстановить пароль Регистрация
 
konstantah187
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 9
08.09.2013, 21:39     Перевести с паскаля на Си++ #1
вообщем программа на паскале нужно перевести на с++
суть проги поменять местами главную диагональ и побочную

C++
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
program pr1;
var a:array[1..10,1..10] of integer;
i,j,n,z:integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
if i=j then A[i,j]:=j else A[i,j]:=0;
end;
for i:=1 to n do 
begin
 
for i:=1 to n do
begin
 
z:=a[i,i];
a[i,i]:=a[i,n-i+1];
a[i,n-i+1]:=z;
for i:=1 to n do
a[i,n-i+1]:=a[i,i];
end;
end;
for I:=1 to n do
begin
for J:=1 to n do
write(A[i,j]:4);
writeln;
end;
end.
особенно важна эта часть

C++
1
2
3
4
5
z:=a[i,i];
a[i,i]:=a[i,n-i+1];
a[i,n-i+1]:=z;
for i:=1 to n do
a[i,n-i+1]:=a[i,i];

и если нужно вот мой код (у меня динамическая матрица) на си, но он не работает
C++
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
#include "StdAfx.h"
#include <iostream>
#include <conio.h>
#include <iomanip>
int main()
{
int n,i,j,temp;
using namespace std;
cout<<"kol-vo strok ";
cin>>n;
int** a;
a=new int* [n]; 
for(int i=0;i<n;i++)
a[i]=new int [n];
 
for(int i=0;i<n;i++)
{
for(int j=0;j<n;j++)
{
    a[i][j]=rand() % 9;
 cout << a[i][j]<< ' ';
}
cout<<endl;
}
for(int i=0;i<n;i++)
{
for(int j=0;j<n;j++)
{
printf("\n\n");
if (i=j) 
{
a[i][j]=j;
}
}
}
for(int i=0;i<n;i++)
{
    
int temp=a[i][i];
a[i][i]=a[i][(n-1)-i];
a[i][(n-1)-i]=temp;
for(int i=0;i<n;i++)
a[i][(n-1)-i]=a[i][i];
}
for(int i=0;i<n;i++)
{
for(int j=0;j<n;j++)
{
cout << a[i][j]<< ' ';
}
cout<<endl;
}
for(int i=0;i<n;i++)
delete [] a[i];  
delete [] a; 
getch();
return 0;
}
Добавлено через 21 минуту
ну помогите народ.. тут дело на минуту, всего эту часть

C++
1
a[i,i]:=a[i,n-i+1];
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.09.2013, 21:39     Перевести с паскаля на Си++
Посмотрите здесь:

перевести с Паскаля в с++ C++
C++ C Паскаля перевести в С++
Перевести с Паскаля на C++ C++
C++ Перевести с Паскаля на С++
Перевести с паскаля на С++ C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Belfegor
Ghost
 Аватар для Belfegor
172 / 172 / 6
Регистрация: 16.09.2012
Сообщений: 524
08.09.2013, 22:01     Перевести с паскаля на Си++ #2
C++
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
#include <iostream>
 
using namespace std;
 
int main() {
    const int size = 10;
    int a[size][size];
    for (int i = 0; i < size; i++) {
        for (int j = 0; j < size; j++) {
            a[i][j] = (i == j ? j : 0);
        }
    }
    for (int i = 0; i < size; i++) {
        for (int i = 0; i < size; i++) {
            swap(a[i][i], a[i][size - i + 1]);
        }
    }
    for (int i = 0; i < size; i++) {
        a[i][size - i + 1] = a[i][i];
    }
    for (int i = 0; i < size; i++) {
        for (int j = 0; j < size; j++) {
            j < size - 1 ? cout << a[i][j] << ' ' : cout << a[i][j] << endl;
        }
    }
 
    system("pause");
    return 0;
}
что то там не то в паскалевском коде
Слепой Уфолог
3 / 3 / 0
Регистрация: 04.09.2013
Сообщений: 18
08.09.2013, 22:05     Перевести с паскаля на Си++ #3
Цитата Сообщение от Belfegor Посмотреть сообщение
for (int i = 0; i < size; i++) {
* * * * for (int i = 0; i < size; i++) {
* * * * * * swap(a[i][i], a[i][size - i + 1]);
* * * * }
* * }
Странно, var i во внутреннем и внешнем for.
konstantah187
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 9
08.09.2013, 22:13  [ТС]     Перевести с паскаля на Си++ #4
спасибо огромное, но он выводит не много криво побочную диагональ и к сожалению мы не учили swap и нам обязательно динамичскую матрицу
Belfegor
Ghost
 Аватар для Belfegor
172 / 172 / 6
Регистрация: 16.09.2012
Сообщений: 524
08.09.2013, 22:13     Перевести с паскаля на Си++ #5
Цитата Сообщение от Слепой Уфолог Посмотреть сообщение
Странно, var i во внутреннем и внешнем for.
Цитата Сообщение от konstantah187 Посмотреть сообщение
for i:=1 to n do
begin
for i:=1 to n do
begin
z:=a[i,i];
a[i,i]:=a[i,n-i+1];
a[i,n-i+1]:=z;
ну так тут так
konstantah187
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 9
08.09.2013, 22:22  [ТС]     Перевести с паскаля на Си++ #6
может кто подправит мой код на си?
Слепой Уфолог
3 / 3 / 0
Регистрация: 04.09.2013
Сообщений: 18
08.09.2013, 23:10     Перевести с паскаля на Си++ #7
Код
#include <cstdio>

void
InvertDiagonals(int *mat, const int magn)
{
	for(int i=0; i<magn; i++) {
		int norm_index = i * magn + i;
		int norm_val = mat[norm_index];
		
		int inverse_index = magn - i - 1 + magn * i;
		int inverse_val = mat[inverse_index];
		
		mat[inverse_index] = norm_val;
		mat[norm_index] = inverse_val;
	}
}

void
PrintMatrix(int *mat, const int magn)
{
	for (int i=0; i<magn; i++) {
		for (int j=0; j<magn; j++) {
			const int index = i * magn + j;
			printf("%3d ", mat[index]);
		}
		printf("\n");
	}
	printf("\n");
}

void
PrintDiagonals(int *mat, const int magn)
{
	for(int i=0; i<magn; i++) {
		int norm_index = i * magn + i;
		int norm_val = mat[norm_index];
		printf("%3d", norm_val);
		
		int inverse_index = magn - i - 1 + magn * i;
		int inverse_val = mat[inverse_index];
		printf("%5d\n", inverse_val);
	}
}
 
int main() {
	const int magn = 10;
	
	const int count = magn * magn;
	int *mat = new int[count];
	
	//заполняем матрицу данными которые
	//соответствуют индексам
	for (int i=0; i<count; i++) {
		mat[i] = i;
	}
	
	printf("Матрица вначале\n");
	PrintMatrix(mat, magn);
	printf("Прямая и обратная диагональ\n");
	PrintDiagonals(mat, magn);
	
	InvertDiagonals(mat, magn);
	printf("\nТеперь матрица\n");
	PrintMatrix(mat, magn);
	printf("Теперь диагонали\n");
	PrintDiagonals(mat, magn);
	
	
	delete mat;
	return 0;
}
У меня выдает:
~$ g++ test.cpp -o test
~$ ./test
Матрица вначале
0 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 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99

Прямая и обратная диагональ
0 9
11 18
22 27
33 36
44 45
55 54
66 63
77 72
88 81
99 90

Теперь матрица
9 1 2 3 4 5 6 7 8 0
10 18 12 13 14 15 16 17 11 19
20 21 27 23 24 25 26 22 28 29
30 31 32 36 34 35 33 37 38 39
40 41 42 43 45 44 46 47 48 49
50 51 52 53 55 54 56 57 58 59
60 61 62 66 64 65 63 67 68 69
70 71 77 73 74 75 76 72 78 79
80 88 82 83 84 85 86 87 81 89
99 91 92 93 94 95 96 97 98 90

Теперь диагонали
9 0
18 11
27 22
36 33
45 44
54 55
63 66
72 77
81 88
90 99
~$
konstantah187
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 9
08.09.2013, 23:21  [ТС]     Перевести с паскаля на Си++ #8
спасибо огромное, но это способ примерно 5 курса... вот попалась задачки не из легких
Слепой Уфолог
3 / 3 / 0
Регистрация: 04.09.2013
Сообщений: 18
08.09.2013, 23:55     Перевести с паскаля на Си++ #9
Цитата Сообщение от konstantah187 Посмотреть сообщение
спасибо огромное, но это способ примерно 5 курса... вот попалась задачки не из легких
Я сам научился программированию поэтому не знаю что в каком курсе учат, я просто разделил задачу на несколько логических функций чтобы было проще работать и понимать прогу, надеюсь это не запрещено (задачей).
monolit
179 / 179 / 21
Регистрация: 24.03.2011
Сообщений: 641
Завершенные тесты: 1
09.09.2013, 00:25     Перевести с паскаля на Си++ #10
Где ж это на 5 курсе такое проходят, не верю, и все тут) Тебя вводят в заблуждение)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2013, 00:33     Перевести с паскаля на Си++
Еще ссылки по теме:

C++ Перевести с Паскаля на С++
Перевести из паскаля в c++ C++

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

Или воспользуйтесь поиском по форуму:
konstantah187
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 9
09.09.2013, 00:33  [ТС]     Перевести с паскаля на Си++ #11
огромное спасибо, но это реально серьезный уровень
есть обычный способ вот формула замены диагоналей из паскаля
Pascal
1
2
3
4
5
6
for i:=1 to n do
 begin
   x:=a[i,i];//элемент главной диагонали
   a[i,i]:=a[n-i+1];//пишем на его место элемент побочной диагонали
   a[n-i+1]:=x;//на побочную элемент главной
  end;
но мне всего то надо его перевести в Си, но я не могу ибо выдаёт ошибку
до этой формулы идет создание динамической матрицы, потом этот код и после вывод всего-то

Добавлено через 3 минуты
C++
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
#include "StdAfx.h"
#include <iostream>
#include <conio.h>
#include <iomanip>
int main()
{
int n,m,i,j,temp;
using namespace std;
cout<<"kol-vo strok ";
cin>>n;
cout<<"kol-vo strok ";
cin>>m;
int** a;
a=new int* [n]; 
for(int i=0;i<n;i++)
a[i]=new int [m];
 
for(int i=0;i<n;i++)
{
for(int j=0;j<m;j++)
{
    a[i][j]=rand() % 9;
 cout << a[i][j]<< ' ';
}
cout<<endl;
}
 
........
}
for(int i=0;i<n;i++)
delete [] a[i];  
delete [] a; 
getch();
return 0;
}
Вот шаблон динамической матрицы моей, где точки нужно просто вставить формулу и по идее должно работать

Добавлено через 2 минуты
Цитата Сообщение от monolit Посмотреть сообщение
Где ж это на 5 курсе такое проходят, не верю, и все тут) Тебя вводят в заблуждение)
ну у него очень огромный и подробный код, на моём 2 курсе никто не поверит, что я его сам делал
Yandex
Объявления
09.09.2013, 00:33     Перевести с паскаля на Си++
Ответ Создать тему
Опции темы

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