C Pascal на C++

@LeshkinMaloy · Регистрация: 18.11.2009

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

ребята,а кто может перевести с Pascal на C++ эту программу - https://www.cyberforum.ru/post185668.html Жду ваших ответов

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

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
program sort;
uses crt;
const n=6;
var m:array[1..n,1..n]of integer;
    i,j,index,k,max,buf:integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    m[i,j]:=random(10);
    write(m[i,j]:3);
   end;
  writeln;
 end;
max:=m[1,1];
index:=1;
for i:=1 to n do
if m[i,i]>max then
 begin
  max:=m[i,i];
  index:=i;
 end;
writeln('Максимальный элемент=',max,' строка=',index);
repeat
write('Номер строки для перестановки k=');
readln(k);
until k in [1..n];
if index<>k then
for i:=1 to n do
  begin
   buf:=m[index,i];
   m[index,i]:=m[k,i];
   m[k,i]:=buf;
 end;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:3);
  writeln;
 end;
readln
end.

@odip · 30.11.2009, 22:23

Ладно - я начну.
Первые три строки

Pascal
1
2
3
program sort;
uses crt;
const n=6;

переводятся так:

C++
1
const int n= 6;

Добавлено через 2 минуты
Вот эти три строки:

Pascal
1
2
3
clrscr;
randomize;
writeln('Матрица:');

переводятся так:

C++
1
2
srand( time() );
printf( "Матрица:\n" );

@IT_Exp · 30.11.2009, 23:12

LeshkinMaloy,

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
#include <locale>
#include <iostream>
#include <algorithm>
#include <functional>
#include <limits>
 
#include <time.h>
 
template <typename T, const size_t Dimension>
void swap(T (&arr)[Dimension][Dimension], size_t N)
{
    T maximum = std::numeric_limits<T>::min();
    size_t row = 0;
    for (size_t i=0; i<Dimension; i++)
        if (arr[i][i] > maximum)        
            row = i, maximum = arr[i][i];
 
    if (row == N)
        return;
 
    T tmp[Dimension];
    std::copy(arr[row], arr[row] + Dimension, tmp);
    std::copy(arr[N], arr[N] + Dimension, arr[row]);
    std::copy(tmp, tmp + Dimension, arr[N]);
}
 
template <
    typename _E, typename _Tr, template <typename, typename> class O,
    typename T, const size_t Rows>
struct outer : public std::unary_function<const T (&)[Rows], void>
{
    // --------------------------------------------------------------------------------
    typedef std::unary_function<const T (&)[Rows], void> base_type;
    typedef typename base_type::argument_type argument_type;
    // --------------------------------------------------------------------------------
    
    outer(O<_E,_Tr>& os) : os_(os) {}
    void operator()(argument_type v) const
    {
        const _E sep[] = { _E('\t'), 0 };
        std::ostream_iterator<T,_E,_Tr> oi(os_, sep); 
        
        std::copy(&v[0], &v[0]+Rows, oi);
        os_ << std::endl;
    }
    O<_E,_Tr>& os_;
};
 
template <
    typename _E, typename _Tr, template <typename, typename> class O,
    typename T, const size_t Cols, const size_t Rows>
O<_E,_Tr>& operator << (O<_E,_Tr>& os, const T (&arr)[Cols][Rows])
{
    std::for_each(&arr[0], &arr[0]+Cols, outer<_E, _Tr, O, T, Rows>(os));
    return (os);
}
 
int main()
{
    setlocale(LC_ALL, "");
 
    const size_t N = 3;
    int arr[N][N];
 
    srand(static_cast<unsigned>(time(NULL)));
    std::generate_n(&arr[0][0], N*N, &rand);
    
    // номер переставляемой строки
    const size_t row = 1;
 
    std::cout << "До: " << std::endl;
    std::cout << arr << std::endl;
 
    swap(arr, row);
 
    std::cout << "После: " << std::endl;
    std::cout << arr << std::endl;
 
    return 0;
}

Вывод результата: http://codepad.org/iXEz4G50

@LeshkinMaloy · 02.12.2009, 10:57 **[ТС]**

А разве нельзя сделать попроще,чем вариант предложенный Rififi, просто мы даже большинство предложенных операторов не проходили

@kazak · 02.12.2009, 11:25

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
#include <iostream.h>
#include <iomanip.h>
#include <stdlib.h>
#include <time.h>
 
int main(int argc, char* argv[])
{
   const int SIZE = 6;
   int arr[SIZE][SIZE] = {0};
   int max, maxIndex, buf, k;
 
   srand(time(NULL));
 
   cout << "Matritsa." << endl;
   for (int i = 0; i < SIZE; i++)
   {
      for (int j = 0; j < SIZE; j++)
      {
         arr[i][j] = rand() % 11;
         cout << setw(3) << arr[i][j];
      }
      cout << endl;
   }
 
   max = arr[0][0];
   maxIndex = 0;
   for (int i = 0; i < SIZE; i++)
   {
      if (arr[i][i] > max)
      {
         max = arr[i][i];
         maxIndex = i;
      }
   }
 
   cout << "Max element = " << max << " v stroke " << maxIndex << endl;
   do
   {
      cout << "Vvedite stroku dlya perestanovki ";
      cin >> k;
      if (k < 0 || k >= SIZE)
         cout << "Nepravil'noe znacheniye" << endl;
   }while (k < 0 || k >= SIZE);
 
   if (k != maxIndex)
   {
      for (int i = 0; i < SIZE; i++)
      {
         buf = arr[maxIndex][i];
         arr[maxIndex][i] = arr[k][i];
         arr[k][i] = buf;
      }
   }
 
   cout << "Izmenennaya matritsa." << endl;
   for (int i = 0; i < SIZE; i++)
   {
      for (int j = 0; j < SIZE; j++)
      {
         cout << setw(3) << arr[i][j];
      }
      cout << endl;
   }
 
   system("pause");
   return 0;
}

@LeshkinMaloy · 02.12.2009, 11:55 **[ТС]**

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

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
#include <iostream.h>
#include <iomanip.h>
#include <stdlib.h>
#include <time.h>
 
int main(int argc, char* argv[])
{
   const int SIZE = 6;
   int arr[SIZE][SIZE] = {0};
   int max, maxIndex, buf, k;
 
   srand(time(NULL));
 
   cout << "Matritsa." << endl;
   for (int i = 0; i < SIZE; i++)
   {
      for (int j = 0; j < SIZE; j++)
      {
         arr[i][j] = rand() % 11;
         cout << setw(3) << arr[i][j];
      }
      cout << endl;
   }
 
   max = arr[0][0];
   maxIndex = 0;
   for (int i = 0; i < SIZE; i++)
   {
      if (arr[i][i] > max)
      {
         max = arr[i][i];
         maxIndex = i;
      }
   }
 
   cout << "Max element = " << max << " v stroke " << maxIndex << endl;
   do
   {
      cout << "Vvedite stroku dlya perestanovki ";
      cin >> k;
      if (k < 0 || k >= SIZE)
         cout << "Nepravil'noe znacheniye" << endl;
   }while (k < 0 || k >= SIZE);
 
   if (k != maxIndex)
   {
      for (int i = 0; i < SIZE; i++)
      {
         buf = arr[maxIndex][i];
         arr[maxIndex][i] = arr[k][i];
         arr[k][i] = buf;
      }
   }
 
   cout << "Izmenennaya matritsa." << endl;
   for (int i = 0; i < SIZE; i++)
   {
      for (int j = 0; j < SIZE; j++)
      {
         cout << setw(3) << arr[i][j];
      }
      cout << endl;
   }
 
   system("pause");
   return 0;
}

15 строка- see declaration of 'i'
56 - error C2374: 'i' : redefinition; multiple initialization
66 - fatal error C1004: unexpected end of file found

@kazak · 02.12.2009, 12:11

Что за компилятор?

@LeshkinMaloy · 02.12.2009, 18:30 **[ТС]**

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

Что за компилятор?

MS Visual C++6.0

@Somebody · 02.12.2009, 20:54

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

MS Visual C++6.0

Выкинь. Если же всё-таки, то

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

после всех инклудов добавь это:

#if defined (_MSC_VER) && _MSC_VER <= 1200
#define for if (false) ; else for
#endif

@LeshkinMaloy · 07.12.2009, 01:40 **[ТС]**

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

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
#include <iostream.h>
#include <iomanip.h>
#include <stdlib.h>
#include <time.h>
 
int main(int argc, char* argv[])
{
   const int SIZE = 6;
   int arr[SIZE][SIZE] = {0};
   int max, maxIndex, buf, k;
 
   srand(time(NULL));
 
   cout << "Matritsa." << endl;
   for (int i = 0; i < SIZE; i++)
   {
      for (int j = 0; j < SIZE; j++)
      {
         arr[i][j] = rand() % 11;
         cout << setw(3) << arr[i][j];
      }
      cout << endl;
   }
 
   max = arr[0][0];
   maxIndex = 0;
   for (int i = 0; i < SIZE; i++)
   {
      if (arr[i][i] > max)
      {
         max = arr[i][i];
         maxIndex = i;
      }
   }
 
   cout << "Max element = " << max << " v stroke " << maxIndex << endl;
   do
   {
      cout << "Vvedite stroku dlya perestanovki ";
      cin >> k;
      if (k < 0 || k >= SIZE)
         cout << "Nepravil'noe znacheniye" << endl;
   }while (k < 0 || k >= SIZE);
 
   if (k != maxIndex)
   {
      for (int i = 0; i < SIZE; i++)
      {
         buf = arr[maxIndex][i];
         arr[maxIndex][i] = arr[k][i];
         arr[k][i] = buf;
      }
   }
 
   cout << "Izmenennaya matritsa." << endl;
   for (int i = 0; i < SIZE; i++)
   {
      for (int j = 0; j < SIZE; j++)
      {
         cout << setw(3) << arr[i][j];
      }
      cout << endl;
   }
 
   system("pause");
   return 0;
}

Программа не меняет местами строку на диагонали, вместо этого, к примеру,если выбираем строку 2 то она просто меняет местами 3 и 5 строку. Через несколько часов здавать,помогите кто-нибудь

Добавлено через 50 минут
вот! мозги кипят,аж сдавать с буквой "з" написал...
всё перепробывал,не хватает у меня навыков привести в порядок программу...хотя много нового подчерпнул за последнюю неделю благодаря Вам. Откликнитесь кто-нибудь?где ошибка? через несколько часов сдавать курсач

@kazak · 07.12.2009, 01:53

Что выложил, то и перевели

Попробуй так:
buf = arr[i][i];
arr[i][i] =arr[k][i];
arr[k][i] = buf;

@LeshkinMaloy · 07.12.2009, 02:37 **[ТС]**

я сам ступил! попросил превести программу на с++, Вы мне помогли спасибо огромное! а мне то надо было не просто строки переставить,а поменять заданную пользователем строку с элементами главной диагонали матрицы...ОООООО

Добавлено через 7 минут

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

Что выложил, то и перевели

Попробуй так:
buf = arr[i][i];
arr[i][i] =arr[k][i];
arr[k][i] = buf;

ООО! kazak! наиогромнейшее тебе Спасибо! Выручил! От души!

Новые блоги и статьи Все статьи Все блоги /
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 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@LeshkinMaloy 0 / 0 / 0 Регистрация: 18.11.2009 Сообщений: 20
	02.12.2009, 10:57 [ТС]
	А разве нельзя сделать попроще,чем вариант предложенный Rififi, просто мы даже большинство предложенных операторов не проходили 0

@kazak 3602 / 2743 / 355 Регистрация: 11.03.2009 Сообщений: 6,304
	02.12.2009, 12:11
	Что за компилятор? 0

@kazak 3602 / 2743 / 355 Регистрация: 11.03.2009 Сообщений: 6,304
	07.12.2009, 01:53
	Что выложил, то и перевели Попробуй так: buf = arr[i][i]; arr[i][i] =arr[k][i]; arr[k][i] = buf; 1