Комментарии к программе

@семьсантиметров · Регистрация: 25.03.2013

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var i, min, max, s: integer;
begin
Memo1.Lines.Clear; s:= 0;
Memo1.Lines.Add('Xнач = '+Edit1.Text+';');
Memo1.Lines.Add('Xкон = '+Edit2.Text+';');
if StrToInt(Edit1.Text)>StrToInt(Edit2.Text)
then begin max:= StrToInt(Edit1.Text); min:= StrToInt(Edit2.Text);
 end
else begin max:= StrToInt(Edit2.Text); min:= StrToInt(Edit1.Text);
 end;
for i:= min to max do if i>0 then s:= s + i;
Memo1.Lines.Add('Сумма всех положительных элементов = '+IntToStr(s));
end;
 
end.

помогите разобрать каждую строчку // коментрарии напишите

@Тамила · 01.04.2013, 20:58

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var i, min, max, s: integer; //описание целочисленных переменных
begin // начало программы
Memo1.Lines.Clear; // очистка компонента мемо 
s:= 0; // начальное обнуление значения суммы
Memo1.Lines.Add('Xнач = '+Edit1.Text+';'); // добавляем в мемо начальное значение Х из компонента едит1
Memo1.Lines.Add('Xкон = '+Edit2.Text+';'); // добавляем в мемо конечное значение Х из компонента едит2
if StrToInt(Edit1.Text)>StrToInt(Edit2.Text) // сравниваем значения едит1 и едит2, если первое больше, то
then 
 begin 
    max:= StrToInt(Edit1.Text); // максимальным выбираем значение из едит1 
    min:= StrToInt(Edit2.Text); // минимальным выбираем значение из едит2
 end
 else // иначе 
  begin 
     max:= StrToInt(Edit2.Text); // максимальным выбираем значение из едит2 
     min:= StrToInt(Edit1.Text); // минимальным выбираем значение из едит1
 end;
for i:= min to max do // запускаем цикл от минимального элемента до максимального 
if i>0 then s:= s + i; // если i>0 то к сумме прибавляем i, ТУТ СКОРЕЕ ОШИБКА
Memo1.Lines.Add('Сумма всех положительных элементов = '+IntToStr(s)); // по идее планировался вывод конечного значения суммы
end;
 
end.

@семьсантиметров · 01.04.2013, 21:05 **[ТС]**

Тамила,

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
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
  #8,'0'..'9','-':;
  #13:
  if  StringGrid1.Col < StringGrid1.ColCount-1 then
        StringGrid1.Col:=StringGrid1.Col+1;
  else key:=chr(0);
  end;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var sum,i:integer;
begin
Sum:=0;
 
for i:=0 to 9 do
  if StrToInt(StringGrid1.Cells[i,0]) > 0 then
    sum:=sum+StrToInt(StringGrid1.Cells[i,0]);
Label1.Caption:='Symma pologit elementov = '+IntToStr(sum);
end;
 
end.

@cotseec · 01.04.2013, 21:14

Не по теме:

и тут Остапа понесло....

@Тамила · 01.04.2013, 21:19

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); // процедура обработки ввода значений в таблицу
begin // начала работы
case key of // описываем значения в операторе выбора #8-код клавиши бэкспэйс, числа от 0 до 9, -, и #13-код клавиши энтер
#8,'0'..'9','-':;
#13:
if StringGrid1.Col < StringGrid1.ColCount-1 then // увеличение числа ячеек в таблице
StringGrid1.Col:=StringGrid1.Col+1;
else key:=chr(0); // запрет отображения символа
end; 
end;
 
procedure TForm1.Button1Click(Sender: TObject); // обработчик нажатия на кнопку
var sum,i:integer; // описание целочисленных переменных
begin
Sum:=0; // обнуление суммы
 
for i:=0 to 9 do // цикл от 0 до 9
if StrToInt(StringGrid1.Cells[i,0]) > 0 then // если i-ый элемент таблицы больше нуля, то
sum:=sum+StrToInt(StringGrid1.Cells[i,0]); // увеличиваем сумму на значение этого элемента
Label1.Caption:='Symma pologit elementov = '+IntToStr(sum); // выводим значение суммы положительных элементов
end;
 
end.

Добавлено через 37 секунд
cotseec,

@Singleton · 01.04.2013, 21:30

Не по теме:

ну раз тут такая мода отвечать на вопросы, то и мне отсыпте) и прокомментируйте КАЖДУЮ строчку :D

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IniFiles;
 
type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    TreeView1: TTreeView;
    btn1: TButton;
    mmo1: TMemo;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    procedure btn1Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var
  node: TTreeNode;
begin
  node:=TreeView1.Items.Add(nil, edt1.Text);
  node.data:=PChar(edt2.Text);                                                                                   //заменить на '*'
  lbl1.caption:=node.text;                                                                                       //проверка-перестраховка
  lbl2.caption:=string(node.data);
end;
 
 
 
procedure TForm1.TreeView1Click(Sender: TObject);
var
  node: TTreeNode;
begin
  mmo1.Clear;
  node:=TreeView1.Selected;
  if node.Data <> nil then  //если нет Data = заголовок раздела и реакции не будет
  begin
  mmo1.Lines.Add('selected item: ' + IntToStr(TreeView1.Selected.AbsoluteIndex));                                //потом изменить
  mmo1.Lines.Add(node.Text);
  mmo1.Lines.Add(string(node.Data));
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var F:TIniFile;
    i:Integer;
    node: TTreeNode;
begin
  try
  F:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'links.ldb');
    for i:=0 to StrToInt(F.ReadString('config', 'count', ''))-1 do
    begin
      node:=TreeView1.Items.Add(nil, F.ReadString('names', 'name_'+IntToStr(i), ''));
      node.data:=PChar(F.ReadString('links', 'link_'+IntToStr(i), ''));
      if node.Data <> nil then                                                                //вот это
      with TreeView1.Canvas do TreeView1.Canvas.Font.Color:=clRed;                            //не работает
    end;
    F.Free;
  except
    ShowMessage('Не найден links.ldb');
  end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var F:TIniFile;
    i, counter:Integer;
    node: TTreeNode;
begin
  if FileExists('links.ldb') then                      //удалить файл настроек
  if not (DeleteFile('links.ldb')) then                //а стоит ли?                                               ?
  ShowMessage('Не могу перезаписать настройки');
  F:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'links.ldb');   //создать файл с новыми настройками
  counter:=TreeView1.Items.Count;
  if counter>0 then
  begin
    try
      F.WriteString('config', 'count', IntToStr(counter));
      for i:=0 to counter-1 do
      begin
        node:=TreeView1.Items.Item[i];
        F.WriteString('names', 'name_'+IntToStr(i), node.text);
        F.WriteString('links', 'link_'+IntToStr(i), string(node.Data));
      end;
      F.Free;
    except
      ShowMessage('Не могу создать links.ldb');
    end;
  end;
end;
 
procedure TForm1.btn2Click(Sender: TObject);  //свернуть все
begin
  TreeView1.FullCollapse;
end;
 
procedure TForm1.btn3Click(Sender: TObject);  //развернуть все
begin
  TreeView1.FullExpand;
end;
 
procedure TForm1.btn4Click(Sender: TObject);  //удалить выделенный
begin
  try
    TreeView1.Selected.Delete;
  except
    ShowMessage('Не могу удалить');
  end;
end;
 
procedure TForm1.btn5Click(Sender: TObject);  //Добавить подчмненный пункт
var
  node: TTreeNode;
begin
  if TreeView1.Selected.Parent<>nil then ShowMessage('Не выбрана группа') else
  begin
    node:=TreeView1.Items.AddChild(TreeView1.Selected, edt1.Text);
    node.data:=PChar(edt2.Text);
    lbl1.caption:=node.text;                                                                                       //проверка-перестраховка
    lbl2.caption:=string(node.data);
  end;
end;
 
end.

Почему pointer теряет связку с строками? Помню что там своя специфика диспетчера памяти, но в упор не могу вспомнить где видел описание

@volvo · 01.04.2013, 21:35

Не по теме:

noname06, а вот влезать со своим вопросом в чужую тему тут как раз не принято.

@mss · 01.04.2013, 21:37

Потому что копия строки, возвращаемая при чтении строкового значения свойства edt2.Text, перестает существовать, поскольку не существует ни одной ссылки на нее.

@droider · 01.04.2013, 22:03

Не по теме:

семьсантиметров унесенный ветром...

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@cotseec
	01.04.2013, 21:14
	Не по теме: и тут Остапа понесло.... 1

@volvo
	01.04.2013, 21:35
	Не по теме: noname06, а вот влезать со своим вопросом в чужую тему тут как раз не принято. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	01.04.2013, 21:37
	Потому что копия строки, возвращаемая при чтении строкового значения свойства edt2.Text, перестает существовать, поскольку не существует ни одной ссылки на нее. 1

@droider
	01.04.2013, 22:03
	Не по теме: семьсантиметров унесенный ветром... 1