Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 25.12.2010, 20:15   #1 (permalink)
Jenkins
Новичок
 
Регистрация: 25.12.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Двумерные массивы и функции. Нужна помощь.

Здравствуйте, мне очень срочно нужна помощь в решении двух задач.
Первая на двумерные массивы:
Дан двумерный массив из 5 строк и 6 столбцов. Определить для каждого четного столбца максимальный элемент. Найти произведение этих элементов.

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

Помогите пожалуйста!
Jenkins вне форума   Ответить с цитированием

Старый 25.12.2010, 20:15
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме создается много аналогичных обсуждений, рекомендую вам почитать их

Двумерные массивы и процедуры PASCAL
Нужна помощь. Логические функции, СДНФ.
Массивы. Нужна помощь в доработке программы.

Старый 26.12.2010, 10:01   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,343
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от Jenkins Посмотреть сообщение
Дан одномерный массив из 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 26.12.2010, 18:22   #3 (permalink)
Jenkins
Новичок
 
Регистрация: 25.12.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а можно на С++?
могу и с оплатой
Jenkins вне форума   Ответить с цитированием
Старый 27.12.2010, 18:47   #4 (permalink)
Jenkins
Новичок
 
Регистрация: 25.12.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

актуально
Jenkins вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
двумерные, функции

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 04:57.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.