Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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-сурет

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.