Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lazarus Символьный вывод вещественного числа https://www.cyberforum.ru/ lazarus/ thread2531491.html
Здравствуйте Подскажите, как напечатать любое заданное вещественное число символьным выводом
Как в Lazarus взять какой то промежуток из string Lazarus
мне нужно чтобы например a:=str(от второго символа до четвертого)
Lazarus Как в лазарус поменять кодировку на utf 8?
допустим мне нужно сделать так str2:=str1 + ' ' при том что в str1 присутствуют русские символы. Но при попытке сделать это str2 равняется просто пустоте, но если заменить русские буквы на...
Lazarus Бесконечный цикл Чем отличается while (1=1) do begin от while (true) do begin Одно и то же пишут по-разному? https://www.cyberforum.ru/ lazarus/ thread2531358.html
Lazarus Ввод и запоминание пароля https://www.cyberforum.ru/ lazarus/ thread2531299.html
Здравствуйте, я решил написать программу в lazarus'e "ввод и запоминание пароля". Саму программу я написал, но у меня возникла проблема. Когда вводишь неправильный пароль, он пишет введите еще раз...
Как быстро забить байтовый массив нулями Lazarus
Сделать это нужно без использования цикла. На С++ это выглядит так: memset(Buff, 0, SIZE_OF_BUFF); где Buff - массив байтов 0 - байт, используемый для заполнения элементов массива ...
Складывание байтовых массивов Lazarus
Всем здравствуйте. var BufRead: array of byte; Result: array of byte; begin // В BufRead оказалось следующих 5 байтов: BufRead:= 11; BufRead:= 22; BufRead:= 33;
Lazarus Подсчёт контрольной суммы Помогите перевести. На СИ это выглядит так: //CRC-16-CCITT, Образующий многочлен = 0x1021 int CRCode(unsigned char* msg, unsigned short len , unsigned short skip) { unsigned short j, crc = 0; ... https://www.cyberforum.ru/ lazarus/ thread2530748.html
Lazarus Массив байтов как параметр функции https://www.cyberforum.ru/ lazarus/ thread2530728.html
Всем здравствуйте. Пусть msg: array of byte; Мне нужно передать его в функцию как параметр. На C++ это выглядит так: unsigned char* msg Правильна ли будет такая запись: @msg, то есть адрес...
Lazarus Русский язык в консольных приложениях Консольное приложение под Windows 10 Добавляю в список зависимостей проекта LazUtils составляю тестовую программу program LazTest; uses LazUTF8,Windows; begin SetConsoleOutputCP(CP_UTF8); ... https://www.cyberforum.ru/ lazarus/ thread2530671.html
Модератор
63861 / 47352 / 32648
Регистрация: 18.05.2008
Сообщений: 114,860
17.11.2019, 17:18 0

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

17.11.2019, 17:18. Показов 2955. Ответов 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
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2019, 17:18
Готовые ответы и решения:

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

Одномерный массив C#. Удаление из массива кратных заданному числу элементов
По условию числа, кратные k, должны удаляться из массива. Пока что они просто заменяются 0. К...

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

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

3
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.