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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Alechi
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 3
#1

перевод кода с паскаля на С++ (Сортировка матрицы по возрастанию) - C++

26.03.2013, 20:57. Просмотров 307. Ответов 2
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста перевести код с паскаля в с++.
Сортировка матрицы по возрастанию

Задан двухмерный массив A(a_ij), де i=1,2…n , j=1,2…m, элементами которого являются целые числа. Упорядочить информацию в массиве в порядке возрастания.

Указания:
Изначальный массив задать самостоятельно.
На экран вывести начальный и полученный массивы.
Вот код:
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
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
 uses crt;
 
 var a:array[1..50,1..50] of integer;{матрица}
 
 m,n,i,j,k,tmp:integer; {размеры матрицы,счетчики циклов, буфер для обмена}
 
 begin
 
 clrscr;
 
 randomize;
 
 writeln('Введите размеры матрицы:');
 
 write(' Количество строк m=');
 
 repeat
 
 readln(m);
 
 until m in [1..50];
 
 write(' Количество столбцов n=');
 
 repeat
 
 readln(n);
 
 until n in [1..50];
 
 writeln;
 
 writeln('Исходная матрица:');
 
 for i:=1 to m do
 
 begin
 
 for j:=1 to n do
 
 begin
 
 a[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
 
 write(a[i,j]:4);
 
 end;
 
 writeln;
 
 end;
 
 writeln;
 
 {сортировка матрицы пузырьком}
 
 for k:=1 to n*m do {повторяем сколько элементов в матрице}
 
 for i:=1 to m do
 
 for j:=1 to n do
 
 begin
 
 if j<>n then {если элемент в строке не последний}
 
 begin
 
 if a[i,j+1]<a[i,j] then
 
 begin
 
 tmp:=a[i,j+1];
 
 a[i,j+1]:=a[i,j];
 
 a[i,j]:=tmp;{обмен элементов}
 
 end;
 
 end
 
 else
 
 if (a[i+1,1]<a[i,j])and(i<>m)then {если строка не последняя}
 
 {меняем первый элемент в следущей строке с последним элементом в текущей строке}
 
 begin
 
 tmp:=a[i+1,1];
 
 a[i+1,1]:=a[i,j];
 
 a[i,j]:=tmp;
 
 end;
 
 end;
 
 writeln('Отсортированная матрица:');
 
 for i:=1 to m do
 
 begin
 
 for j:=1 to n do
 
 write(a[i,j]:4);
 
 writeln;
 
 end;
 
 readln
 
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2013, 20:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос перевод кода с паскаля на С++ (Сортировка матрицы по возрастанию) (C++):

Перевод кода с паскаля на С++ - C++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type mat=array of integer; var ...

Перевод кода из Паскаля в С++ - C++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем допустимым преобразованием матрицы...

Перевод кода из паскаля в c++ - C++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот же результат. const n=30; ...

Перевод кода из паскаля в с++ - C++
Незнаю как перевести из паскаля в с++ ar x, y: real; begin readln(x, y); if ((x &lt; 0) and (y &lt; 0)) then begin ...

Перевод кода с паскаля в С++ - C++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt; var s:string; begin clrscr; write('введите слова:');...

Перевод кода из Паскаля в C++ - C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer alpha,integer beta): begin integer m,t;...

2
Xipxop
481 / 9 / 2
Регистрация: 28.12.2011
Сообщений: 151
26.03.2013, 21:00 #2
А в чем проблема то?
Зачем это переводить из паскаля, если можно заново написать, так как тут кроме пузырьковой сортировки больше ничего нету.

И вообще запомни, пихай код в спец. блок
Pascal
1
PASCAL
0
Alechi
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 3
26.03.2013, 21:08  [ТС] #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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#include "stdafx.h"
#include <iostream>
#include <math.h>
#include <conio.h>
#include <stdio.h>
#include <time.h>
#include <stdlib.h>
using namespace std;
 
void SortMass(int*, int);
void main()
{
setlocale(LC_ALL, "rus"); 
    int i,j;
int a[5][5];
for (i=0; i<5; i++)
        {  for (j=0; j<5; j++)     //заполнение рандомом
        a[i][j]=rand()%100;
        }
cout<<" Исходный массив:\n";
for (i=0;i<5; i++)
        { cout<< "\n" ;
         for (j=0; j<5; j++)       //вывод исходного массива
          cout<<a[i][j]<<" ";
        }
 
int* a = (int*)malloc(5);
SortMass(a, 5);
    printf("Результат:\n");
    for(int i = 0; i < 5; i++)
      printf(" %d ", a[i]);
    free(a);  
system("PAUSE");
}
 
void SortMass(int* a, int n)
{
     for(int i = n - 1; i >= 1; i--)
       for(int j = 0; j < i; j++)
       {
               if(a[j] > a[j+1])
               {
                       int foo = a[j];
                       a[j] = a[j+1];
                       a[j+1] = foo;
               }
       }  
 
}
Ошибка: идет переопределение а
сама не знаю что это и как исправить помогите пожалуйста!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2013, 21:08
Привет! Вот еще темы с ответами:

Перевод кода с Паскаля на С++ - C++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода с Паскаля на C++ - C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt; Var j,i,nech_kol,ch_kol,q,p,sum_nech,sum_ch: Integer; ...

Перевод кода с Паскаля на С++ - C++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код Pascal Var i:longint; n,k:byte; ...

Перевод кода из Паскаля в С++ - C++
uses crt,graph; type TPoint=record x,y:integer; end; var p1,p2,p3,p4:arrayof TPoint; gd,gm:integer; ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru