Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл https://www.cyberforum.ru/ delphi-beginners/ thread1136531.html
Помогите со ошибкам пожалуйста ((( procedure TForm1.Button1Click(Sender: TObject); var f,nf:textfile; a:array of integer; i,n,max:integer; st,st1:string; begin
Delphi Получить таблицу из n значений функции ln(x)-x+1.8 на отрезке [2;3.5]
получить таблицу из n значений функции ln(x)-x+1.8 на отрезке
Delphi В списке из n сотрудников отдела подсчитать количество ветеранов (стаж работы > 25) Только начинаю работать в делфи. Совершенно не понимаю как это должно выглядеть:( В списке из n сотрудников отдела подсчитать количество ветеранов (стаж работы > 25). Записи таблицы имеют также поля "ФИО" и "№ документа". https://www.cyberforum.ru/ delphi-beginners/ thread1136520.html Delphi Не отображается канва на компоненте StringGrid Пробовал по разному Form1.StringGrid1.Canvas.Pen.Color:=clRed; Form1.StringGrid1.Canvas.Pen.Width:=4; Form1.StringGrid1.Canvas.Brush.Style:=bsClear; Form1.StringGrid1.Canvas.Rectangle(0,0,200,200); В чем может быть причина? https://www.cyberforum.ru/ delphi-beginners/ thread1136514.html
Подскажите с формулой Delphi
Подскажите пожалуйста, как реализовать формулу: \sum_{k=1}^{n}\prod_{s=1}^{k}\frac{5}{3+2*s} Произведение я реализовал var Form1: TForm1; S:double;
Delphi Получить текст из RichEdit стороннего приложения Есть приложение, на котором расположен в поле RichEdit. Имя класса окна, которое возвратил InqSoft Window Scanner дал понять, что имя класса объекта WindowsForms10.EDIT.app.0.2bf8098_r13_ad1, в нем есть текст окна, который мне необходимо прочитать из другого приложения, которое пишу. Собственно, вопрос, как заюзать текст зная имя класса окна? h:=FindWindow(nil, 'Фактический заголовок... https://www.cyberforum.ru/ delphi-beginners/ thread1136484.html
Delphi Формирование двумерного массива из StringGrid unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread1136432.html Delphi Для х=0.5 вычислить значения первых пяти полиномов Лагерра: L0(x)=1, L1(x)=x, Ln(x)=[(2n-1-x)Ln-1(x)-(n-1)ln-2(x)]/n
помогите с кодом программы
Delphi преобразовать матрицу целых числе в вектор и наоборот. используя массивы и строки открытого типа Помогите с кодом программы https://www.cyberforum.ru/ delphi-beginners/ thread1136426.html Delphi Помогите разобраться в программе Помогите разобраться в программе, а точнее в части кода. For i:=0 to (FileSize(List)-1) do begin if (i<>StringGrid.Row-1) then begin seek(List,i); Read(List,S); RA:=S; k:=k+1; end; end;Вот вообщем-то и все. List это файл. https://www.cyberforum.ru/ delphi-beginners/ thread1136360.html
Delphi Файлы
Помогите пожалуйста перевести программу с Паскаля на Delphi (Form) обязательно на форме с компонентами. Program as; Type wed = record {Тип wed включает 3 поля: n, fio, bal} n : byte ; fio : string ; bal : array of byte; {Поле bal – массив из 3 оценок }...
Delphi Сумма всех натуральных чисел Нужна написать программу, которая вычисляет сумму всех натуральных чисел от 1 до 5 с помощью след. операторов -Цикл-ДО(с предусловием) -Цикл-ПОСЛЕ(с постусловием) -Цикл с параметром Необходимо с помощью компонента Edit задать количество натуральных чисел. Вывод результатов должен осуществляться в поле Edit2 https://www.cyberforum.ru/ delphi-beginners/ thread1136292.html
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 9
0

Ошибка в подсчете нечетных элементов в массиве - Delphi - Ответ 5987040

02.04.2014, 04:39. Показов 480. Ответов 5
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Сформировать из элементов матрицы одномерный массив, каждый элемент которого - это количество элементов каждого столбца матрицы, имеющих нечетное значение.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a: array [0..15] of integer;
var mas1:array[0..15,0..15] of integer;
var q,k,j,i,s,b: integer;
begin
s:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
for i:=0 to s do begin
for j:=0 to b do
if ((mas1[i,j]) mod 2)= 0  then
begin
mas1[i,j]:=k+1;
a[i]:=mas1[i,j];
stringgrid2.Cells[i,j]:=inttostr(a[i]);
end;
end;
end;


Вернуться к обсуждению:
Ошибка в подсчете нечетных элементов в массиве Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2014, 04:39
Готовые ответы и решения:

Поиск произведения нечетных отрицательных элементов в двумерном массиве. В чем ошибка?
Мне нужно сделать программу поиск произведения нечетных отрицательных элементов в двумерном массиве...

Ошибка при подсчете элементов массива
Помогите исправить задачу,.. когда арккосинус вывожу из комментария программа запускается но при...

Ошибка в подсчёте количества элементов List
Всем привет. Никак не могу понять, почему система выводит всегда разные значения в MessageBox ...

Найти ошибку при подсчете количества четных и нечетных чисел в матрице
Даны две целые квадратные матрицы четного порядка. Элементы массивов с четными номерами строки и...

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

В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов
В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов.

Найти сумму четных элементов и произведение нечетных элементов в массиве A(n)
Найти сумму четных элементов и произведение нечетных элементов в массиве A(n). Sub Main() n =...

В одномерном целочисленном массиве найти сумму элементов, количество нечетных отрицательных элементов
Дан одномерный массив целых чисел A размера N=7. Найти и вывести а) сумму его элементов б)...

Если в массиве количество нечётных по значению элементов более 3, найти произведение положительных элементов
Если в массиве количество нечётных по значению элементов более 3, найти произведение положительных...

Если в массиве минимальный элемент четный, найти произведение четных элементов, иначе - сумму нечетных элементов.
Если в массиве минимальный элемент четный, найти произведение четных элементов, иначе - сумму...

Если в массиве минимальный элемент четный, найти производные четных элементов, иначе - сумму нечетных элементов.
Нужна помощь в написании программы Если в массиве минимальный элемент четный, найти производные...

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