Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2016, 22:29   #1
Настасьяя
 
Регистрация: 23.02.2016
Сообщений: 7
По умолчанию Подпрограмма

Дано массивы А(8), В(11). Определить в каком массиве отрицательное число встречается раньше.
Я смогла сделать, т.к. нас учили с procedure, а нужно выполнить с function.

Код:
PROGRAM PR2; 
TYPE 
MASSIV=ARRAY[1..30]OF INTEGER; 
VAR A,B:MASSIV; 
X1,X2:REAL; 
PROCEDURE VVOD(N,I:INTEGER; VAR D:MASSIV; Q:STRING); 
BEGIN 
FOR i:=1 to N DO 
BEGIN 
WRITE('D[',i,']='); 
READLN(D[i]); 
END; 
END; 
PROCEDURE POISK(D:MASSIV; N:INTEGER; K:INTEGER); 
VAR I:INTEGER; 
BEGIN 
K:=0; 
FOR i:=N downto 1 DO 
IF(D[I]<0)THEN 
K:=i; 
END; 
BEGIN 
VVOD(8,A,'A'); 
VVOD(11,B,'B'); 
POISK(8,A,X1); 
POISK(11,B,X2); 
IF(X1<X2)THEN 
WRITELN('массив A'); 
IF(X1>X2)THEN 
WRITELN('массив B'); 
END.

Последний раз редактировалось Аватар; 10.05.2016 в 22:31.
Настасьяя вне форума Ответить с цитированием
Старый 10.05.2016, 22:48   #2
FPaul
Форумчанин
 
Регистрация: 25.01.2015
Сообщений: 472
По умолчанию

Настасьяя, а сможете просто заменить заголовок процедуры на заголовок функции?
FPaul вне форума Ответить с цитированием
Старый 10.05.2016, 22:54   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Кстати, процедуру неправильно объявили. Забыли волшебное слово var. Надо так:
Код:
PROCEDURE POISK(D:MASSIV; N:INTEGER; var K:INTEGER);
Ну и как уже написали, просто переделать ее в функцию. То есть вместо нее вот так
Код:
function POISK(D:MASSIV; N:INTEGER):INTEGER;
Ну и вызывать ее в основной программе немного по другому.
type_Oleg вне форума Ответить с цитированием
Старый 10.05.2016, 22:58   #4
Настасьяя
 
Регистрация: 23.02.2016
Сообщений: 7
По умолчанию

О, а это будет правильно? Просто мы этой темы вообще не касались, поэтому я не знаю((
Настасьяя вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подпрограмма fardik Паскаль, Turbo Pascal, PascalABC.NET 4 17.12.2013 18:01
Подпрограмма на С++ serega260394 Помощь студентам 2 23.12.2010 09:37
Подпрограмма serega260394 Помощь студентам 1 18.12.2010 07:26
Подпрограмма peter065 Помощь студентам 10 11.10.2010 22:51
Подпрограмма Maks6169 Помощь студентам 4 13.02.2010 12:30