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

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

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

Блок-схема - Delphi

18.04.2016, 06:54. Просмотров 204. Ответов 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
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
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ComCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Edit2: TEdit;
    Edit1: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    GroupBox2: TGroupBox;
    Button2: TButton;
    Edit4: TEdit;
    Edit3: TEdit;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    Button8: TButton;
    Button9: TButton;
 
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown3Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown4Click(Sender: TObject; Button: TUDBtnType);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Full_0(sg:TStringGrid);//заполнение нулями пустых ячеек матирц (заданной StringGrid)
    procedure SG_clear(sg:TStringGrid);//полная очистка ячеек матирц
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
UpDown1Click(Sender, btNext);
UpDown2Click(Sender, btNext);
UpDown3Click(Sender, btNext);
UpDown4Click(Sender, btNext);
Button1Click(Sender);
Button2Click(Sender); 
end;
 
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
 Edit1.Text:=IntToStr(UpDown1.Position);
end;
 
procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
 Edit2.Text:=IntToStr(UpDown2.Position);
end;
 
procedure TForm1.UpDown3Click(Sender: TObject; Button: TUDBtnType);
begin
 Edit3.Text:=IntToStr(UpDown3.Position);
end;
 
procedure TForm1.UpDown4Click(Sender: TObject; Button: TUDBtnType);
begin
 Edit4.Text:=IntToStr(UpDown4.Position);
end;
 
procedure TForm1.SG_clear(sg:TStringGrid);//полная очистка ячеек матирц
var i:integer;
begin
    with sg do
      for i:=0 to ColCount-1 do
        Cols[i].Clear;
end;
 
procedure TForm1.Button5Click(Sender: TObject);      //очистка 1
begin
  SG_clear(StringGrid1);
end;
   
procedure TForm1.Button6Click(Sender: TObject);      //очистка 2
begin
  SG_clear(StringGrid2);
end;
 
procedure TForm1.Button7Click(Sender: TObject);      //очистка 3
begin
  SG_clear(StringGrid3);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);     //задать размерность 1
begin
StringGrid1.RowCount:= StrToInt(Edit1.Text);
StringGrid1.ColCount:= StrToInt(Edit2.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);     //задать размерность 2
begin
StringGrid2.RowCount:= StrToInt(Edit3.Text);
StringGrid2.ColCount:= StrToInt(Edit4.Text);
end;
 
procedure TForm1.Full_0(sg:TStringGrid);//заполнение нулями пустых ячеек матирц 1 и 2
var i,j:integer;
begin
    for i:=0 to sg.RowCount-1 do
      for j:=0 to sg.ColCount-1 do
          if sg.Cells[j,i]='' then   sg.Cells[j,i]:='0';
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);//Сложение
var i,j:integer;
begin
Full_0(StringGrid1);//заполнение нулями пустых ячеек матирц
Full_0(StringGrid2);//заполнение нулями пустых ячеек матирц
if  (StringGrid1.ColCount=StringGrid2.ColCount) and (StringGrid1.RowCount=StringGrid2.RowCount)  then
  begin
    StringGrid3.RowCount:=StringGrid1.RowCount;
    StringGrid3.ColCount:= StringGrid1.ColCount;
    for j:=0 to StringGrid1.ColCount-1 do
        for i:=0 to StringGrid1.RowCount-1 do
           begin
               StringGrid3.Cells[i,j]:=IntToStr(StrToInt(StringGrid1.Cells[i,j])+StrToInt(StringGrid2.Cells[i,j]));
           end;
  end else ShowMessage('Размерности не совпадают!!!');
end;
 
procedure TForm1.Button8Click(Sender: TObject);  //Вычитание
var i,j:integer;
begin
Full_0(StringGrid1);//заполнение нулями пустых ячеек матирц
Full_0(StringGrid2);//заполнение нулями пустых ячеек матирц
if  (StringGrid1.ColCount=StringGrid2.ColCount) and (StringGrid1.RowCount=StringGrid2.RowCount)  then
  begin
    StringGrid3.RowCount:=StringGrid1.RowCount;
    StringGrid3.ColCount:= StringGrid1.ColCount;
    for j:=0 to StringGrid1.ColCount-1 do
        for i:=0 to StringGrid1.RowCount-1 do
           begin
               StringGrid3.Cells[i,j]:=IntToStr(StrToInt(StringGrid1.Cells[i,j])-StrToInt(StringGrid2.Cells[i,j]));
           end;
  end else ShowMessage('Размерности не совпадают!!!');
end;
 
procedure TForm1.Button3Click(Sender: TObject);     //умножение
var i,j,k,Sum:integer;
begin
Full_0(StringGrid1);//заполнение нулями пустых ячеек матирц
Full_0(StringGrid2);//заполнение нулями пустых ячеек матирц
if  (StringGrid1.ColCount=StringGrid2.RowCount) then
  begin
    StringGrid3.RowCount:=StringGrid1.RowCount;
    StringGrid3.ColCount:= StringGrid2.ColCount;
 
 
    for i:=0 to StringGrid3.RowCount-1 do
        for j:=0 to StringGrid3.ColCount-1 do
           begin
              Sum:=0;
              for k:=0 to StringGrid1.ColCount-1 do
               Sum:=Sum+StrToInt(StringGrid1.Cells[k,i])*StrToInt(StringGrid2.Cells[j,k]);
               StringGrid3.Cells[j,i]:=IntToStr(Sum);
           end;
  end else ShowMessage('Количество столбцов 1-ой матрицы не равно количеству строк 2-ой матрицы');
 
end;
 
 
 
 
 
 
 
procedure TForm1.Button9Click(Sender: TObject);
begin
Form2.ShowModal;
end;
 
end.
форма 2:
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
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids, ExtCtrls;
 
type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid3: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button3Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
    kol: integer;
  obr: array[0..300, 0..300] of real;
 
implementation
 
{$R *.dfm}
procedure Obratis;
var k, i, j: integer;
    b: array[0..300, 0..300] of real;
begin
 for k:=0 to kol - 1 do
 begin
      for i:=0 to kol - 1 do
       for j:=0 to kol - 1 do
       begin
            if (i=k) and (j=k) then
               b[i,j] := 1/obr[i,j];
               if (i=k) and (j<>k) then
                  b[i,j] := -obr[i,j]/obr[k,k];
               if (i<>k) and (j=k) then
                  b[i,j] := obr[i,k]/obr[k,k];
               if (i<>k) and (j<>k) then
                  b[i,j] := obr[i,j] - obr[k,j] * obr[i,k]/obr[k,k];
       end;
      for i:= 0 to kol - 1 do
       for j:= 0 to kol - 1 do obr[i, j]:= b[i, j];
 end;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
Form2.Close; // exit;
end;
 
procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
 kol:= SpinEdit1.Value;
 StringGrid3.ColCount:= kol;
 StringGrid3.RowCount:= kol;
 StringGrid2.ColCount:= kol;
 StringGrid2.RowCount:= kol;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var i, j: integer;
begin
 randomize;
 for i:= 0 to kol - 1 do
  for j:= 0 to kol - 1 do
    StringGrid3.Cells[i, j]:= IntToStr(random(100) - 50);
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var i, j: integer;
    i1, j1: integer;
begin
 i1:= 1;
 j1:= 1;
 try
  for i:= 0 to kol - 1 do
    for j:= 0 to kol - 1 do
    begin
      i1:= i;
      j1:= j;
      obr[i, j]:= StrToFloat(StringGrid3.Cells[j, i]);
    end;
 except
  ShowMessage('Ошибка при вводе числа в столбце ' + IntToStr(j1 + 1) + ' строке ' + IntToStr(i1 + 1) + '!');
  exit;
 end;
 
 Obratis;
 for i:= 0 to kol - 1 do
  for j:= 0 to kol - 1 do
    StringGrid2.Cells[i, j]:= FloatToStr(Round(1000*obr[j, i])/1000);
end;
 
end.
Готовлюсь к курсовой. Какие основные операции в программе?
Кто чем может - помогите:c
0
Вложения
Тип файла: rar программа.rar (210.2 Кб, 0 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2016, 06:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Блок-схема (Delphi):

блок схема - Delphi
Помогите со ставлением блок схемы var i,j:integer; jmax:integer; sum,max:real; begin max:=0; //пусть макс. сумма пока=0 ...

Блок-схема - Delphi
Добрый вечер, помогите пожалуйста составить к данному коду блок схему. procedure TForm1.Pattern(n,x,y,b:integer;f:real); var ...

Блок схема - Delphi
Добрый день форумчане,никогда не дружил с блок-схемами,нужна небольшая помощь. Составить блок-схему для данного фрагмента программы. ...

Блок-схема - Delphi
Привет! Есть программа считывает данные из файла в динамический массив, затем удаляет первый элемент. Как составить...

блок схема - Delphi
нужна блок схема к этим задачам Задача 1: Даны действительные числа А,B,C. Большее из них возвести в квадрат, среднее - в куб,...

блок-схема - Delphi
пожалуста сделайте блок-схему по программе unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...

1
Joo2014
0 / 0 / 0
Регистрация: 11.04.2016
Сообщений: 73
23.04.2016, 10:47  [ТС] #2
Ап:c
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2016, 10:47
Привет! Вот еще темы с ответами:

Блок-схема - Delphi
Ребята сделайте функциональную блок-схему к етом коду,или подскажите как можно сделать.Кто сделает одблагодарю! unit Game; ...

Блок-схема - Delphi
Помогите нарисовать блок-схему unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

блок-схема - Delphi
помогите составить блок-схему пожалуйста по программе unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

блок схема - Delphi
составьте пожалуйста блок схему на эту задачку (((..я думала думала не получаеться ничего((...Два отрезка АВ и CD на плоскости заданы...


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

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

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