История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Топ:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Техника безопасности при работе на пароконвектомате: К обслуживанию пароконвектомата допускаются лица, прошедшие технический минимум по эксплуатации оборудования...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Интересное:
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Дисциплины:
2019-12-21 | 276 |
5.00
из
|
Заказать работу |
|
|
Задано: массивы A = (a1, a2,..., an), B = (b1,b2,...,bn).
Сформировать: массив C =(c1, c2,..., cn), где Сi = Ai + Bi; i = 1, 2,..., n.
Задача сводится к организации цикла по i и вычислению Ci = Ai + Bi при каждом значении i от 1 до n.
Исходные данные:
N - размер массива;
A, B - массивы слагаемые размером N;
Результат: массив С - размером N;
Вспомогательные переменные: I - индекс - управляющая переменная цикла.
Procedure SUM_MAS (n: integer; A,B:mas; var C: mas);
{ где mas должен быть описан в главной программе в разделе описания типов, например так:
type mas = array[1..100 ] of real;
тогда это будет процедура для суммирования двух одномерных массивов размером не более 100 элементов }
begin
for i:= 1 to n do C[i]:= A[i]+B[i];
end.
Суммирование элементов массива.
Задано: массив P = (P1,P2,...,Pn).
Определить: сумму элементов массива.
Исходные данные:
N - размер массива;
P - массив размером N;
Результат: S - сумма элементов;
Вспомогательная переменная: I - индекс - управляющая переменная цикла.
Procedure SUMMA (n: integer; A:mas; var S: real);
{ процедура для суммирования элементов одномерного массива }
begin S:=0; { обнуление переменной под сумму }
for i:= 1 to n do S:= S+P[i]
en d.
Определение числа элементов массива, удовлетворяющих заданному условию.
Задано: массив P = (P1,P2,...,Pn); T - заданное число.
Определить: сколько элементов удовлетворяет заданному условию, например Pi > T.
Исходные данные:
N - размер массива;
P - массив размером N;
T - заданное значение, с которым сравниваются элементы массива.
Результат: K - число элементов массива P, удовлетворяющих условию.
Вспомогательная переменная: I- индекс - управляющая переменная цикла.
Procedure USLOVIE (n: integer; P:mas; T: real; var K: integer);
{процедура определения числа элементов, удовлетворяющих условию}
begin
k:= 0; { обнуление переменной под счетчик чисел }
|
for i:= 1 to n do if P[ i ] > T then k:= k+1
end;
Суммирование элементов массива, удовлетворяющих заданному условию.
Задано: массив P = (P1,P2,...,Pn); T - заданное число.
Определить: сумму элементов массива P, удовлетворяющих заданному условию, например Pi > T.
Исходные данные:
N - размер массива;
P - массив размером N;
T - заданное значение, с которым сравниваются элементы массива;
Результат: S - сумма элементов массива P, удовлетворяющих условию.
Вспомогательная переменная: I - индекс - управляющая переменная цикла.
Procedure SUM_USLOV (n: integer; P:mas; T: real; var S: real);
{процедура определения суммы элементов, удовлетворяющих условию}
begin S:= 0; {обнуление переменной под сумму элементов}
for i:= 1 to n do if P [ i ] > T then S:= S+1
end;
Инвертирование массива.
Задано: массив C = (c1,c2,...,cn).
Требуется: изменить порядок следования элементов массива C на обратный, используя одну вспомогательную переменную.
Исходные данные:
N - размер массива;
C - массив размером N;
Результат:
C - инвертированный массив;
Вспомогательные переменные:
I -индекс, управляющая переменная цикла;
M = n/2 - вычисляется до входа в цикл для уменьшения объема вычислений; P - используется при перестановке двух элементов массива.
Procedure INVER_MAS (n: integer; C:mas; var C: mas);
Var m: integer; p: real; { локальные переменные }
begin m:= n div 2; { целочисленное деление }
for i:= 1 to m do
begin p:= C[ i ]; C[i]:= C[N-i+1]; C[N-i+1]:= p end;
end.
Формирование массива из элементов другого массива, удовлетворяющих заданному условию
Задано: массив 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;
e nd.
|
|
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!