|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.02.2019, 15:39 | #1 |
Новичок
Джуниор
Регистрация: 23.02.2019
Сообщений: 1
|
Использование процедуры
Добрый день! Два дня пытаюсь разобраться в процедурах (задолбался) может кто нибудь помочь ? Задание:
Даны массивы В(16), С(20) целых чисел.Найти произведение и количество его четных элементов. Для вычисления произведения и количества использовать процедуру. Код:
|
23.02.2019, 18:31 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,331
|
Например, так:
Добавим тип Код:
Код:
PR(B, n, sum, prz); B - один из массивов, n - число элементов массива, sum и prz - возвращаемые значения: число чётных элементов и их произведение. PS: Не проверял, но идея должна быть понятой. var при описании первого параметра означает, что в процедуру будет передан адрес массива.
Как-то так, ...
|
24.02.2019, 10:58 | #3 | |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Цитата:
Код:
Последний раз редактировалось digitalis; 24.02.2019 в 11:03. |
|
24.02.2019, 11:13 | #4 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
24.02.2019, 11:19 | #5 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Можно еще проще сделать:
Код:
|
24.02.2019, 18:15 | #6 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Аватар
Действительно. "Попробовали - убедились" © О.Генри Но в #2 массив используется для чтения, так что без разницы. И даже нет риска случайно "задеть плечом" что-нибудь в исходном массиве. Плата - накладные расходы на копирование массива. Последний раз редактировалось digitalis; 24.02.2019 в 18:32. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование процедуры DrawGlassText | kholoshchak | Общие вопросы Delphi | 0 | 09.10.2012 15:46 |
Использование процедуры в dll | medved6216 | Общие вопросы Delphi | 2 | 10.10.2011 15:14 |
Использование имени процедуры в качестве параметра другой процедуры | Alexey355 | Помощь студентам | 1 | 23.04.2011 13:59 |
Использование asm процедуры в Delphi | Alex1991 | Общие вопросы Delphi | 4 | 08.02.2011 12:50 |