Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2010, 18:01   #1
Jenkins
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 10
По умолчанию портирование с паскаля на С++

Здравствуйте, многоуважаемые.
Помогите мне,пожалуйста с переносом кода на другой язык программирования, ввиду не знания С++.

Задача:
Дан одномерный массив из 100 случайных целых чисел в диапазоне от 5 до 25 включительно. Вывести все числа, которые максимально часто встречаются в массиве и количество их повторений. Подсчет количества повторений для числа оформить в виде функции.

Вот собственно и решение на паскале моем любимом:

Код:
TYPE
 Ar=Array[1..100] of Byte;
VAR
 A:Ar;
 C,N:Array[5..25] of Byte;
 i,j:Integer;
 Dummy:Byte;

Function Rep_num(B:Ar;Q:Byte):Byte;
 var
  Ir:Integer;
  Num:Byte;
 begin
  Num:=0;
  for Ir:=1 to 100 do
   if B[Ir]=Q then Inc(Num);
  Rep_num:=Num;
 end;

BEGIN
 Randomize;
 For i:=1 to 100 do
  A[i]:=Random(21)+5;
 For i:=0 to 3 do
  begin
   For j:=1 to 25 do
    Write(A[25*i+j]:3);
   WriteLn;
  end;
 Writeln;
 WriteLn('Press "Enter" to continue...');
 ReadLn;
 For i:=5 to 25 do
  begin
   N[i]:=i;
   C[i]:=Rep_Num(A,N[i]);
  end;
 For i:=5 to 24 do
  For j:=5 to 29-i do
   If C[j]>C[j+1] then
    begin
     Dummy:=C[j+1];
     C[j+1]:=C[j];
     C[j]:=Dummy;
     Dummy:=N[j+1];
     N[j+1]:=N[j];
     N[j]:=Dummy;
    end;
 For i:=25 downto 5 do
  WriteLn(N[i]:2,' - ',C[i]:2,' times');
 ReadLn;
END.


Премного благодарен за помощь!

Последний раз редактировалось Jenkins; 27.12.2010 в 18:05.
Jenkins вне форума Ответить с цитированием
Старый 29.12.2010, 21:34   #2
Jenkins
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 10
По умолчанию

может кто за деньги поможет?
Jenkins вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С Паскаля на Си++ Svetlanka_ya Помощь студентам 0 16.05.2010 12:17
С паскаля на c++ Sparky Помощь студентам 1 09.03.2010 16:56
от паскаля к с++ WOLFak Обсуждение статей 11 27.01.2010 00:18
[c++] [портирование linux->windows] линковка staseg Общие вопросы C/C++ 0 23.11.2009 18:36
из Паскаля в С++ Lees27 Общие вопросы C/C++ 1 14.09.2009 23:29