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

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

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

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

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

Перевести код из Pascal на С++ - C++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam: String; pred: String; st: Byte; nagr: Byte; ...

Перевести код с Pascal - C++
var x,y: real; begin write('Введите x, y: '); readln(x,y); if ((sqr(x)/4)+(sqr(y)/1)&lt;=1) and (x&lt;=-1) or...

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

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

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

Перевести код из 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++ - C++
Здравствуйте, дана задача : &quot;Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый...

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...

Перевести код с Pascal - C++
l:array of integer; a,b,n,i:integer; w:boolean; begin readln(n); randomize; for i:=1 to n do begin l:=random(10)-3; ...

Перевести код с С++ в С и Pascal - C++
кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в паскаль.... кто может помогите: #include...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 1
04.02.2012, 20:25     Перевести код с Pascal #2
sektor2009, условие задачи?
Ev[G]eN
Эксперт С++
5097 / 1535 / 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;
я думаю так правильней, чем у вас
Ответ Создать тему
Опции темы

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