Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Joo2014
0 / 0 / 1
Регистрация: 11.04.2016
Сообщений: 73
#1

Блок-схема

18.04.2016, 06:54. Просмотров 211. Ответов 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
Ответы с готовыми решениями:

Блок схема
program Project34; {$APPTYPE CONSOLE} uses SysUtils; var a:array...

Блок схема
Составьте пожалуйста блок-схему для программы...Она печатает номер каждого...

Блок-схема
Помогите пожалуйста составить блок-схему к кодуprocedure...

Блок-схема
Помогите пожалуйста , нужна блок-схема к этому коду. procedure...

блок-схема
Приветик всем помогите плиз зделать по етому вот тексту блоксхему у меня...

1
Joo2014
0 / 0 / 1
Регистрация: 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

блок-схема
помогите составить блок-схему пожалуйста по программе unit Unit1; interface...

блок-схема
пожалуста сделайте блок-схему по программе unit Unit1; interface uses ...

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


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

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

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