Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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
0 / 1 / 0
Регистрация: 01.04.2019
Сообщений: 18
0

Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k - Lazarus - Ответ 14002693

17.11.2019, 12:51. Показов 5511. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Вывести все в stringgrid1.
Можно пожалуйста с объяснениями.

Вернуться к обсуждению:
Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k Lazarus
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.11.2019, 12:51
Готовые ответы и решения:

Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу
Условие: Посчитать Сумму отрицательных элементов кратных заданному числу. Сделать нужно задачу в подпрограммах Есть ПП ввода и вывода...

Одномерный массив C#. Удаление из массива кратных заданному числу элементов
По условию числа, кратные k, должны удаляться из массива. Пока что они просто заменяются 0. К примеру: k=3 Mas1 1 6 2 9 5 4 9 6 7 ...

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p
Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p

3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.11.2019, 12:51
Помогаю со студенческими работами здесь

Найти сумму элементов массива, кратных заданному числу
заполнить массив из 15 элементов вещественными значениями -22<=x<23. найти сумму элементов массива кратных числу а

Найти сумму элементов массива, кратных заданному числу
Дан массив целых чисел. Найти: а) сумму нечетных чисел б) сумму элементов кратных заданному числу Turbo Pascal

Найти сумму элементов массива, кратных удвоенному заданному числу
Заполнить массив из 12 элементов (случайным образом) вещественными числами в диапозоне от (-50,50). Найти сумму элементов, кратных...

Найти сумму элементов одномерного массива, кратных заданному числу
2. Найти сумму элементов одномерного массива, кратных заданному числу.

Найти сумму квадратов пар элементов массива равна заданному числу Х
дано одномерной числовой массив целого типа. Написать программу, которая указывает индексы всех возможных пар элементов цьго массива, сумма...

0
Новые блоги и статьи
Анализ тональности на Python
stackOverflow 19.02.2025
Анализ тональности текста (Sentiment Analysis) - одно из наиболее востребованных направлений в обработке естественного языка, которое позволяет автоматически определять эмоциональную окраску. . .
Обнаружение аномалий в машинном обучении на Python
stackOverflow 19.02.2025
Аномалии — это отклонения от ожидаемого поведения системы, которые могут указывать как на потенциальные проблемы, так и на интересные возможности для исследования. В контексте машинного обучения. . .
Введение в представления (views) Django
stackOverflow 19.02.2025
Представления (views) - ключевой элемент веб-фреймворка Django, который отвечает за обработку HTTP-запросов и формирование ответов. Они действуют как посредники между данными приложения и шаблонами,. . .
Что такое шаблоны Django и как с ними работать
stackOverflow 19.02.2025
Шаблоны Django - основополагающий компонент фреймворка Django, который позволяет эффективно разделять логику приложения и его визуальное представление. Это очень важный инструмент для. . .
Какой Python Web-фреймворк лучший: Django, Flask или FastAPI?
stackOverflow 19.02.2025
В разработке под веб Python занимает особое место благодаря своей универсальности и богатой экосистеме. При создании веб-приложений разработчики сталкиваются с важным выбором - какой фреймворк. . .
Использование кэша 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
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru