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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2016, 09:51   #1
richard.hendricks
 
Регистрация: 16.02.2016
Сообщений: 6
По умолчанию Оператор Length в функции

Компилятор ругается на четвертую строку, мол Нет перегруженной подпрограммы с такими типами параметров. Помогите, чем сможете.
Код:
 uses crt;
function Search (arg:string; var i, a : integer; const b:integer) : boolean;
begin
for i:=1 to length(arg) do begin
if a[i]='A' then result:=true else result:=false;
end;
end;
var s:string;
begin
readln (s); Search (s);
end.
_________________________
Ошибка исправлена, но теперь возникла другая. Строка 5 : "Нет индексного свойства по умолчанию для типа integer", что делать ?

Последний раз редактировалось richard.hendricks; 18.02.2016 в 10:05.
richard.hendricks вне форума Ответить с цитированием
Старый 18.02.2016, 10:04   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

arg целый, а length определяет размер строки или динамического массива.
Arigato вне форума Ответить с цитированием
Старый 18.02.2016, 10:16   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Чего хочешь то получить от этой пародии на код? Какой паскаль?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.02.2016, 10:49   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
 var i, a : integer
Код:
if a[i]='A'
А следующим будет вопрос "почему ругается на result"
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.02.2016, 11:09   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

такое нужно было?
Код:
function SearchLetter(arg:string; findletter : char) : boolean;
var i:integer;
begin
  SearchLetter := false;
  for i:=1 to length(arg) do 
     if arg[i]=findLetter then begin SearchLetter:=true; Exit end
end;
var s:string;
begin
  readln(s); 
  if SearchLetter(s,'A') 
      then WriteLn('Буква A есть в данной строке')
      else WriteLn('Буквы A нет в данной строке');
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
возврашение функции (оператор цыкла do while) DANATER Помощь студентам 1 13.04.2011 20:57
Length и TStrings k1r1ch Общие вопросы Delphi 5 24.06.2009 14:52
проблемы с оператором Length Picaso18 Паскаль, Turbo Pascal, PascalABC.NET 1 21.01.2009 18:40
Исключить #13#10 из Length Febreze Общие вопросы Delphi 10 26.04.2008 12:52