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

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

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

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

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

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

Выдает ошибку "Нет перегруженной подпрограммы с такими типами параметров
", не знаю, что делать, может кто знает


Код:
PROGRAM PR2; 
TYPE 
MASSIV=ARRAY[1..30] OF STRING; 
VAR C,B,X,Y: MASSIV; 
A:ARRAY[1..4] OF INTEGER ; 
PROCEDURE VVOD(N: INTEGER; VAR D: MASSIV; Q: STRING); 
BEGIN 
WRITELN('массив-',Q); 
VAR i: INTEGER; 
FOR i:=1 TO N DO 
BEGIN 
WRITE(Q,'[',i,']='); 
READLN(D[I]); 
END; 
END; 
PROCEDURE POISK(N: INTEGER; D: MASSIV; VAR K: INTEGER); 
VAR i: INTEGER; 
BEGIN 
K:=0; 
FOR i:=N TO 1 DO 
IF(D[i]=0)THEN 
K:=k+1; 
END; 
BEGIN 
VVOD(6,C,'C'); 
VVOD(7,B,'B'); 
VVOD(8,X,'X'); 
VVOD(9,Y,'Y'); 
POISK(6,C,A[1]); 
POISK(7,B,A[2]); 
POISK(8,X,A[3]); 
POISK(9,Y,[4]); 
max:=A[1]; 
t:=1; 
FOR i:=2 TO 4 DO 
IF(A[i]>max)THEN 
BEGIN 
max:=Ai; 
t:=i; 
END; 
WRITELN('max=',max,'t=',t); 
END.
Пожалуйста, оформляйте Ваш код согласно правилам.

В этой строке POISK(9,Y,[4]); выдает ошибку "Неправильный тип параметров подпрограммы"

Последний раз редактировалось Вадим Мошев; 12.06.2016 в 14:22.
Настасьяя вне форума Ответить с цитированием
Старый 07.06.2016, 19:59   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Наверное, не хватает чего-то, какой-то буквы А скорее всего )
Код:
POISK(6,C,A[1]); 
POISK(7,B,A[2]); 
POISK(8,X,A[3]); 
POISK(9,Y,[4]);
eoln вне форума Ответить с цитированием
Старый 07.06.2016, 20:07   #3
Настасьяя
 
Регистрация: 23.02.2016
Сообщений: 7
По умолчанию

Ой, да, какая-то я невнимательная, спасибо)))

А вот что делать с 32 строкой max:=A[1], ошибка"ожидалась переменная"?

Последний раз редактировалось Вадим Мошев; 12.06.2016 в 14:22.
Настасьяя вне форума Ответить с цитированием
Старый 07.06.2016, 23:40   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

может быть, надо было объявить (описать) в разделе VAR переменную max ?
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подпрограмма wersat C# (си шарп) 1 16.01.2013 23:25
[C] Подпрограмма edw1n Помощь студентам 11 20.12.2012 22:40
Подпрограмма на С++ serega260394 Помощь студентам 2 23.12.2010 09:37
Подпрограмма serega260394 Помощь студентам 1 18.12.2010 07:26
Подпрограмма Maks6169 Помощь студентам 4 13.02.2010 12:30