Форум программистов, компьютерный форум 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 Сколько различных слов можно сделать из набора букв На день рождения Леше подарили набор карточек с буквами. Теперь Алеша с большим интересом составляет из них разные слова. И вот, однажды, составив очередное слово, Алеша заинтересовался, сколько различных слов можно сделать из этих же карточек, что и данное . Помогите ему ответить на этот вопрос. Формат входных данных Во входном файле задано слово, составленное Алешей - строка из маленьких... подробнее

Показать сообщение отдельно
Ev[G]eN
Эксперт С++
 Аватар для Ev[G]eN
5093 / 1531 / 381
Регистрация: 23.01.2011
Сообщений: 3,148
05.02.2012, 01:47     Перевести код с Pascal
Цитата Сообщение от 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;
я думаю так правильней, чем у вас
 
Текущее время: 02:01. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru