c (cos (i * step + ugol/ 100) * 100); [i]. y: = 150 + trunc (sin (i * step + ugol/100) * 100);;;; TForm1.Button4Click (Sender: TObject); _ver: = true;; TForm1 . Button10Click (Sender: TObject); i, j: Integer;
// очищення гріда: = edit1.Value;: = edit1.Value; i: = 1 to n doj: = 1 to n do.cells [j, i]: = '0 '; . Click;; TForm1.N5Click (Sender: TObject); (0);; TForm1.N2Click (Sender: TObject);
begin.Click;// виклик відкриття з меню
end; TForm1.N3Click (Sender: TObject);
begin.click;// виклик збереження їх меню
end; TForm1.N4Click (Sender: TObject);// новий графi, j: integer;. click;// спочатку очищення гріда
edit1.Value: = 1;// прибираємо зайві рядки і стовпці
label5.Caption: = '';. click;// оновлюємо картінку.Caption: = 'Розмістити місто' + IntToStr (pos +1); i: = 0 to pos-1 doj: = 0 to pos-1 do.Cells [i, j]: = '0 ';. Cells [i, j]: = '0';;; TForm1.StringGrid3KeyPress (Sender: TObject; var Key: Char); (Sender as TStringGrid). col = (Sender as TStringGrid). row// не можна ставити на головне діагоналіkey: = Chr (0); Key of
# 8, '1 ', '0':;// цифри і клавіша key: = Chr (0);// решта символи заборонені
end;; TForm1.Edit1Change (Sender: TObject); i, j: integer;
StringGrid3.ColCount: = edit1.Value +1 ;//при зміні спінбокса потрібно перемалювати матріцу.RowCount: = edit1.Value +1;. ColCount: = edit1.Value +1 ;//при зміні спінбокса потрібно перемалювати матрицю
StringGrid1.RowCount: = edit1.Value +1;: = edit1.Value;
pos: = edit1.Value;
// написи про номери
for i: = 1 to n +1 do.Cells [i, 0]: = inttostr (i);. Cells [0, i]: = inttostr (i);; i: = 1 to n +1 do.Cells [i, 0]: = inttostr (i);. Cells [0, i]: = inttostr (i);; i: = 1 to n doj: = 1 to n doStringGrid3.Cells [j, i] ='' then.cells [j, i]: = '0 ';; i: = 1 to n doj: = 1 to n doStringGrid1.Cells [j, i] ='' then.cells [ j, i]: = '0 ';;. Click;// оновити картінку.Caption: =' Розмістити місто '+ IntToStr (pos +1);;;; TForm1.Image1MouseDown (Sender: TObject; Button: TMouseButton;//після натискання на імаже: TShiftState; X, Y: Integer); button <> mbLeft then// якщо натиснули лівої кнопкой.Popup (Mouse.CursorPos.X, Mouse.CursorPos.y);// показати контекстне меню; TForm1.N7Click (Sender: TObject);. Click;; TForm1.N8Click (Sender: TObject);. Click;; TForm1.N9Click (Sender: TObject);. Click;; TForm1.Button6Click (Sender: TObject); i: integer; i: = 1 to edit1.value do [i]. x: = 0; vers [i]. y: = 0;;. Click;; TForm1.Button7Click (Sender: TObject);: TextFile;, i, k: Integer;: String; (not OpenDialog1.Execute ()) then exit; (f, OpenDialog1.FileName); (f); StringGr...
