![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 05.01.2017
Сообщений: 2
|
![]()
Есть программа работающая через функцию,помогите,пожалуйста, написать через процедуру
Код:
Последний раз редактировалось всё плохо :(; 06.01.2017 в 12:26. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,833
|
![]()
Может наоборот надо?
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]()
Если сначала так:
Код:
Код:
В самом деле так функции описывают, а не процедуры. |
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
![]()
Вообще, насколько мне известно, нельзя в подпрограммах формальные параметры-массивы принимать с явным указанием их типа. Необходимо их переопределить через Type:
Код:
|
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 05.01.2017
Сообщений: 2
|
![]()
Спасибо,не подскажете куда мне девать результат vLen:=r;.
И ругается на: for j:=1 to n do Read(b[j]); m:=vLen(b); и for j:=1 to n do Read(a[j]); t:=vLen(b); пишет несовместимые типы Array и TArray |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
![]() |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]()
Если переделали на функцию, то надо указать ее тип, и заменить array of Real на пользовательский тип:
Код:
Последний раз редактировалось type_Oleg; 06.01.2017 в 17:54. |
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,716
|
![]()
Мне кажется, материал будет интересен не только ТС. Попытался дать прямую ссылку, что-то режется. Даю выжимку.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедура и функция | Ken_Watanabe | Помощь студентам | 9 | 09.09.2014 16:27 |
Delphi процедура > функция | Nickolai47 | Помощь студентам | 4 | 12.12.2012 14:34 |
Функция и Процедура (на С) | Docen | Помощь студентам | 2 | 29.10.2010 14:12 |
процедура и функция | mono | Помощь студентам | 1 | 04.05.2009 15:33 |
Процедура и функция | HECTOR.A. | Помощь студентам | 2 | 16.12.2008 14:19 |