|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.11.2016, 19:30 | #1 |
Регистрация: 30.11.2016
Сообщений: 4
|
Помогите с кодом! Нужно сделать так чтобы матрица шла против часовой стрелки
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Spin; type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; SpinEdit1: TSpinEdit; procedure Button1Click(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; n,m:integer; implementation {$R *.dfm} procedure TForm1.SpinEdit1Change(Sender: TObject); begin StringGrid1.RowCount:=SpinEdit1.Val ue; StringGrid1.ColCount:=SpinEdit1.Val ue; end; procedure TForm1.Button1Click(Sender: TObject); var n,x,y,k,z:Integer; begin n:=Stringgrid1.ColCount; x:=(n div 2+1) ;y:=(n div 2+1); k:=0; for z:=1 to n*n do begin Stringgrid1.cells[x-1,y-1]:=IntToStr(z); case k mod 4 of 0:begin inc(y); if y=x+1 then inc(k); end; 1:begin dec(x); if(n-x+1)=y then inc(k); end; 2:begin dec(y); if x=y then inc (k); end; 3:begin inc(x); if y=(n-x+1) then inc(k); end; end; end; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать так чтобы матрица была пустая? | schoolboy99 | Помощь студентам | 6 | 19.03.2016 21:06 |
нужно сделать так чтобы в Edit1 вводишь Код клиента и после этого в БД остался только этот один клиент | Alexander1997 | БД в Delphi | 9 | 19.06.2015 04:23 |
С++, делала задачу по примеру, нужно сделать так чтобы числа которые выводятся рандомно писались буквами, | anabel123123 | Помощь студентам | 12 | 15.12.2014 10:13 |
Поворот на 90 градусов против часовой стрелки | Lindemann | Общие вопросы .NET | 1 | 04.01.2010 19:30 |
Как расположить вершины многоугольника против часовой стрелки ? | Вадим Буренков | Помощь студентам | 7 | 21.08.2009 10:42 |