Форум программистов, компьютерный форум, киберфорум
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
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.11.2019, 17:18 0

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

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

Лучший ответ Сообщение было отмечено Vladimir_IT как решение

Решение

Все в stringgrid1 выводить не нужно, только массив.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
var x:array of integer;//динамический массив
    n,k,i,s:integer;
begin
randomize;
repeat  //введем размер массива с проверкой
n:=strtoint(inputbox('','Введите размер массива n>=10 n=','10'));
until n>=10;
setlength(x,n);//выделим под него память
//зададим параметры таблицы и создадим массив
with StringGrid1 do
 begin
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=1;
  colcount:=n;
  defaultcolwidth:=25;
  for i:=0 to n-1 do
   begin
    x[i]:=1+random(20);
    cells[i,0]:=inttostr(x[i]);
   end;
 end;
//введем число k
k:=strtoint(inputbox('','Введите число для проверки кратности k=','2'));
s:=0;
for i:=0 to n-1 do
if x[i] mod k=0 then s:=s+sqr(x[i]);
Label2.Caption:='Сумма квадратов элементов кратных '+inttostr(k)+'='+inttostr(s);
end;


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

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

Одномерный массив 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, 17:18
Помогаю со студенческими работами здесь

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

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

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

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

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

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-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru