Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lazarus Максимальный и минимальный элементы массива заменить их средним арифметическим Максимальный и минимальный элементы массива заменить их средним арифметическим. https://www.cyberforum.ru/ lazarus/ thread1208778.html Ошибка при сохранении в файл Lazarus
доброго времени суток, помогите пожалуйста отладить код procedure TForm1.Button2Click(Sender: TObject); type rec=record a1:string; a2:string; a3:string; a4:string; a5:string; end; var
Lazarus Indy 10/9 кодировка Привет всем. В общем стоит задача "собрать" парсер кинопоиск'a под MacOs, Linux в Lazarus. <meta http-equiv="content-type" content="text/html; charset=windows-1251" /> Для начала решил собрать .so под Linux в Xubuntu 12.10. Поставил все требующиеся пакеты, компильнул и прикрутил Indy 9 (без SVN). Результат 0. Хедеры есть, но Memo не отоброжает. Далее про бывал разные кодировки не... https://www.cyberforum.ru/ lazarus/ thread1208240.html Lazarus Сложная привязка (Anchors) программно https://www.cyberforum.ru/ lazarus/ thread1207473.html
В Lazarus при визуальном проектировании интерфейса есть возможность установить сложную привязку (т.е. привязку по отношению к соседу). Возможно ли это сделать программно?
Составить автоматический тест, который будет проверять программу на работоспособность Lazarus
Нужно составить автоматический тест, который будет проверять эту прогу на работоспособность. Эта нахождение степени матрицы 2х2. Const n=2; Type matr=array of real; Var A,B,C:matr; i,j,m:integer; Procedure PowerMatr(A,B:matr;Var C:matr;n:byte); Var i,j,k,r:byte; Begin For i:=1 to n do For j:=1 to n do
Lazarus Вызов событий родителя Имеется контейнер (TBCPanel), которому принадлежат компоненты. Необходимо по возникновению события компонента обработать его для контенйнера. Т. е. как вызвать событие (например OnClick, OnMouseDown ...) для родителя (Parent)? https://www.cyberforum.ru/ lazarus/ thread1206938.html
Lazarus Error: Call by var for arg no. 3 has to match exactly: Got "_WIN32_FIND_DATAA" expected "WIN32_FIND_DATAA" https://www.cyberforum.ru/ lazarus/ thread1206831.html
Lazarus отказывается компилировать данный код function GetFileNameFromLink( LinkFileName: string ): string; var MyObject: IUnknown; MySLink: IShellLink;
Lazarus Отскок шаров друг от друга
у меня есть программа, в которой шары двигаются по прямой и отскакивают от краев формы..но нужно ещё чтобы они отталкивались друг от друга и изменялась скорость(в зависимости от массы), помогите пожалуйста unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Lazarus Ошибка при откритии https://www.cyberforum.ru/ lazarus/ thread1205911.html
Проблема вот в чем "unit1.pas(40,18) Error: implementation of method "TForm1.Button2Click" in unit1.pas" Видает ошибку погда откриваю 2 кнопку. посмотрите пожалуйста. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
Lazarus Сумма чисел https://www.cyberforum.ru/ lazarus/ thread1205129.html
Найти сумму четных, нечетных и нулевых элементов вектора
Lazarus Вывод сообщения через dll-библиотеку
помогите пожалуйста задание следующее: нужно вывести сообщение ("Hello world!") через DLL-библиотеку на lazarus-е
Lazarus Не упорядочивает матрицы по убыванию unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Menus, math; https://www.cyberforum.ru/ lazarus/ thread1204222.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32830 / 21168 / 8147
Регистрация: 22.10.2011
Сообщений: 36,428
Записей в блоге: 8
17.06.2014, 00:31 0

Для каждого столбца матрицы с четным номером найти сумму его элементов. Условный оператор не использовать - Lazarus - Ответ 6327810

17.06.2014, 00:31. Показов 1935. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
for j := 1 to N div 2 do
begin
  s := 0;
  for i := 1 to M do s := s + A[i, 2*j];
  ShowMessage(Format('Сумма элементов %d-го столбца равна %d', [2*j, s]));
end;


Вернуться к обсуждению:
Для каждого столбца матрицы с четным номером найти сумму его элементов. Условный оператор не использовать Lazarus
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2014, 00:31
Готовые ответы и решения:

Для каждого столбца матрицы с чётным номером найти сумму его элементов. Условный оператор не использовать
Дана матрица М. Для каждого столбца матрицы с чётным номером найти сумму его элементов. Условный...

Дана матрица размера M × N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов. Условный о
помогите решить

Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов
Дана матрица размера M x N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его...

Для каждого столбца матрицы с четным номером найти сумму его элементов
Matrix. Дана матрица размера M x N. Для каждого столбца матрицы с четным номером (2, 4, …) найти...

1
17.06.2014, 00:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2014, 00:31
Помогаю со студенческими работами здесь

Для каждого столбца матрицы с четным номером найти сумму его элементов
Дана матрица размера M×N Для каждого столбца матрицы с четным номером (2,4,...) найти сумму его...

Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов
Дана матрица размера M × N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его...

Для каждого столбца матрицы с четным номером найти сумму его элементов
Дана матрица размера M х N. Для каждого столбца матрицы с четным номером (2, 4,...) найти сумму его...

Для каждого столбца матрицы с четным номером найти сумму его элементов
помогите, пожалуйста.. Дана матрица размера M×N. Для каждого столбца матрицы с четным номером (2,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru