Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Form3.Show;
|
|
End;
380. procedure TForm1.Button5Click(Sender: TObject);
Begin
Form4.Show;
End;
384. procedure TForm1.N7Click(Sender: TObject);
Begin
Close;
End;
388. procedure TForm1.N2Click(Sender: TObject);
Begin
Form5.Show;
End;
392. procedure TForm1.N3Click(Sender: TObject);
Begin
Form3.Show;
End;
396. procedure TForm1.N4Click(Sender: TObject);
Begin
Form4.Show;
End;
400. procedure TForm1.N9Click(Sender: TObject);
401. var i, j: integer;
Begin
403. for i: =1 to n do
404. for j: =1 to m do
405. StringGrid1.Cells[j, i]: ='';
End;
407. procedure TForm1.N8Click(Sender: TObject);
Begin
ReadFromFile(InFile, a);
410. b: =a;
411. fh: =copy(opendialog1.FileName, 1, length(opendialog1.FileName)-3)+'.out';
Assignfile(f, fh);
Rewrite(f);
WriteToGrid(b);
End;
416. procedure TForm1.N6Click(Sender: TObject);
Begin
If Not(NoZero(b)) Then
Begin
Inc(k)
421. ia[k]: =strtoint(Edit3.Text);
422. ja[k]: =strtoint(Edit4.Text);
423. Edit2.Text: =Inttostr(k);
FindEl0(b, i, j);
425. i: =ia[k];
426. j: =ja[k];
Writetofile(b, i, j);
Jordan(b, i, j, 0);
DelCol(b, j);
WriteToGrid(b);
End Else
If Not(NoTirek(b)) Then
Begin
Inc(k);
435. ia[k]: =strtoint(Edit3.Text);
436. ja[k]: =strtoint(Edit4.Text);
437. Edit2.Text: =Inttostr(k);
FindEl1(b, i, j);
439. i: =ia[k];
440. j: =ja[k];
Writetofile(b, i, j);
Jordan(b, i, j, 1);
WriteToGrid(b);
End Else
If Not(NoOptimal(b)) Then
Begin
Inc(k);
448. ia[k]: =strtoint(Edit3.Text);
449. ja[k]: =strtoint(Edit4.Text);
450. Edit2.Text: =Inttostr(k);
FindEl2(b, i, j);
452. i: =ia[k];
453. j: =ja[k];
Writetofile(b, i, j);
Jordan(b, i, j, 1);
WriteToGrid(b);
End Else
Begin
459. MessageDlg('Оптималды шешiм табылды! ', mtInformation, [mbOk], 0);
Writetofile(b, 0, 0);
Closefile(f);
462. Form2.Visible: =true;
End;
End;
End.
Қ осымша Ә
1-сурет
2-сурет
3-сурет
4-сурет
5-сурет
6-сурет
7-сурет