Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Misha0736
0 / 0 / 0
Регистрация: 12.11.2011
Сообщений: 27
#1

Найти сумму элементов нижнего треугольника - Delphi

01.06.2017, 13:22. Просмотров 138. Ответов 17
Метки нет (Все метки)

В программе необходимо найти сумму элементов нижнего треугольника массива 8х8.
Вот код. В ответе выдает неправильное значение. Подскажите пожалуйста.
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
unit Unit7;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  n=8;
var
  Form1: TForm1;
  a:array[1..n,1..n] of integer;
  i,j,s:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(2);
with strngrd1 do
begin
  ColCount:=n+1;
  RowCount:=n+1;
  for i:=1 to n do
  for j:=1 to n do
  begin
    Cells[i,j]:=IntToStr(a[i,j]);
  end;
end;
s:=0;
For i:=n mod 2 + n div 2 To n Do
  For j:=n-i+1 To i Do s:=s+a[i, j];
lbl1.Caption:=IntToStr(s);
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2017, 13:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти сумму элементов нижнего треугольника (Delphi):

Найти сумму нижнего треугольника - Delphi
Народ, помогите с delphi, нужно найти сумму нижнего треугольника. Вот сам программный код: unit Unit1; interface uses ...

Матрица: найти сумму нижнего треугольника включая главную диагональ - Delphi
Можете написать часть кода, где находится сумма нижнего треугольника включая главную диагональ?

В заданном массиве найти сумму всех четных элементов, или сумму элементов, кратных заданному числу - Delphi
В заданном массиве S найти сумму всех четных элементов массива или сумму элементов, кратных заданному числу

Используя аналогию с шахматной доской, найти сумму белых и сумму черных элементов матрицы - Delphi
создать матрицу a(13x13) случайных чисел в диапазоне от -60 до +60.Используя аналогию с шачматной доской, найти сумму белых и сумму черных...

Векторы. Найти сумму их минимальных и сумму их максимальных элементов - Delphi
Здравствуйте! Начал впервые разбираться в процедурах. Навертел всякую ерунду. Пожалуйста, помогите подправить код. Знаю, что там много...

Известна гипотенуза и прилежащий угол прямоугольного треугольника. Найти площадь треугольника - Delphi
Нужна ваша помощь, завтра экзамен :с Разработать программу, для которой создать интерфейс, соответствующий условию: Известна гипотенуза и...

17
Misha0736
0 / 0 / 0
Регистрация: 12.11.2011
Сообщений: 27
02.06.2017, 17:42  [ТС] #16
Да, я убрал равно,просто скопировал не то,но ответ не сходится

Добавлено через 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
unit Unit7;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  n=8;
var
  Form1: TForm1;
  a:array[1..n,1..n] of integer;
  i,j,s:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
s:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=random(2);
  if (i>n div 2)and(j<=i)and(j>=n-i+1) then s:=s+a[i,j];
 end;
with strngrd1 do
begin
  ColCount:=n+1;
  RowCount:=n+1;
  for i:=1 to n do
  for j:=1 to n do
  begin
    Cells[i,j]:=IntToStr(a[i,j]);
  end;
end;
lbl1.Caption:=IntToStr(s);
end;
end.
0
Puporev
Модератор
52431 / 40278 / 13611
Регистрация: 18.05.2008
Сообщений: 93,123
02.06.2017, 18:54 #17
Вот держи. Сам-то считать до 20 умеешь?
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
var
  Form1: TForm1;
  k:byte;
const n=8;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
randomize;
s:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=random(2);
  if (i>n div 2)and(j<=i)and(j>=n-i+1) then s:=s+a[i,j];
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
Label1.Caption:='Сумма в нижнем треугольнике='+inttostr(s);
k:=1;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i,j:integer;
begin
if k=1 then
 begin
  for i:=1 to n do
  for j:=1 to n do
  if(ARow>n div 2-1)and(ACol<=ARow)and(ACol>=n-ARow-1) then
  with StringGrid1.Canvas do
  begin
   Brush.Color:=clYellow;
   FillRect(Rect);
   TextOut(Rect.Left+4,Rect.Top+4,StringGrid1.Cells[ACol,ARow]);
  end;
 end;
end;
0
Вложения
Тип файла: rar 111.rar (185.5 Кб, 1 просмотров)
Misha0736
0 / 0 / 0
Регистрация: 12.11.2011
Сообщений: 27
02.06.2017, 19:36  [ТС] #18
Большое спасибо
0
02.06.2017, 19:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2017, 19:36
Привет! Вот еще темы с ответами:

Найти сумму всех элементов массива, кроме элементов с номером от K до L включительно. - Delphi
Добрый день. В делфи=&gt; Дан массив размера N и целые числа K и L (1 &lt; K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно - Delphi
Дан массив размера N и целые числа K и L (1&lt;K≤L≤N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно. ...

Найти среднее арифметическое матрицы, сумму элементов, количество целых элементов - Delphi
Здравствуйте, помогите пожалуйста с кодом... Дан массив а заполненный случайными числами из диапазона -5 до 5 ( вещественные). Вывести...

Найти сумму вещественных элементов массива, которые больше по абсолютному значению предыдущих им элементов - Delphi
Всем привет, помогите решить данную задачу. Или подскажите, как сравнивать в массиве элементы между собой. Найти сумму вещественных...


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

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

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