‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы
Delphi дл€ начинающих
¬ойти
–егистраци€
¬осстановить пароль
 
Knopik
0 / 0 / 0
–егистраци€: 12.11.2017
—ообщений: 3
1

 урсова€ "—Ћј” метод √аусса"

25.05.2010, 19:29. ѕросмотров 1149. ќтветов 0
ћетки нет (¬се метки)

ѕомогите из этого исходника убрать вывод пошагового решени€:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, Buttons, XPMan;
 
const
 n=100;
type
 mas  = array[1..n,1..n+1] of double;
 vec  = array[1..n] of double;
 
 
  TForm1 = class(TForm)
    Memo1: TMemo;
    PageControl1: TPageControl;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    XPManifest1: TXPManifest;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    procedure LoadMatrixFromGrid(Grid: TStringGrid; var a: mas);
    procedure j_gaussa(n: integer; a: mas; var x: vec);
    { Private declarations }
  public
    { Public declarations }
  end;
 
 var
 Form1: TForm1;
 
  implementation
   {$R *.dfm}
 
procedure TForm1.j_gaussa(n:integer;a:mas;var x:vec);
  var
  b: Double;
  Tab: TTabSheet;
  str, str2: string;
  StepGrid: TStringGrid;
  StepMemo: TMemo;
  gi,gj: integer;
  i, j, k : integer;
 begin
 for k:=1 to n do
  begin
   b:=a[k,k];
 
   Tab := TTabSheet.Create(PageControl1);
   Tab.PageControl := PageControl1;
   Tab.Caption := '√Ш√*√£ '+intToStr(k);
 
   str := IntToStr(k)+'-√Њ √±√≤√∞√Ѓ√™√≥ √∞√*√І√§√•√Ђ√®√ђ √*√* '+ FormatFloat('0.00',b);
   StepMemo := TMemo.Create(Tab);
   StepMemo.Parent := Tab;
   StepMemo.Top := 10;
   StepMemo.Left := 10;
   StepMemo.Width := Tab.Width - 20;
   StepMemo.Height := 50;
 
   for j:=1 to n+1 do a[k,j]:=a[k,j]/b;
   for i:=1 to n do
    if i<>k then
     begin
      b:= a[i,k] * -1;
      str2 := FormatFloat('0.00',b);
      str := str + ', √≥√ђ√*√Ѓ√¶√®√ђ √*√* '+str2+' √® √ѓ√∞√®√°√*√Ґ√®√ђ √™ '+IntToStr(i)+'-√©';
      for j:=1 to n+1 do a[i,j] := a[i,j]+a[k,j]*b;
     end;
 
  StepMemo.Lines.Add(str);
  StepGrid := TStringGrid.Create(Tab);
  StepGrid.Parent := Tab;
  StepGrid.FixedCols := 0;
  StepGrid.FixedRows := 0;
  StepGrid.Left := 0;
  StepGrid.Height := 130;
  StepGrid.Width := 400;
  StepGrid.ColCount := StringGrid1.ColCount;
  StepGrid.RowCount := StringGrid1.RowCount;
  StepGrid.Top := Tab.Height - StepGrid.Height;
 
  for gi := 0 to  n-1 do
  for gj := 0 to n + 1-1 do StepGrid.Cells[gj,gi] := FormatFloat('0.00', a[gi+1,gj+1]);
 
 end;
 
 for i:=1 to n do x[i] := a[i,n+1];
 end;
 
procedure TForm1.LoadMatrixFromGrid(Grid: TStringGrid; var a: mas);
var
 i, j: integer;
begin
 for i := 0 to Grid.RowCount - 1 do
   for j := 0 to Grid.ColCount - 1 do
   begin
     if Grid.Cells[j,i] = '' then Grid.Cells[j,i] := '0';
     a[i+1,j+1] := StrToFloat(Grid.Cells[j,i]);
   end;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i, j: integer;
begin
for i := 0 to StringGrid1.RowCount - 1 do
   for j := 0 to StringGrid1.ColCount - 1 do StringGrid1.Cells[j,i] := '';
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
 i: integer;
 x: vec;
 matrix: mas;
begin
while (PageControl1.PageCount > 0) do PageControl1.ActivePage.Free;
 
LoadMatrixFromGrid(StringGrid1,matrix);
j_gaussa(StringGrid1.RowCount, matrix, x);
 
Memo1.Lines.Clear;
for i:=1 to StringGrid1.RowCount do   Memo1.Lines.Add('x['+IntToStr(i)+']='+ FormatFloat('0.00', x[i]));
end;
 
procedure TForm1.BitBtn3Click(Sender: TObject);
var
 Size: integer;
begin
Size := StrToInt(Edit1.Text);
StringGrid1.ColCount := Size + 1;
StringGrid1.RowCount := Size;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin   
 Memo1.Clear;
end;
 
end.
P.S. ≈сли можно, то с коментари€ми. ќчень нужно в ближайшие дни. ѕомогите плз
0
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
25.05.2010, 19:29
ќтветы с готовыми решени€ми:

¬ каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
¬ каждом слове текста замените &quot;а&quot; на букву &quot;е&quot;, если &quot;а&quot; стоит на четном...

»з слов "–абота", "крест", "тон" составить фразу " то не работает, тот не ест" и определить ее длину
»з слова &quot;–абота&quot;,&quot;крест&quot;,&quot;тон&quot; составить фразу:&quot; то не работает, тот не ест&quot; и...

Ќа форме располагаютс€ компоненты: редактор Edit; линейка ScrollBar; радионабор с опци€ми "÷веты", "ƒеревь€", "–ыбы", "«вери"
ƒоброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал...

“ыс€чные числа исправл€ть к примеру с "1200" на "1 200", "12000" на "12 000" и т.д
—обственно числа исправл€ть к примеру с &quot;1200&quot; на &quot;1 200&quot;, &quot;12000&quot; на &quot;12 000&quot;,...

»гра "—бей самолЄт". √ќ–»“  ”–—ќ¬јя!
–еб€т, у мен€ совсем проста€ проблема.. € делаю игру &quot;сбей самолЄт&quot;. мои...

0
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
25.05.2010, 19:29

¬ слове ’ перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"
ѕривет всем) вот условие задачи:¬ слове ’ перед каждой буквой &quot;к&quot;, которой...

 урсова€ работа: "ћозаика"
не могли бы объ€снить как делать по подробнее желательно пожалуйста

ƒана строка. «аменить все буквы "м" на "н". «аменить все вхождени€ сочетаний букв "про" на "нет"
2.ƒана строка. 1) «аменить все буквы м на н. 2) «аменить все вхождени€...


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

»ли воспользуйтесь поиском по форуму:
1
ќтвет —оздать тему
ќпции темы

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