![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Form3.Show; ⇐ ПредыдущаяСтр 4 из 4
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-сурет
|