Перевод кода из Паскаля в С++

@Huk · Регистрация: 12.10.2009

Студворк — интернет-сервис помощи студентам

Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести
Задача :
Назовем допустимым преобразованием матрицы перестановку двух строк или двух столбцов.
Дана действительная квадратная матрица порядка n.
С помощью допустимых преобразований добиться того, чтобы один из элементов матрицы обладающий
наибольшим по модулю значением, располагался в левом верхнем углу матрицы.
Заранее вас Благодарю
Вот сам код

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
uses crt;
const n=5;
var max,maxi,maxj,k,i,j,prom:integer;
a: array [1..n,1..n]of integer;
begin
writeln('vvod mass');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
 
max:=0;
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to n do begin
if abs(a[i,j])>=max then begin
max:=abs(a[i,j]);
maxi:=i;
maxj:=j;
end;
end;
for k:=1 to n do begin
prom:=a[k,1];
a[k,1]:=a[k,maxj];
a[k,maxj]:=prom;
end;
for k:=1 to n do begin
prom:=a[1,k];
a[1,k]:=a[maxi,k];
a[maxi,k]:=prom;
end;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
readln;
end.

@taras atavin · 18.05.2010, 09:27

Так:

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
uses crt;
const n=5;
var max,maxi,maxj,k,i,j,prom:integer;
a: array [1..n,1..n]of integer;
begin
writeln('vvod mass');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
 
max:=0;
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to n do begin
if abs(a[i,j])>=max then begin
max:=abs(a[i,j]);
maxi:=i;
maxj:=j;
end;
end;
for k:=1 to n do begin
prom:=a[k,1];
a[k,1]:=a[k,maxj];
a[k,maxj]:=prom;
end;
for k:=1 to n do begin
prom:=a[1,k];
a[1,k]:=a[maxi,k];
a[maxi,k]:=prom;
end;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
readln;
end.

?

Добавлено через 9 минут
Тогда:

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
#define n 5
#include <iostream.h>
int main ()
{
 int max,maxi,maxj,k,i,j,prom;
 int a[n][n];
 cout<<"vvod mass";
 for (i=1; i<=n; ++i)
 {
  for (j=1; j<=n; ++j)
  {
   cin>>a[i-1][j-1];
  }
 }
 max=0;
 maxi=1;
 maxj=1;
 for (i=1; i<=n; ++i)
 {
  for (j=1; j<=n; ++j)
  {
   if (abs(a[i-1][j-1])>=max)
   {
    max=abs(a[i-1][j-1]);
    maxi=i;
    maxj=j;
   }
  }
 }
 for (k=1; k<=n; ++k)
 {
  prom=a[0][k-1];
  a[0][k-1]=a[maxi-1][k-1];
  a[maxi-1][k-1]:=prom;
 }
 for (i=1; i<=n; ++i)
 {
  cout<<"\n";
  for (j=1; j<=n; ++j)
  {
    cout<<a[i-1][j-1]<<" ";
  }
 }
 return 0;
}

Добавлено через 1 минуту
Но лучше перепиши на явную индексацию с нуля.

@Huk · 18.05.2010, 09:47 **[ТС]**

спс но прога не работает=) там куча ощибок итд
1) `cout' undeclared (first use this function)
2) `cin' undeclared (first use this function)
3) expected `;' before ':' token

@taras atavin · 18.05.2010, 09:50

Проект в студии?

@Huk · 18.05.2010, 09:52 **[ТС]**

#include <iostream>
#define n 5
int main ()
{
int max,maxi,maxj,k,i,j,prom;
int a[n][n];
cout << "vvod mass: \n";
for (i=1; i<=n; ++i)
{
for (j=1; j<=n; ++j)
{
cin>>a[i-1][j-1];
}
}
max=0;
maxi=1;
maxj=1;
for (i=1; i<=n; ++i)
{
for (j=1; j<=n; ++j)
{
if (abs(a[i-1][j-1])>=max)
{
max=abs(a[i-1][j-1]);
maxi=i;
maxj=j;
}
}
}
for (k=1; k<=n; ++k)
{
prom=a[0][k-1];
a[0][k-1]=a[maxi-1][k-1];
a[maxi-1][k-1]:=prom;}
for (i=1; i<=n; ++i)
{
cout<<"\n";
for (j=1; j<=n; ++j)
{
cout<<a[i-1][j-1]<<" ";
}
}
}

вот твоя прога она выдает те ощибки которые я привел выше, я на Dev-C++ работаю

@taras atavin · 18.05.2010, 10:01

microsoft development studio и на мои консольные тексты ругается, а gcc - нет, хотя всё, что относится к потокам, пишу одинаково и инкладю для них один и тот же файл.

@Huk · 18.05.2010, 10:11 **[ТС]**

ну дык что получается мне компелятор сменить?

@taras atavin · 18.05.2010, 10:17

C++
1
cout

меняй на

C++
1
sprintf

, а

C++
1
cin

на

C++
1
scanf

(это функции, синтаксиса не помню) и приделай непосредственно ввод/вывод (строчный).

Добавлено через 2 минуты
в 34-й строке очепятка: осталось двоеточие от паскаля. Замени

C++
1
 :=

на

C++
1
=

.

Добавлено через 22 секунды

Сообщение от Huk

ну дык что получается мне компелятор сменить?

Какая у тебя ось?

@Huk · 18.05.2010, 10:19 **[ТС]**

XP SP3

@taras atavin · 18.05.2010, 10:21

Тогда gcc тебе не светит.

@Huk · 18.05.2010, 10:23 **[ТС]**

я поменял как ты и говорил, но все равно она не пашет что то всякие ошибки выдает, кстати cout у меня в других прогах работает что делать???

@taras atavin · 18.05.2010, 10:25

Сравни инклады и делай каутом.

@Huk · 18.05.2010, 10:37 **[ТС]**

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
#include <iostream>
#include <stdlib.h>
#include <iomanip>
int main()
{const int n = 4; /* ïîðÿäîê ìàòðèöû */
int a[n][n];
int i,j;
int max,maxi,maxj,k,prom;
std::cout << "Array:\n";
for (i = 1; i <= n; i++){
for (j = 1; j <= n; j++){
a[i][j] = rand()%9;
std::cout << std::setw(3) << a[i][j];}}
max=0;
maxi=1;
maxj=1;
for (i=1; i<=n; ++i){
for (j=1; j<=n; ++j){
if (abs(a[i-1][j-1])>=max){
max=abs(a[i-1][j-1]);
maxi=i;
maxj=j;}}}
for (k=1; k<=n; ++k){
prom=a[0][k-1];
a[0][k-1]=a[maxi-1][k-1];
a[maxi-1][k-1]=prom;}
std::cout << "Result:\n";
for (i = 0; i < n; i++){
for (j = 0; j < n; j++)
std::cout << std::setw(3) << a[i][j];
std::cout << std::endl;}
system("pause");
return 0;}

я вот тут подшаманил но ни как не могу добиться чтоб матрица нормально на экран выводилась помоги если не трудно плз=)
тут что то не так помоги найти ощибку=)))))))

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Huk 3 / 3 / 1 Регистрация: 12.10.2009 Сообщений: 79
	18.05.2010, 09:47 [ТС]
	спс но прога не работает=) там куча ощибок итд 1) `cout' undeclared (first use this function) 2) `cin' undeclared (first use this function) 3) expected `;' before ':' token 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	18.05.2010, 09:50
	Проект в студии? 0

@Huk 3 / 3 / 1 Регистрация: 12.10.2009 Сообщений: 79
	18.05.2010, 09:52 [ТС]
	#include <iostream> #define n 5 int main () { int max,maxi,maxj,k,i,j,prom; int a[n][n]; cout << "vvod mass: \n"; for (i=1; i<=n; ++i) { for (j=1; j<=n; ++j) { cin>>a[i-1][j-1]; } } max=0; maxi=1; maxj=1; for (i=1; i<=n; ++i) { for (j=1; j<=n; ++j) { if (abs(a[i-1][j-1])>=max) { max=abs(a[i-1][j-1]); maxi=i; maxj=j; } } } for (k=1; k<=n; ++k) { prom=a[0][k-1]; a[0][k-1]=a[maxi-1][k-1]; a[maxi-1][k-1]:=prom;} for (i=1; i<=n; ++i) { cout<<"\n"; for (j=1; j<=n; ++j) { cout<<a[i-1][j-1]<<" "; } } } вот твоя прога она выдает те ощибки которые я привел выше, я на Dev-C++ работаю 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	18.05.2010, 10:01
	microsoft development studio и на мои консольные тексты ругается, а gcc - нет, хотя всё, что относится к потокам, пишу одинаково и инкладю для них один и тот же файл. 0

@Huk 3 / 3 / 1 Регистрация: 12.10.2009 Сообщений: 79
	18.05.2010, 10:11 [ТС]
	ну дык что получается мне компелятор сменить? 0

@Huk 3 / 3 / 1 Регистрация: 12.10.2009 Сообщений: 79
	18.05.2010, 10:19 [ТС]
	XP SP3 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	18.05.2010, 10:21
	Тогда gcc тебе не светит. 0

@Huk 3 / 3 / 1 Регистрация: 12.10.2009 Сообщений: 79
	18.05.2010, 10:23 [ТС]
	я поменял как ты и говорил, но все равно она не пашет что то всякие ошибки выдает, кстати cout у меня в других прогах работает что делать??? 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	18.05.2010, 10:25
	Сравни инклады и делай каутом. 0