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

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

Войти
Регистрация
Восстановить пароль
 
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222
#1

С Pascal в С++ перевести задачку - C++

30.01.2012, 01:23. Просмотров 275. Ответов 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
62
63
64
65
66
67
68
69
70
71
72
program zadanie_5;
uses crt;
const nn=15;
var n, i, j, k, imax, jmax: integer;
    a: array [1..nn,1..nn] of real;
    b:array[1..nn] of real;{массив для запоминания строк и столбцов}
    r: real;
    f:boolean;
begin
 randomize;
 repeat
 write('Задайте размер матрицы до ',nn,' n=');
 readln(n);
 until n in [1..nn];
 writeln('Исходный массив:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:2);
    end;
   writeln;
  end;
 for i:=1 to n-1 do {количество подмассивов, последний из 1 элемента не трогаем}
  begin
   imax:=i;  {считаем левый верхний элемент подмассива кандидатом на максимум}
   jmax:=1;
   for k:=i to n do  {цикл для перебора подмассивов}
   for j:=1 to n-i+1 do
   if a[k,j]>a[imax,jmax] then {для поиска максимального элемента}
    begin
     imax:=k;{нашли - делаем этот элемент максимальным}
     jmax:=j;
    end;
   if imax>i then{если максимальный не в первой строке подмассива}
    begin {сдвигаем (не обмениваем!) строки}
     for j:=1 to n do
     b[j]:=a[imax,j];  {запомним строку с максимумом}
     for k:=imax downto i+1 do {сдвинем строки вниз до макс.}
     for j:=1 to n do
     a[k,j]:=a[k-1,j];
     for j:=1 to n do {на место первой пишем строку с максимумом}
     a[i,j]:=b[j];
    end;
   if jmax<n-i+1 then{если максимальный не в последнем столбце подмассива}
    begin {сдвигаем столбцы}
     for k:=1 to n do
     b[k]:=a[k,jmax];{запомним столбец с макс.}
     for j:=jmax to n-i do{сдвинем столбцы влево до макс}
     for k:=1 to n do
     a[k,j]:=a[k,j+1];
     for k:=1 to n do {на место последнего пишем столбец с макс}
     a[k,n-i+1]:=b[k];
    end;
  end;
 writeln('Массив после перестановок:');
 for i:=1 to n do                     {вывод результата}
  begin
   for j:=1 to n do
   write (a[i,j]:5:2);
   writeln;
  end;
 {делаем проверку}
 f:=true;
 i:=2;
 while(i<=n)and f do
 if a[i,n-i+1]>a[i-1,n-i+2] then f:=false
 else i:=i+1;
 if f then write('На побочной диагонали убывающая последовательность')
 else write('Убывающая последовательность не получилась, ошибка в программе');
end.
Добавлено через 14 минут
Цитата Сообщение от сержи Посмотреть сообщение
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
program zadanie_5;
uses crt;
const nn=15;
var n, i, j, k, imax, jmax: integer;
    a: array [1..nn,1..nn] of real;
    b:array[1..nn] of real;{массив для запоминания строк и столбцов}
    r: real;
    f:boolean;
begin
 randomize;
 repeat
 write('Задайте размер матрицы до ',nn,' n=');
 readln(n);
 until n in [1..nn];
 writeln('Исходный массив:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:2);
    end;
   writeln;
  end;
 for i:=1 to n-1 do {количество подмассивов, последний из 1 элемента не трогаем}
  begin
   imax:=i;  {считаем левый верхний элемент подмассива кандидатом на максимум}
   jmax:=1;
   for k:=i to n do  {цикл для перебора подмассивов}
   for j:=1 to n-i+1 do
   if a[k,j]>a[imax,jmax] then {для поиска максимального элемента}
    begin
     imax:=k;{нашли - делаем этот элемент максимальным}
     jmax:=j;
    end;
   if imax>i then{если максимальный не в первой строке подмассива}
    begin {сдвигаем (не обмениваем!) строки}
     for j:=1 to n do
     b[j]:=a[imax,j];  {запомним строку с максимумом}
     for k:=imax downto i+1 do {сдвинем строки вниз до макс.}
     for j:=1 to n do
     a[k,j]:=a[k-1,j];
     for j:=1 to n do {на место первой пишем строку с максимумом}
     a[i,j]:=b[j];
    end;
   if jmax<n-i+1 then{если максимальный не в последнем столбце подмассива}
    begin {сдвигаем столбцы}
     for k:=1 to n do
     b[k]:=a[k,jmax];{запомним столбец с макс.}
     for j:=jmax to n-i do{сдвинем столбцы влево до макс}
     for k:=1 to n do
     a[k,j]:=a[k,j+1];
     for k:=1 to n do {на место последнего пишем столбец с макс}
     a[k,n-i+1]:=b[k];
    end;
  end;
 writeln('Массив после перестановок:');
 for i:=1 to n do                     {вывод результата}
  begin
   for j:=1 to n do
   write (a[i,j]:5:2);
   writeln;
  end;
 {делаем проверку}
 f:=true;
 i:=2;
 while(i<=n)and f do
 if a[i,n-i+1]>a[i-1,n-i+2] then f:=false
 else i:=i+1;
 if f then write('На побочной диагонали убывающая последовательность')
 else write('Убывающая последовательность не получилась, ошибка в программе');
end.
Выручите пожалуйста!!!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2012, 01:23     С Pascal в С++ перевести задачку
Посмотрите здесь:

Перевести из Pascal на С++ C++
Перевести с pascal C++
Перевести c Pascal в C++ C++
C++ Перевести с Pascal на C++
C++ Перевести с pascal в C++
Перевести с Pascal на C++ C++
Перевести с Pascal на C++ C++
перевести с pascal на С++ C++
Перевести из Pascal в С++ C++
Перевести с pascal на с++ C++
C++ Перевести с Pascal на C++
Перевести из Pascal на C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
dimcoder
Полярный
449 / 422 / 66
Регистрация: 11.09.2011
Сообщений: 1,115
30.01.2012, 09:25     С Pascal в С++ перевести задачку #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
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
#include <iostream>
#include <iomanip>
#include <ctime>
#include <cstdlib>
 
using namespace std;
 
int main ()
{
    const int nn = 15;
    int n, i, j, k, imax, jmax;
    float a[nn+1][nn+1];
    float b[nn+1];
    float r;
    bool f;
    srand(time(NULL));
    do
    {
        cout << "Задайте размер матрицы до " << nn << " n = ";
        cin >> n;
    } while (n < 1 && n > nn);
    cout << "Исходный массив: ";
    for (i = 1; i <= n; i++)
    {
        for (j = 1; j <= n; j++)
        {
            a[i][j] = rand() % 100;
            cout << setw(5) << a[i][j];
        }
        cout << endl;
    }
    
    for (i = 1; i < n; i++)
    {
        imax = i;  
        jmax = 1;
        for (k = i; k <= n; k++) 
            for (j=1; j <= n-i+1; j++)
                if (a[k][j] > a[imax][jmax]) 
                {
                    imax = k;
                    jmax = j;
                }
        if (imax > i)
        { 
            for (j = 1; j <= n; j++)
                b[j] = a[imax][j]; 
            for (k = imax; k > i+1; k--) 
                for (j = 1; j <= n; j++)
                    a[k][j] = a[k-1][j];
            for (j = 1; i <= n; j++) 
                a[i][j] = b[j];
        }
        if (jmax < n-i+1)
        {
            for (k = 1; k <= n; k++)
                b[k] = a[k][jmax];
            for (j = jmax; j < n-i; j++)
                for (k = 1; k <= n; k++)
                    a[k][j] = a[k][j+1];
            for (k = 1; k <= n; k++) 
                a[k][n-i+1] = b[k];
        }
    }
    cout << "Массив после перестановок: ";
    for (i = 1; i <= n; i++)                   
    {
        for (j = 1; j <= n; j++)
            cout << setw(5) << a[i][j];
        cout << endl;
    }
    f = true;
    i = 2;
    while ((i<=n)&& f)
    {
    if (a[i][n-i+1]>a[i-1][n-i+2])
        f = false;
    else
        i = i + 1;
    if (f) 
        cout << "На побочной диагонали убывающая последовательность" << endl; 
    else
        cout << "Убывающая последовательность не получилась, ошибка в программе" << endl;
    }
    system("PAUSE > NULL");
    return EXIT_SUCCESS;
}
ХЗ Правильно или нет - редактировл в "лоб"
Yandex
Объявления
30.01.2012, 09:25     С Pascal в С++ перевести задачку
Ответ Создать тему
Опции темы

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