VPF::[pascal] задача с массивами - Форум программистов

MaximV

Дата 28.2.2012, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 8.2.2012

Репутация: нет
Всего: нет

Дана последовательность действительных чисел. Заменить все ее члены,больше данного Z, этим числом. Подсчитать количество замен.

t_gran

Дата 28.2.2012, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Код


type
   TArray = array [0..0] of integer;
   TPointArray = ^TArray;

{-----------------------------------------------}
procedure Fill(arr: TPointArray; size: word);
var
   i: word;
begin
   randomize;

   for i:= 0 to size-1 do
      arr^[i]:= random(100);
end;
{-----------------------------------------------}
procedure Print(arr: TPointArray; size: word);
var
   i: word;
begin
   for i:= 0 to size-1 do
      write(arr^[i], ' ');
   writeln;
end;
{-----------------------------------------------}
function CutOffValue(arr: TPointArray; size: word; val: word): word;
var
   i: word;
   count: word;
begin
   count:= 0;

   for i:= 0 to size-1 do
      if (arr^[i] > val) then
      begin
         inc(count);
         arr^[i]:= val;
      end;

   CutOffValue:= count;
end;
{-----------------------------------------------}

var
   size: word;
   val: integer;
   count: word;
   arr: TPointArray;

begin
   write('input size of array: ');
   readln(size);

   if (size = 0) then
   begin
      writeln('Error: size must be greater than zero');
      exit;
   end;

   getmem(arr, sizeof(integer) * size);

   Fill(arr, size);
   Print(arr, size);

   write('input max value: ');
   readln(val);

   count:= CutOffValue(arr, size, val);
   Print(arr, size);

   writeln('count change = ', count);

   freemem(arr, sizeof(integer) * size);

   readln;
end.

Присоединённый файл ( Кол-во скачиваний: 3 )

archive.7z 21,25 Kb

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »