Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 6 130

Раздел: Лабораторный практикум » Delphi
/ вопрос открыт /

Здравствуйте!)
Мне нужна помощь в понимании программы в Дэлфи! Необходимо прокоментировать листинг программы! Чем больше строчек прокоментируете, тем больше поможете!
Буду очень-очень благодарна!=\

Большое спасибо!)

Приложение:
  1. unit AffinPlaneUnit_v;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, ComCtrls, StdCtrls, ExtCtrls, Spin, Buttons,Math;
  6. type
  7. // Matrix= array[0..2,0..2] of real ;//integer;
  8. // Stroka= array[0..2] of real;
  9. Stroka= array[0..2] of extended;
  10. Matrix= array[0..2] of stroka;
  11. AP=array[1..3] of extended;
  12. MAP=array[1..3] of AP;
  13. TAffinPlaneForm = class(TForm)
  14. GroupBox1: TGroupBox;
  15. MainImage: TImage;
  16. LocGrBox: TGroupBox;
  17. X0Lbl: TLabel;
  18. Y0Lbl: TLabel;
  19. X0Edit: TEdit;
  20. Y0Edit: TEdit;
  21. X0UpDown: TUpDown;
  22. Y0UpDown: TUpDown;
  23. RotGB: TGroupBox;
  24. BoxModify: TComboBox;
  25. GrPoly: TGroupBox;
  26. Lcord1: TLabel;
  27. Lcord2: TLabel;
  28. Lcord3: TLabel;
  29. Lcord4: TLabel;
  30. Lcord5: TLabel;
  31. Lcord6: TLabel;
  32. Lcord7: TLabel;
  33. Lcord8: TLabel;
  34. Sx1: TSpinEdit;
  35. Sy1: TSpinEdit;
  36. Sx2: TSpinEdit;
  37. Sy2: TSpinEdit;
  38. Sx3: TSpinEdit;
  39. Sy3: TSpinEdit;
  40. Sx4: TSpinEdit;
  41. Sy4: TSpinEdit;
  42. RotateSpin: TSpinEdit;
  43. GrRel: TRadioGroup;
  44. ScaleGB: TGroupBox;
  45. KXSpin: TSpinEdit;
  46. KYSpin: TSpinEdit;
  47. Label3: TLabel;
  48. Label4: TLabel;
  49. MirGB: TGroupBox;
  50. OXCB: TCheckBox;
  51. OYCB: TCheckBox;
  52. ShiftGB: TGroupBox;
  53. KxShiftSpin: TSpinEdit;
  54. KyShiftSpin: TSpinEdit;
  55. Label1: TLabel;
  56. Label2: TLabel;
  57. Button5: TButton;
  58. Label5: TLabel;
  59. Label6: TLabel;
  60. Button1: TButton;
  61. procedure ReNew();
  62. procedure FormCreate(Sender: TObject);
  63. function MMul(A:Matrix;X:Stroka):Stroka;
  64. procedure Move(Add:integer=0);
  65. function Trans(M:Matrix):Matrix;
  66. procedure Rotate(Add:integer=0);
  67. procedure BoxModifyChange(Sender: TObject);
  68. procedure Y0UpDownClick(Sender: TObject; Button: TUDBtnType);
  69. procedure GrRelClick(Sender: TObject);
  70. procedure Scale();
  71. procedure Mirror();
  72. procedure Shift();
  73. procedure Sx1Change(Sender: TObject);
  74. procedure Button5Click(Sender: TObject);
  75. procedure Button6Click(Sender: TObject);
  76. procedure Button1Click(Sender: TObject);
  77. // procedure Button6Click(Sender: TObject);
  78. // procedure Button6Click(Sender: TObject);
  79. private
  80. { Private declarations }
  81. public
  82. { Public declarations }
  83. end;
  84. var
  85. AffinPlaneForm: TAffinPlaneForm;
  86. S1,S2:Stroka;
  87. Fig: stroka;
  88. Coord: array[0..3] of stroka;
  89. Beg: array[0..3] of stroka;
  90. const
  91. One:matrix=((1,0,0),(0,1,0),(0,0,1));
  92. implementation
  93. {$R *.dfm}
  94. procedure TAffinPlaneForm.ReNew();
  95. var
  96. dl: integer;
  97. hi,i: integer;
  98. jk:integer;
  99. begin
  100. dl := MainImage.Width;
  101. hi := MainImage.Height;
  102. i := 0;
  103. with MainImage.Canvas do
  104. begin
  105.  
  106. Rectangle(0,0,MainImage.ClientWidth+1,MainImage.ClientHeight+1);
  107. Brush.Style := bsClear;
  108.  
  109. Pen.Color := clMoneyGreen;
  110. while (i<dl-1) do
  111. begin
  112. MoveTo(i,0);
  113. LineTo(i,402);
  114. i := i + 10;
  115. end;
  116. i := 0;
  117. while (i<hi-1) do
  118. begin
  119. MoveTo(0,i);
  120. LineTo(402,i);
  121. i := i + 10;
  122. end;
  123. Pen.Color := clMaroon;
  124. Pen.Style := psSolid;
  125.  
  126. MoveTo(201,0);
  127. LineTo(201,402);
  128. MoveTo(0,201);
  129. LineTo(402,201);
  130.  
  131. MoveTo(201,0);
  132. LineTo(198,10);
  133. MoveTo(201,0);
  134. LineTo(204,10);
  135. TextOut(210,1,'y');
  136.  
  137. MoveTo(402,201);
  138. LineTo(392,198);
  139. MoveTo(402,201);
  140. LineTo(392,204);
  141. TextOut(393,201,'x');
  142.  
  143. Pen.Color := clHotLight;
  144. Brush.Style := bsClear;
  145. MoveTo(Trunc(Sx1.Value + 201),Trunc(-Sy1.Value + 201));
  146. LineTo(Trunc(Sx2.Value + 201),Trunc(-Sy2.Value + 201));
  147. LineTo(Trunc(Sx3.Value + 200),Trunc(-Sy3.Value + 201));
  148. LineTo(Trunc(Sx4.Value + 200),Trunc(-Sy4.Value + 201));
  149. LineTo(Trunc(Sx1.Value + 201),Trunc(-Sy1.Value + 201));
  150. for i:=0 to 3 do
  151. TextOut(TSpinEdit(GrPoly.FindChildControl('Sx'+IntToStr(i+1))).Value + 201,-TSpinEdit(GrPoly.FindChildControl('Sy'+IntToStr(i+1))).Value+201,IntToStr(TSpinEdit(GrPoly.FindChildControl('Sx'+IntToStr(i+1))).Value)+';'+IntToStr(TSpinEdit(GrPoly.FindChildControl('Sy'+IntToStr(i+1))).Value));
  152. if GrRel.ItemIndex=1 then
  153. begin
  154. Pen.Color := clWhite;
  155. MoveTo(0,201-StrToInt(Y0Edit.Text)-1);
  156. LineTo(402,201-StrToInt(Y0Edit.Text)-1);
  157. MainImage.Canvas.Pen.Color := clGreen;
  158. MoveTo(0,201-StrToInt(Y0Edit.Text));
  159. LineTo(402,201-StrToInt(Y0Edit.Text));
  160. MainImage.Canvas.Pen.Color := clWhite;
  161. MoveTo(201+StrToInt(X0Edit.Text)-1,0);
  162. LineTo(201+StrToInt(X0Edit.Text)-1,402);
  163. MainImage.Canvas.Pen.Color := clGreen;
  164. MoveTo(201+StrToInt(X0Edit.Text),0);
  165. LineTo(201+StrToInt(X0Edit.Text),402);
  166. end;
  167. Pen.Color := clRed;
  168. Brush.Style := bsClear;
  169. MoveTo(Trunc(Coord[0,0] + 201),Trunc(-Coord[0,1] + 201));
  170. LineTo(Trunc(Coord[1,0] + 201),Trunc(-Coord[1,1] + 201));
  171. LineTo(Trunc(Coord[2,0] + 200),Trunc(-Coord[2,1] + 201));
  172. LineTo(Trunc(Coord[3,0] + 200),Trunc(-Coord[3,1] + 201));
  173. LineTo(Trunc(Coord[0,0] + 201),Trunc(-Coord[0,1] + 201));
  174. Brush.Color:=clMaroon;
  175. for i:=0 to 3 do
  176. Ellipse(Trunc(Coord[i,0] + 199),Trunc(-Coord[i,1] + 199),Trunc(Coord[i,0] + 203),Trunc(-Coord[i,1] + 203));
  177. Brush.Style := bsClear;
  178. for i:=0 to 3 do
  179. TextOut(Trunc(Coord[i,0] + 201),Trunc(-Coord[i,1] + 201),IntToStr(Trunc(Coord[i,0]))+';'+IntToStr(Trunc(Coord[i,1])));
  180. end;
  181. end;
  182. procedure TAffinPlaneForm.FormCreate(Sender: TObject);
  183. var
  184. i: integer;
  185. begin
  186. for i:=0 to 3 do
  187. begin
  188. Coord[i,0] := TSpinEdit(GrPoly.FindChildControl('Sx'+intToStr(i+1))).Value;
  189. Coord[i,1] := TSpinEdit(GrPoly.FindChildControl('Sy'+intToStr(i+1))).Value;
  190. Coord[i,2] := 1;
  191. Beg[i,0] := TSpinEdit(GrPoly.FindChildControl('Sx'+intToStr(i+1))).Value;
  192. Beg[i,1] := TSpinEdit(GrPoly.FindChildControl('Sy'+intToStr(i+1))).Value;
  193. Beg[i,2] := 1;
  194. end;
  195. ReNew();
  196. end;
  197. function TAffinPlaneForm.Trans(M:Matrix):Matrix;
  198. var
  199. Temp : Matrix;
  200. i,j: integer;
  201. begin
  202. Temp := M;
  203. for i:=0 to 2 do
  204. for j:=0 to 2 do
  205. M[j,i] := Temp[i,j];
  206. Result := M;
  207. end;
  208. function TAffinPlaneForm.MMul(A:Matrix;X:Stroka):Stroka;
  209. var
  210. Res:stroka;
  211. i,j:integer;
  212. begin
  213. for i:=0 to 2 do
  214. Res[i]:=0;
  215. for j:=0 to 2 do
  216. for i:=0 to 2 do
  217. Res[j]:=Res[j]+A[i][j]*X[i];
  218. Result:=Res;
  219. end;
  220. procedure TAffinPlaneForm.Move(Add:integer=0);
  221. var
  222. i:integer;
  223. A:matrix;
  224. begin
  225. A:=One;
  226. if Add=0 then
  227. begin
  228. A[0,2] := StrToInt(X0edit.Text);
  229. A[1,2] := StrToInt(Y0edit.Text);
  230. end
  231. else
  232. begin
  233. A[0,2] := -StrToInt(X0edit.Text);
  234. A[1,2] := -StrToInt(Y0edit.Text);
  235. end ;
  236. A := Trans(A);
  237. for i:=0 to 3 do
  238. if GrRel.ItemIndex=1 then
  239. Coord[i]:=MMul(A,Coord[i])//Beg[i]);
  240. else
  241. Coord[i]:=MMul(A,Beg[i]);
  242. end;
  243. procedure TAffinPlaneForm.Rotate(Add:integer=0);
  244. var
  245. i:integer;
  246. A:Matrix;
  247. begin
  248. A:=One;
  249. A[0][0]:=cos(DegToRad(RotateSpin.Value));
  250. A[0][1]:=-sin(DegToRad(RotateSpin.Value));
  251. A[1][0]:=sin(DegToRad(RotateSpin.Value));
  252. A[1][1]:=cos(DegToRad(RotateSpin.Value));
  253. A := Trans(A);
  254. if GrRel.ItemIndex=1 then
  255. Move(1);
  256. for i:=0 to 3 do
  257. Coord[i]:=MMul(A,Coord[i]);
  258. if GrRel.ItemIndex=1 then
  259. Move();
  260. end;
  261. procedure TAffinPlaneForm.Scale();
  262. var
  263. i:integer;
  264. A:Matrix;
  265. begin
  266. A:=One;
  267. A[0][0]:= KXSpin.Value*0.1;
  268. A[1][1]:= KYSpin.Value*0.1;
  269. A := Trans(A);
  270. if GrRel.ItemIndex=1 then
  271. Move(1);
  272. for i:=0 to 3 do
  273. Coord[i]:=MMul(A,Coord[i]);
  274. if GrRel.ItemIndex=1 then
  275. Move();
  276. end;
  277. procedure TAffinPlaneForm.Mirror();
  278. var
  279. i:integer;
  280. A:Matrix;
  281. begin
  282. A:=One;
  283. if OXCB.Checked then
  284. A[0][0]:=-1;
  285. if OYCB.Checked then
  286. A[1][1]:=-1;
  287. A := Trans(A);
  288. if GrRel.ItemIndex=1 then
  289. Move(1);
  290. for i:=0 to 3 do
  291. Coord[i]:=MMul(A,Coord[i]);
  292. if GrRel.ItemIndex=1 then
  293. Move();
  294. end;
  295. procedure TAffinPlaneForm.Shift();
  296. var
  297. i:integer;
  298. A: Matrix;
  299. begin
  300. A:=One;
  301. A[0][1]:=KxShiftSpin.Value*0.1;
  302. A[1][0]:=KyShiftSpin.Value*0.1;
  303. A := Trans(A);
  304. if GrRel.ItemIndex=1 then
  305. Move(1);
  306. for i:=0 to 3 do
  307. Coord[i]:=MMul(A,Coord[i]);
  308. if GrRel.ItemIndex=1 then
  309. Move();
  310. end;
  311. procedure TAffinPlaneForm.BoxModifyChange(Sender: TObject);
  312. var
  313. i:integer;
  314. begin
  315. ReNew();
  316. RotateSpin.Value := 0;
  317. for i:=0 to 3 do
  318. Beg[i] := Coord[i];
  319. GrRel.ItemIndex := 0;
  320. case BoxModify.ItemIndex of
  321. 0: begin
  322. LocGrBox.Enabled := True;
  323. RotGB.Enabled := False;
  324. GrRel.ItemIndex := 0;
  325. GrRel.Enabled := False;
  326. ScaleGB.Enabled := False;
  327. MirGB.Enabled := False;
  328. ShiftGB.Enabled := False;
  329. MainImage.Canvas.Pen.Color := clWhite;
  330.  
  331. MainImage.Canvas.MoveTo(0,201-StrToInt(Y0Edit.Text));
  332. MainImage.Canvas.LineTo(402,201-StrToInt(Y0Edit.Text));
  333. MainImage.Canvas.MoveTo(201+StrToInt(X0Edit.Text),0);
  334. MainImage.Canvas.LineTo(201+StrToInt(X0Edit.Text),402);
  335. ReNew();
  336. //
  337. end;
  338. 1: begin
  339. LocGrBox.Enabled := False;
  340. MirGB.Enabled := False;
  341. ScaleGB.Enabled := False;
  342. ShiftGB.Enabled := False;
  343. RotGB.Enabled := True;
  344. GrRel.Enabled := True;
  345.  
  346. end;
  347. 2: begin
  348. LocGrBox.Enabled := False;
  349. RotGB.Enabled := False;
  350. MirGB.Enabled := False;
  351. ShiftGB.Enabled := False;
  352. ScaleGB.Enabled := True;
  353. GrRel.Enabled := True;
  354. end;
  355. 3: begin
  356. LocGrBox.Enabled := False;
  357. RotGB.Enabled := False;
  358. ScaleGB.Enabled := False;
  359. ShiftGB.Enabled := False;
  360. MirGB.Enabled := True;
  361. GrRel.Enabled := True;
  362. end;
  363. 4: begin
  364. LocGrBox.Enabled := False;
  365. RotGB.Enabled := False;
  366. ScaleGB.Enabled := False;
  367. MirGB.Enabled := False;
  368. ShiftGB.Enabled := True;
  369. GrRel.Enabled := True;
  370. end;
  371. end;
  372. X0Edit.Text:='0';
  373. Y0Edit.Text:='0';
  374. end;
  375. procedure TAffinPlaneForm.Y0UpDownClick(Sender: TObject;
  376. Button: TUDBtnType);
  377. begin
  378. if GrRel.ItemIndex=0 then
  379. begin
  380.  
  381. X0Lbl.Caption := 'X:';
  382. Y0Lbl.Caption := 'Y:';
  383. MainImage.Canvas.Pen.Color := clRed;
  384. Move();
  385. ReNew();
  386. end
  387. else
  388. begin
  389.  
  390. X0Lbl.Caption := 'X0:';
  391. Y0Lbl.Caption := 'Y0:';
  392. ReNew();
  393. if GrRel.ItemIndex=1 then
  394. begin
  395. MainImage.Canvas.Pen.Color := clWhite;
  396. with MainImage.Canvas do
  397. begin
  398. MoveTo(0,201-StrToInt(Y0Edit.Text)-1);
  399. LineTo(402,201-StrToInt(Y0Edit.Text)-1);
  400. MainImage.Canvas.Pen.Color := clGreen;
  401. MoveTo(0,201-StrToInt(Y0Edit.Text));
  402. LineTo(402,201-StrToInt(Y0Edit.Text));
  403.  
  404. MainImage.Canvas.Pen.Color := clWhite;
  405. MoveTo(201+StrToInt(X0Edit.Text)-1,0);
  406. LineTo(201+StrToInt(X0Edit.Text)-1,402);
  407. MainImage.Canvas.Pen.Color := clGreen;
  408. MoveTo(201+StrToInt(X0Edit.Text),0);
  409. LineTo(201+StrToInt(X0Edit.Text),402);
  410. end
  411. end
  412. end;
  413. ReNew();
  414. end;
  415. procedure TAffinPlaneForm.GrRelClick(Sender: TObject);
  416. begin
  417. if GrRel.ItemIndex=0 then
  418. begin
  419.  
  420. X0Lbl.Caption := 'X:';
  421. Y0Lbl.Caption := 'Y:';
  422. if BoxModify.ItemIndex<>0 then LocGrBox.Enabled := False;
  423. end
  424. else
  425. begin
  426. LocGrBox.Enabled := True;
  427.  
  428. X0Lbl.Caption := 'X0:';
  429. Y0Lbl.Caption := 'Y0:';
  430. X0Edit.Text := '0';
  431. Y0Edit.Text := '0';
  432. end;
  433. ReNew();
  434. end;
  435. procedure TAffinPlaneForm.Sx1Change(Sender: TObject);
  436. var
  437. i:integer;
  438. begin
  439. for i:=0 to 3 do
  440. begin
  441. Coord[i,0] := TSpinEdit(GrPoly.FindChildControl('Sx'+intToStr(i+1))).Value;
  442. Coord[i,1] := TSpinEdit(GrPoly.FindChildControl('Sy'+intToStr(i+1))).Value;
  443. Coord[i,2] := 1;
  444. Beg[i,0] := TSpinEdit(GrPoly.FindChildControl('Sx'+intToStr(i+1))).Value;
  445. Beg[i,1] := TSpinEdit(GrPoly.FindChildControl('Sy'+intToStr(i+1))).Value;
  446. Beg[i,2] := 1;
  447. end;
  448. ReNew();
  449. end;
  450. procedure TAffinPlaneForm.Button5Click(Sender: TObject);
  451. begin
  452. GrPoly.Enabled := False;
  453. MainImage.Canvas.Pen.Color := clRed;
  454. case BoxModify.ItemIndex of
  455. 1:Rotate();
  456. 2:Scale();
  457. 3:Mirror();
  458. 4:Shift();
  459. end;
  460. ReNew();
  461. end;
  462. procedure TAffinPlaneForm.Button6Click(Sender: TObject);
  463. begin
  464. if GrRel.ItemIndex=0 then
  465. begin
  466.  
  467. X0Lbl.Caption := 'X:';
  468. Y0Lbl.Caption := 'Y:';
  469. MainImage.Canvas.Pen.Color := clRed;
  470. Move();
  471. ReNew();
  472. end
  473. else
  474. begin
  475.  
  476. X0Lbl.Caption := 'X0:';
  477. Y0Lbl.Caption := 'Y0:';
  478. ReNew();
  479. if GrRel.ItemIndex=1 then
  480. begin
  481. MainImage.Canvas.Pen.Color := clWhite;
  482. with MainImage.Canvas do
  483. begin
  484. MoveTo(0,201-StrToInt(Y0Edit.Text)-1);
  485. LineTo(402,201-StrToInt(Y0Edit.Text)-1);
  486. MainImage.Canvas.Pen.Color := clGreen;
  487. MoveTo(0,201-StrToInt(Y0Edit.Text));
  488. LineTo(402,201-StrToInt(Y0Edit.Text));
  489. MainImage.Canvas.Pen.Color := clWhite;
  490. MoveTo(201+StrToInt(X0Edit.Text)-1,0);
  491. LineTo(201+StrToInt(X0Edit.Text)-1,402);
  492. MainImage.Canvas.Pen.Color := clGreen;
  493. MoveTo(201+StrToInt(X0Edit.Text),0);
  494. LineTo(201+StrToInt(X0Edit.Text),402);
  495. end
  496. end
  497. end;
  498. ReNew();
  499. end;
  500. procedure TAffinPlaneForm.Button1Click(Sender: TObject);
  501. var
  502. i: integer;
  503. begin
  504. X0Edit.Text := '0';
  505. Y0Edit.Text := '0';
  506. RotateSpin.Value := 0;
  507. KXSpin.Value := 0;
  508. KYSpin.Value := 0;
  509. OYCB.Checked := False;
  510. OXCB.Checked := False;
  511. KXShiftSpin.Value := 0;
  512. KYShiftSpin.Value := 0;
  513. GrRel.ItemIndex := 0;
  514. Sx1.Value := 0; Sy1.Value := 0;
  515. Sx2.Value := 0; Sy2.Value := 100;
  516. Sx3.Value := 100; Sy3.Value := 100;
  517. Sx4.Value := 100; Sy4.Value := 0;
  518. GrPoly.Enabled := True;
  519. for i:=0 to 3 do
  520. begin
  521. Coord[i,0] := TSpinEdit(GrPoly.FindChildControl('Sx'+intToStr(i+1))).Value;
  522. Coord[i,1] := TSpinEdit(GrPoly.FindChildControl('Sy'+intToStr(i+1))).Value;
  523. Coord[i,2] := 1;
  524. Beg[i,0] := TSpinEdit(GrPoly.FindChildControl('Sx'+intToStr(i+1))).Value;
  525. Beg[i,1] := TSpinEdit(GrPoly.FindChildControl('Sy'+intToStr(i+1))).Value;
  526. Beg[i,2] := 1;
  527. end;
  528. ReNew();
  529. end;
  530. end.
  531.  


sone4ko Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: sone4ko (статус: Посетитель)
Вопрос отправлен: 12 мая 2012, 23:38
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 5; последнее сообщение — 13 мая 2012, 22:05; участников в обсуждении: 3.

12 мая 2012, 23:43: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Лабораторный практикум » Delphi модератором DNK

Толяныч

Толяныч (статус: 4-ый класс), 13 мая 2012, 09:47 [#1]:

По скока за строчку ? Маяковский, шоб строчек было больше, "лесенкой" пис`ал :-)
min@y™

min@y™ (статус: Доктор наук), 13 мая 2012, 10:11 [#2]:

Ништяк вопрос! Ставлю 5 баллов.
Слышь, красавица, а почему ты не обратишься с этой просьбой к автору сего кода? Он помер штоль или трубку не берёт?
Почему ты думаешь, что полотенце из 530 строк чужого кода, котрое ты тут вывалила, кто-то будет не то, что комментировать - ЧИТАТЬ?!

Сорри, ничего личного. И тут Фурсенко потрудился.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Толяныч

Толяныч (статус: 4-ый класс), 13 мая 2012, 12:38 [#3]:

min@y™: Когда Фурсенко позовет тебя в суд за оскорбление нечеловеческого достоинства, можешь заявлять меня в свидетели защиты. Хоть и из другой дзяржавы :-)
bugmenot

bugmenot (статус: 3-ий класс), 13 мая 2012, 20:55 [#4]:

Когда сдавать?
виконання програми розпочинається з того самого мiсця, де призупинилося.

min@y™

min@y™ (статус: Доктор наук), 13 мая 2012, 22:05 [#5]:

Цитата (Толяныч):

Когда Фурсенко позовет тебя в суд за оскорбление нечеловеческого достоинства, можешь заявлять меня в свидетели защиты. Хоть и из другой дзяржавы

Белорус? Братан, моя мать родилась в Бобруйске!

Цитата (bugmenot):

Когда сдавать?

Вчера, наверное...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:43
Выполнено за 0.03 сек.