Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
 Аватар для kotAV
142 / 108 / 57
Регистрация: 15.09.2017
Сообщений: 425

Все элементы массива должны удовлетворять условию

19.11.2017, 14:35. Показов 1735. Ответов 2

Студворк — интернет-сервис помощи студентам
Всем привет. Делаю программу-бот и не могу понять как использовать функцию All

Фрагмент:
Pascal
1
2
3
4
5
6
7
8
9
          setlength(a,bot[i].txt[j].input.Length);
          for var k:=0 to bot[i].txt[j].input.Length-1 do
          begin
            for var m:=1 to input.Length do
            begin
              if copy(input,m,bot[i].txt[j].input[k].Length).ToLower=bot[i].txt[j].input[k].ToLower then a[k]:=true;
            end;
          end;
          if a.All=true then writeln(bot[i].name,': ',bot[i].txt[j].output[pabcsystem.Random(bot[i].txt[j].output.Length)]);
В итоге:
Нет перегруженной подпрограммы с таким количеством параметров All
Может, кто-нибудь здесь знает как использовать эту функцию или предложит альтернативный вариант.
Заранее спасибо.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.11.2017, 14:35
Ответы с готовыми решениями:

Все элементы массива должны присваивать вводимый текст, как это сделать?
var mas:array of Integer; i:integer; s:char; begin writeln('Введите текст'); Readln(s); For i:=1 to 30 do s:=chr(mas); ...

Какому условию должны удовлетворять векторы?
Какому условию должны удовлетворять векторы a и b, чтобы имело место соотношение: | а — b | = | а | + | b |? Знаю, что они должны быть...

Какому условию должны удовлетворять векторы?
Какому условию должны удовлетворять векторы a и b, чтобы имело место соотношение: (axb)/(a*b)=0 Векторное произведение разделить...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33378 / 21502 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 11
19.11.2017, 21:26
Цитата Сообщение от kotAV Посмотреть сообщение
или предложит альтернативный вариант
Альтернативный вариант чего? Ты ж не привел компилируемый код, привел какой-то огрызок. И как я должен получить эту самую ошибку, чтобы потом ее исправить? Типы переменных, с которыми ты работаешь, мне неизвестны.
0
 Аватар для Новичок
1682 / 1098 / 489
Регистрация: 17.07.2012
Сообщений: 5,360
19.11.2017, 21:50
Лучший ответ Сообщение было отмечено kotAV как решение

Решение

Пользуйтесь справкой.
Методы Any, All

Описание методов
Методы приведены для последовательности sequence of T.
function Any(): boolean;
Проверяет, содержит ли последовательность какие-либо элементы.
function Any(predicate: T->boolean): boolean;
Проверяет, удовлетворяет ли какой-либо элемент последовательности заданному условию.
function All(predicate: T->boolean): boolean;
Проверяет, все ли элементы последовательности удовлетворяют условию.
Пример
begin
var a := Lst(1,3,5);
Println(a.All(x -> x mod 2 <> 0)); // True
Println(a.Any(x -> x mod 2 = 0)); // False
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.11.2017, 21:50
Помогаю со студенческими работами здесь

Найти условия, которым должны удовлетворять величины f, G1, G2 при равновесии системы
Всем добрый вечер. Никак не понимаю как решить данную задачу. Подскажите пожалуйста если у кого то есть идеи. Условие: Шар 2 веса G2...

Вывести все элементы массива кратные 3 и удовлетворяющие условию -10<=p[i]<=15
Помогите решить C++ Дан массив p, заполненный с клавиатуры Вывести все элементы кратные 3 и удовлетворяющие условию -10&lt;=p&lt;=15

Пароль должен удовлетворять условию
Пароль должен удовлетворять следующим условиям: 1) Он содержит строчные и заглавные латинские буквы; 2) Его длина не менее 8...

Элементы массива должны быть упорядочены так, чтобы сначала шли элементы массива, отличающиеся от максимального на 80%.
Здравствуйте! Элементы массива ложны быть упорядочены таким способом, чтобы сначала шли элементы массива, отличавшиеся от максимального...

Найти все элементы массива целых чисел, удовлетворяющих условию
Найти все элементы массива целых чисел, удовлетворяющих условию: остаток от деления на 5 равен 3.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru