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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Работа с классами http://www.cyberforum.ru/cpp-beginners/thread440624.html
Составить описание объектного типа TMatr, что обеспечивает размещение матрицы произвольного размера с возможностью изменения числа строк и столбцов, вывод на экран подматрицы любого размера и всей...
C++ Динамическая матрица помогите написать 2 проги 1) 2) по критериям: 1)Динамические массивы обязательны 2)работать через адресную арифметику, - запрещены 3)распечатать не только значения но и адреса http://www.cyberforum.ru/cpp-beginners/thread440623.html
Обявление классов C++
Вобщем получалась такая ситуация, есть 2 класса class A { public: SomeMethod( B *param ); } class B { public: SomeMethod( A *param ); } Как указать первому классу что второй обьявлен?...
C++ Определение константы
Помогите составить определение следующих данных - константа pi = π = 3.14159265358 (12 значащих цифр)
C++ Зашифровать текст, используя таблицу ASCII-кодов http://www.cyberforum.ru/cpp-beginners/thread440579.html
Помогите зашифровать данный текст, используя таблицу ASCII-кодов: Компилятор. Добавлено через 7 минут #include <iostream> using namespace std; int main() {
C++ Прошу объяснить смысл оператора int** Встретил в чужом коде следующй оператор: int** вот в таком контексте: (динамическое распределение памяти): int** m = new int*; for (int i=0; i<5; i++) m = new int; trans(m, 5); подробнее

Показать сообщение отдельно
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339

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

04.02.2012, 11:02. Просмотров 682. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru