С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 14

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

01.04.2013, 20:40. Показов 822. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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.

помогите разобрать каждую строчку // коментрарии напишите
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.04.2013, 20:40
Ответы с готовыми решениями:

Комментарии к программе
Необходимы комментарии к программе, в Delphi почти не разбираюсь, так что сам написать их не могу. вот программный код: unit Unit1; ...

Комментарии к программе
Помогите написать комментарии к программе: type fish=(karp,karas,okun,sazan,shuka,som); mnz=set of fish; const n=3; ...

Комментарии в программе
Человек создал батник который копирует некие файлы с компа к себе в директорию. Так вот его палит антивирус. В батнике каждая строчка кода...

8
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
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.
0
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 14
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.
0
01.04.2013, 21:14

Не по теме:

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

1
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
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,
0
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 теряет связку с строками? Помню что там своя специфика диспетчера памяти, но в упор не могу вспомнить где видел описание

0
01.04.2013, 21:35

Не по теме:

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

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

Не по теме:

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

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.04.2013, 22:03
Помогаю со студенческими работами здесь

Комментарии к программе!
Ребят помогите пожалуйста написать комментарии к коду вот этой программы Очень надо!!!

Комментарии к программе
Мальчики, помогите мне пожалуйста. Нашла программу для шифрования методом двойной перестановки. Есть код, знаю как работает, а сами функции...

Комментарии к программе
Необходимо написать комментарии к т.н. Paint. Заранее спасибо. unit Unit1; interface uses Windows, Messages, SysUtils,...

Нужны комментарии к программе
Ребзя, кто может объяснить скрипт программы?

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


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
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-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru