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

Перевести код с Pascal - C++

Восстановить пароль Регистрация
 
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339
04.02.2012, 11:02     Перевести код с Pascal #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
[PASCAL]  procedure Max_el_matr;
  label 1;
   begin
     max_el:=A[2,1];
     p:=2;
     q:=1;
     for i:=2 to RazmMatr do
       begin
         for j:=1 to razmmatr do
           begin
            if i<>j then
             begin
               if abs(A[i,j])>abs(max_el) then
                begin
                  max_el:=A[i,j];
                  p:=i;
                  q:=j;
                end
             end
             else;
           end;
       end;
   end;
[/PASCAL]

Добавлено через 5 минут
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
max_el:=A[2][1];
p=2;
q=1
for( i=2; i<RazmMatr; i++)
{
 for( j=1; j<RazmMatr; j++)
    if (i<>j)
  {
 
   if( fabs(A[i,j])>fabs(max_el))
     {
                 max_el:=A[i,j];
                  p:=i;
                  q:=j;
 
      }
  }
}
как то так будет??
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2012, 11:02     Перевести код с Pascal
Посмотрите здесь:

Перевести код с С++ в С и Pascal C++
C++ Перевести код с Pascal
Перевести код из Pascal в C++ C++
Перевести код с Pascal C++
Перевести код с Pascal C++
C++ Перевести код с Pascal
C++ Перевести код с Pascal
C++ Перевести код с Pascal на C# и C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Dekio
Фрилансер
Эксперт C++
 Аватар для Dekio
5816 / 1214 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 1
04.02.2012, 20:25     Перевести код с Pascal #2
sektor2009, условие задачи?
Ev[G]eN
Эксперт С++
 Аватар для Ev[G]eN
5093 / 1531 / 381
Регистрация: 23.01.2011
Сообщений: 3,148
05.02.2012, 01:47     Перевести код с Pascal #3
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от sektor2009 Посмотреть сообщение
procedure Max_el_matr;
судя по этой строке я понял, что процедура должна найти макс. элемент матрицы...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure MaxElementMatr;
var
 i, j, i_max, j_max: integer;
begin
 i_max:=1; j_max:=1;
  for i:=1 to n do
   for j:=1 to m do
    if arr[i, j] > arr[i_max, j_max] then
     begin
      i_max:=i;
      j_max:=j;
     end;
 writeln('Максимальный элемент матрицы: ', arr[i_max, j_max]);
end;
я думаю так правильней, чем у вас
Yandex
Объявления
05.02.2012, 01:47     Перевести код с Pascal
Ответ Создать тему
Опции темы

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