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

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

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

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

04.02.2012, 11:02. Просмотров 684. Ответов 2
Метки нет (Все метки)

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;
 
      }
  }
}
как то так будет??
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2012, 11:02
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код с Pascal (C++):

Перевести код с Pascal - C++
Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее спасибо) var ans, a, p :int64; ...

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

Перевести код с Pascal - C++
есть код на Pascale,перевести на СИ

Перевести код с C++ в Pascal - C++
#include &lt;iostream&gt; #include &lt;cmath&gt; #include &lt;vector&gt; #include &lt;numeric&gt; using namespace std; int main() { ...

Перевести код из Pascal в С++ - C++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение бесконечной суммы cos(x) = 1 - x^2/2! +...

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...

2
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 1
04.02.2012, 20:25 #2
sektor2009, условие задачи?
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5097 / 1535 / 381
Регистрация: 23.01.2011
Сообщений: 3,148
05.02.2012, 01:47 #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;
я думаю так правильней, чем у вас
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.02.2012, 01:47
Привет! Вот еще темы с ответами:

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...

Перевести код с Pascal в С++ - C++
Program fun1; Var m: integer; a,b,h,x,y : real; begin read (a,b,m); Writeln ('Таблиця:'); h:=(b-a)/m; x:=a; ...

Перевести код с Pascal - C++
первая: program lab2; uses crt; label M1; var n:integer; begin clrscr; M1:writeln('Введите целое число n от1 до 5'); ...

Перевести код с Pascal - C++
program sro3_2; var A,B,C:array of integer; n,k,l,i:integer; ...


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

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

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