Динамический массив. Free Pascal

User_1 · 11.05.2017, 22:22

Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения всех его положительных элементов

Нужно что бы массив задавался аналогично как в этом примере: Десять раз генерировать последовательность из случайного количества целых чисел от 0 до 99. В каждой последовательности найти максимальное число. Сохранить эти максимальные числа и вывести их на экран.

PHP код:


			
Type arrdin = array[1..40] of integer; 

Var  arrmax: array[1..10] of integer; 

     row: ^arrdin;                                 

     n, i, j, k: integer;

begin

  randomize;

  for i:=1 to 10 do 

  Begin

    n:=random(40)+1;

    getmem(row,n*sizeof(integer));

    for k:=1 to n do           

    Begin

      row^[k]:=random(100); write(row^[k],',') 

    End; Writeln;

    arrmax[i]:=row^[1];      

    for k:=2 to n do

     if row^[k]>arrmax[i] then arrmax[i]:=row^[k];

    freemem(row,n*sizeof(integer));

  end;

  for i:=1 to 10 do write(arrmax[i],' ');          

  Writeln

end.

Vladimir_S · 11.05.2017, 23:12

Да пожалуйста:

Код:

{$R-}
Const
 N=50;

Type
 arrdin = array[1..1] of integer;

Var
 row: ^arrdin;
 Med: Real;
 i,K: integer;

Begin
  randomize;
  Med:=0;
  K:=0;
  getmem(row,N*sizeof(integer));
  for i:=1 to N do
   begin
    row^[i]:=-20+random(100);
    write(row^[i]:5);
    if row^[i]>0 then
     begin
      Inc(K);
      Med:=Med+row^[i];
     end;
   end;
  Writeln;
  Writeln;
  if K=0 then
   Writeln('No positive elements!')
  else
   begin
    Med:=Med/K;
    K:=0;
    for i:=1 to N do
     if row^[i]>Med then Inc(K);
    Writeln('Result: ',K,' elements');
   end;
  freemem(row,N*sizeof(integer));
  Readln
End.

Uncle Vasya · 12.05.2017, 12:13

Я бы объявил константу
Const
MAX_N = 32768;

и массив

arrdin = array[1..MAX_N] of integer;

и если N заранее не известно и будет вводиться пользователем, то сравнивать с MAX_N.

Всё равно память выделяется getmem, но не пришлось бы проверку диапазонов отключать.

Vladimir_S · 12.05.2017, 15:35

Цитата:

Сообщение от Uncle Vasya

Я бы объявил константу
Const
MAX_N = 32768;

и массив

arrdin = array[1..MAX_N] of integer;

и если N заранее не известно и будет вводиться пользователем, то сравнивать с MAX_N.

Всё равно память выделяется getmem, но не пришлось бы проверку диапазонов отключать.

Мне кажется, тогда выхолащивается весь смысл динамической адресации. В том-то её и "изюминка", что можно заранее не выделять, как в статической, память "по максимуму", а брать при выполнении программы, сколько надо, потом возвращать, потом снова брать и т.д. А у Вас как-то весь смысл такого подхода улетучивается.
Что касается проверки диапазонов, то она, как правило, и так по умолчанию отключена. Что мне, к слову сказать, напрочь непонятно. Ибо и сам на этом подрывался, и, насколько знаю, отсутствие такого контроля - основная причина пресловутых "уязвимостей" и ОС, и приложений.
Поэтому у меня она включена в настройках Паскаля, и отключается только принудительно.

Uncle Vasya · 12.05.2017, 16:47

Цитата:

Сообщение от Vladimir_S

Мне кажется, тогда выхолащивается весь смысл динамической адресации. В том-то её и "изюминка", что можно заранее не выделять, как в статической, память "по максимуму", а брать при выполнении программы, сколько надо, потом возвращать, потом снова брать и т.д. А у Вас как-то весь смысл такого подхода улетучивается.

Почему же? Память по-прежнему выделяется getmem и отдаётся через freemem. Сейчас во всяких разных Паскалях по-разному можно делать, а где-то ещё старый добрый TP7.0 изучают. Я совсем не уверен, как ведет себя в разных версиях контроль границ.

Цитата:

Сообщение от Vladimir_S

отсутствие такого контроля - основная причина пресловутых "уязвимостей" и ОС, и приложений.

Верно, лучше пусть поломается с ошибкой, чем как попало отработает и выдаст какой попало результат!

Vladimir_S · 16.05.2017, 10:37

Пошел не относящийся к теме флуд.

11.05.2017, 22:22	#1 (permalink)
User_1 Новичок Регистрация: 11.05.2017 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Динамический массив. Free Pascal Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения всех его положительных элементов Нужно что бы массив задавался аналогично как в этом примере: Десять раз генерировать последовательность из случайного количества целых чисел от 0 до 99. В каждой последовательности найти максимальное число. Сохранить эти максимальные числа и вывести их на экран. PHP код: Type arrdin = array[1..40] of integer; Var arrmax: array[1..10] of integer; row: ^arrdin; n, i, j, k: integer; begin randomize; for i:=1 to 10 do Begin n:=random(40)+1; getmem(row,nsizeof(integer)); for k:=1 to n do Begin row^[k]:=random(100); write(row^[k],',') End; Writeln; arrmax[i]:=row^[1]; for k:=2 to n do if row^[k]>arrmax[i] then arrmax[i]:=row^[k]; freemem(row,nsizeof(integer)); end; for i:=1 to 10 do write(arrmax[i],' '); Writeln end.

12.05.2017, 12:13	#3 (permalink)
Uncle Vasya Member Регистрация: 04.12.2016 Сообщений: 131 Сказал(а) спасибо: 25 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3445	Я бы объявил константу Const MAX_N = 32768; и массив arrdin = array[1..MAX_N] of integer; и если N заранее не известно и будет вводиться пользователем, то сравнивать с MAX_N. Всё равно память выделяется getmem, но не пришлось бы проверку диапазонов отключать.

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

16.05.2017, 10:37	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Пошел не относящийся к теме флуд.