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

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

Восстановить пароль Регистрация
Другие темы раздела
Pascal ABC Составить алгоритм работы цикла for http://www.cyberforum.ru/cpp-beginners/thread440622.html
read(Df,razmMatr); for i:=1 to RazmMatr do for j:=1 to RazmMatr do begin read(DF,Matr); {zadannaia} end;
Pascal ABC Создайте модуль, в котором будет храниться процедура создания следующей картинки. Используя модуль, поместите картинку по углам экрана и в центре. Помогите пожалуйста Создайте модуль, в котором будет храниться процедура создания следующей картинки. Используя модуль, поместите картинку по углам экрана и в центре. http://www.cyberforum.ru/cpp-beginners/thread440614.html
Pascal ABC Переписать в файл V все четные положительные числа из файла в убывающем порядке
Помогите пожалуйста с решением Сформировать файл W, состоящий из целых чисел. Переписать в файл V все четные положительные числа из файла в убывающем порядке. Найти их сумму.
Файл: выяснить, чего в нем больше: русских букв или цифр Pascal ABC
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр Проверьте, правильно ли решение? uses crt; var f:text; i:byte; nf:string; c:char; kb,kc:integer;
Pascal ABC Дан текст на русском языке. Определить, каких букв больше –гласных или согласных http://www.cyberforum.ru/cpp-beginners/thread440609.html
Тема: Множества Дан текст на русском языке. Определить, каких букв больше –гласных или согласных Помогите пожалуйста с программой...
Pascal ABC Сколько различных слов можно сделать из набора букв На день рождения Леше подарили набор карточек с буквами. Теперь Алеша с большим интересом составляет из них разные слова. И вот, однажды, составив очередное слово, Алеша заинтересовался, сколько различных слов можно сделать из этих же карточек, что и данное . Помогите ему ответить на этот вопрос. Формат входных данных Во входном файле задано слово, составленное Алешей - строка из маленьких... подробнее

Показать сообщение отдельно
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339
04.02.2012, 11:02     Перевести код с Pascal
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;
 
      }
  }
}
как то так будет??
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 22:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru