![]() |
|
Другие темы раздела | |
Lazarus Складывание байтовых массивов Всем здравствуйте. var BufRead: array of byte; Result: array of byte; begin // В BufRead оказалось следующих 5 байтов: BufRead:= 11; BufRead:= 22; BufRead:= 33; Такая вот глупенькая програмулька получилась. Думаю, что вам не подойдет. BufRead заполнен числами для наглядности. program Project1; {$codepage utf8} var BufRead: array of byte; Result:... https://www.cyberforum.ru/ lazarus/ thread2531239.html |
Lazarus Заменить условным оператором логическое выражение A=B or C and D and E
https://www.cyberforum.ru/ lazarus/ thread2530121.html Помогите сделать в lazarus. Заменить условным оператором логическое выражение A=B or C and D and E для всех возможных сочетаний значений B,C,D и E проверить совпадение результатов |
Ввод и запоминание пароля Lazarus Здравствуйте, я решил написать программу в lazarus'e "ввод и запоминание пароля". Саму программу я написал, но у меня возникла проблема. Когда вводишь неправильный пароль, он пишет введите еще раз... Вместо pass как константа можете сделать ручной ввод. program Project1; {$codepage utf8} const pass = 1234; // Пароль задан заранее. Var password,i: integer; flag: boolean; //... |
Как вырезать подстроку из строки? Lazarus мне нужно чтобы например a:=str(от второго символа до четвертого) a:=copy(str,2,3); |
Lazarus Русский язык в консольных приложениях Консольное приложение под Windows 10 Добавляю в список зависимостей проекта LazUtils составляю тестовую программу program LazTest; uses LazUTF8,Windows; begin SetConsoleOutputCP(CP_UTF8); ... Нужно открыть "Старт" -> "Все программы" -> Стандартные -> "Командная строка". В этой программе кликнуть правой кнопкой мыши по полосе заголовка и в меню в пункте "свойства" установить шрифт Lucida... https://www.cyberforum.ru/ lazarus/ thread2530671.html |
Lazarus Как найти наименьший элемент в массиве? Как найти наименьший элемент в массиве? В каком массиве? |
Lazarus Массив байтов как параметр функции
https://www.cyberforum.ru/ lazarus/ thread2530728.html Всем здравствуйте. Пусть msg: array of byte; Мне нужно передать его в функцию как параметр. На C++ это выглядит так: unsigned char* msg Правильна ли будет такая запись: @msg, то есть адрес... const n=9; type mas=array of byte; function Summa(a:mas):integer; |
Lazarus Бесконечный цикл
https://www.cyberforum.ru/ lazarus/ thread2531358.html Чем отличается while (1=1) do begin от while (true) do begin Одно и то же пишут по-разному? Одно и то же пишут по-разному?Да, одно и то же пишут по разному. Ну кому-то хочется на себя взять работу компилятора, и явно указать, что 1 = 1 это True, кому-то не хочется этого делать. Кто-то и... |
Lazarus Подсчёт контрольной суммы Помогите перевести. На СИ это выглядит так: //CRC-16-CCITT, Образующий многочлен = 0x1021 int CRCode(unsigned char* msg, unsigned short len , unsigned short skip) { unsigned short j, crc = 0; ... Ну, например вот так: function CRCode(const msg : array of Byte; len, skip : Byte) : Integer; var i, j : byte; ix : byte; // это - текущий индекс для массива msg: индекс элемента, с которым... https://www.cyberforum.ru/ lazarus/ thread2530748.html |
Lazarus Как в лазарус поменять кодировку на utf 8?
https://www.cyberforum.ru/ lazarus/ thread2531416.html допустим мне нужно сделать так str2:=str1 + ' ' при том что в str1 присутствуют русские символы. Но при попытке сделать это str2 равняется просто пустоте, но если заменить русские буквы на... Можно привести чуть больше кода, а не какой-то непонятный огрызок? Как заполняется str1, например. Как описаны переменные... Какой проект: оконный или консольный - тоже неплохо было бы указывать. |
Lazarus Как быстро забить байтовый массив нулями Сделать это нужно без использования цикла. На С++ это выглядит так: memset(Buff, 0, SIZE_OF_BUFF); где Buff - массив байтов 0 - байт, используемый для заполнения элементов массива ... FillByte(BufRead, SizeOf(BufRead), 0);А еще есть FillWord, FillDWord, FillQWord... https://www.cyberforum.ru/ lazarus/ thread2531289.html | Lazarus Символьный вывод вещественного числа Здравствуйте Подскажите, как напечатать любое заданное вещественное число символьным выводом число символьным выводомчто это значит? какой Паскаль неизвестно var s:string; begin Str(0.123,s); writeln(s); Str(573e-4,s); writeln(s); Str(Pi,s); writeln(s); https://www.cyberforum.ru/ lazarus/ thread2531491.html |
2 / 1 / 1
Регистрация: 04.11.2019
Сообщений: 8
|
|
21.04.2020, 02:34 | 0 |
Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k - Lazarus - Ответ 1445374321.04.2020, 02:34. Показов 5511. Ответов 3
Метки (Все метки)
Ответ
А можно тоже самое но на обычный Паскаль?
Вернуться к обсуждению: Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k Lazarus
0
|
21.04.2020, 02:34 | |
Готовые ответы и решения:
3
Одномерный массив C#. Удаление из массива кратных заданному числу элементов
|
21.04.2020, 02:34 | |
Помогаю со студенческими работами здесь
0
Найти сумму элементов массива, кратных заданному числу
|
Новые блоги и статьи
![]() |
||||
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
|
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
|
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
|
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
|
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
|
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
|
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
|
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
|
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
|
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|