Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
noname10
2 / 2 / 0
Регистрация: 24.12.2013
Сообщений: 15
1

Создать одномерный массив с N действительных чисел с вычислением суммы нечетных элементов массива

24.12.2013, 21:46. Просмотров 566. Ответов 1
Метки нет (Все метки)

я вот так пытался сделать.

Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject); //заповнення масиву
var
i,k:integer;
begin
Randomize;
 for i:=0 to StringGrid1.ColCount-1 do
  begin
  k:=RandomRange(-10,11);
  StringGrid1.Cells[i,0]:=IntToStr(k);
  end;
end;
 
procedure TForm1.Button4Click(Sender: TObject); //Сума непарних
var
i,sum,k:integer;
begin
sum:=0;
 for i:=0 to StringGrid1.ColCount-1 do
  begin
   k:=StrToInt(StringGrid1.Cells[i,0]);
   if (k mod 2<>0) then sum:=sum+k;
  end;
  Label1.Caption:=Label1.Caption+IntToStr(sum);
end;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 21:46
Ответы с готовыми решениями:

одномерный массив действительных чисел Х
Дано одномерный массив действительных чисел Х. Вычислить произведение элементов, стоящих на четных...

Одномерный массив. Создать массив Х суммы среднеарифметического элементов массива А с каждым элементом массива А
Дан массив А.Создать массив Х суммы среднеарифметического элементов массива А с каждым элементом...

Создать массив С какой складываться из нечетных чисел массива А, посчитать количество элементов массива С
Дано целочисловий одномерный массив А, какой состоит из 12 элементов. Создать массив С какой...

Найти одномерный массив состоящий из элементов двумерного массива представляющих собой суммы чисел
Добрый день,помогите с задачкой, пожалуйста. Задание: Дан двумерный массив. Размерность и диапазон...

Одномерный массив. Суммы элементов на четных и нечетных местах
помогите решить задачку...только весь текст программы... Для вещественного (целого) массива A...

1
Алекcей
393 / 375 / 147
Регистрация: 11.12.2013
Сообщений: 1,978
24.12.2013, 22:49 2
Зачем Вам StringGrid? массив объявляется так
Delphi
1
 n: array of real;
, а подсчет суммы нечетных можно сделать так
Delphi
1
2
3
4
5
6
7
8
9
10
11
var s: real;
 i: integer;
 a: array of real;
begin
 s:=0;
 //заполняем массив  a
//после как заполнили считаем сумму нечетных
for i:=low(a) to high(a) do 
 if i mod 2 неравно 0 then s:=s+a(i); 
// у а скобки должны быть квадратные у меня на смартфоне их нет
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2013, 22:49

Суммы элементов нечетных строк занести в одномерный массив В
Сформировать вещественную матрицу А размером N*M ( числа N и M задаются с клавиатуры в диапазоне от...

Сформировать одномерный массив из суммы нечетных элементов двумерного
Дан двумерный массив. Сформировать одномерный массив из суммы нечетных элементов двумерного каждого...

Создать массив С, состоящий из нечетных чисел массива А, посчитать количество элементов
Даны целочисленный одномерный массив А, состоящий из 12 элементов. Создать массив С, состоящий из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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