Формирование массива из элементов другого массива, удовлетворяющих заданному условию
Задано: массив A=(a1,a2,...,an), T - заданное число.
Сформировать: массив B=(b1,b2,...,bn), состоящий из элементов массива, удовлетворяющих условию Ai>T.
Заметим, т .к. индексы элементов массивов A и B не совпадают (не все элементы массива Ai>T), то для обозначения индексов массива B должна быть предусмотрена другая переменная.
Исходные данные:
N - размер массива;
A - массив размером N;
T - заданное значение;
Результат:
B - массив размером не больше N;
Y - число элементов массива B;
Вспомогательная переменная: I - индекс - управляющая переменная цикла.
Procedure MAS_NEW (n:integer;T:real;A:mas;var B: mas; var Y: byte);
{ где mas должен быть описан в главной программе в разделе описания типов , например так :
type mas = array[1..100 ] of real ;
тогда это будет процедура для суммирования двух одномерных массивов размером не более 100 элементов }
{ процедура включения в новый массив элементов, удовлетворяющих условию }
begin Y := 0; { обнуление ячейки под счетчик элементов массива В }
for i := 1 to n do
If A[ i ] > T then begin Y := Y+1; B[ Y ] := A[ i ] end;
end;
Опубликовал Kest
November 12 2008 21:16:21 ·
0 Комментариев ·
13817 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
