Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2011, 08:47   #1
Junger
Пользователь
 
Регистрация: 04.05.2011
Сообщений: 30
По умолчанию двумерный массив

Как заполнить массив таким образом. Нужен программный код.
Junger вне форума Ответить с цитированием
Старый 24.11.2011, 09:08   #2
Zer0
Форумчанин
 
Аватар для Zer0
 
Регистрация: 13.12.2007
Сообщений: 788
По умолчанию

Вот пример для паскаля:

Код:
dir:=-1;
j:=n;
i:=n;
k:=1;
while (i>=1) and (j>=1) do begin
 a[i,j]:=k;
 inc(k);
 if (j=n) and (dir=1) or (j=1) and (dir=-1) then begin
  dir:=dir*(-1);
  i:=i-1;
 end else
 if (i=n) and (dir=-1) or (i=1) and (dir=1) then begin
  dir:=dir*(-1);
  j:=j-1;
 end else begin
  j:=j+dir;
  i:=i-dir;
 end;
end;
Писал прямо из головы, но вроде должно работать
благодарность - сюда (не забываем писать от кого)

Последний раз редактировалось Zer0; 24.11.2011 в 09:15.
Zer0 вне форума Ответить с цитированием
Старый 29.11.2011, 08:43   #3
Junger
Пользователь
 
Регистрация: 04.05.2011
Сообщений: 30
Радость перевод

Помогите перевести программный код из паскаля на delphi


чтобы программы выполняла следуюшие действия

Последний раз редактировалось Junger; 29.11.2011 в 08:45.
Junger вне форума Ответить с цитированием
Старый 29.11.2011, 08:52   #4
Zer0
Форумчанин
 
Аватар для Zer0
 
Регистрация: 13.12.2007
Сообщений: 788
По умолчанию

А в чем проблема просто создать консольное приложение в делфи и вставить туда паскалевский код?
благодарность - сюда (не забываем писать от кого)
Zer0 вне форума Ответить с цитированием
Старый 29.11.2011, 16:39   #5
Junger
Пользователь
 
Регистрация: 04.05.2011
Сообщений: 30
Восклицание заполнение массива.

есть программный код каторый заполняется вот таким образом:

http://content.foto.mail.ru/mail/sty...swers/i-20.jpg

код delphi
Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
SpinEdit1: TSpinEdit;
Label1: TLabel;
SpinEdit2: TSpinEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure SpinEdit1Change(Sender: TObject);
procedure SpinEdit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
g,i,j,c,f:integer;
implementation

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.ColCount:=SpinEdit1.Value;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.RowCount:=SpinEdit2.Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
j:=StringGrid1.RowCount-1;
Stringgrid1.Cells[i,j]:='1';
g:=2;
c:=1;
f:=SpinEdit1.Value*SpinEdit2.Value;
While g-1<>f do begin
Case c of
1: begin
i:=i+1;
StringGrid1.Cells[i,j]:=IntToStr(g);
c:=2;
if j=0 then c:=4;
end;
2: begin
i:=i-1;
j:=j-1;
StringGrid1.Cells[i,j]:=IntToStr(g);
if i=0 then c:=3 else
if j=0 then c:=1 else c:=2;
end;
3: begin
If j=0 then begin c:=1;
g:=g-1;
end else begin
j:=j-1;
StringGrid1.Cells[i,j]:=IntToStr(g);
if i=StringGrid1.ColCount-1 then c:=2
else c:=4;
end;
end;
4: begin
i:=i+1;
j:=j+1;
StringGrid1.Cells[i,j]:=IntToStr(g);
if i=StringGrid1.ColCount-1 then c:=3 else
if j=StringGrid1.RowCount-1 then c:=1 else c:=4;

end;
end;
g:=g+1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
For i:=0 to StringGrid1.ColCount-1 do
For j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:='';

end;
end.
а нужно чтобы заполнял вот таки образом
http://content.foto.mail.ru/mail/sty...swers/i-16.jpg
помогите пожалуйста исправить.

Последний раз редактировалось Simply-Art; 01.12.2011 в 14:54. Причина: есть теги для оформления кода
Junger вне форума Ответить с цитированием
Старый 29.11.2011, 17:08   #6
Mandrivnyk
Software Developer
Участник клуба
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Сообщений: 1,098
По умолчанию

обе ссылки на картинки битые. вернее, даже не битые, а криво скопипастеные, судя по всему -- с какого-то другого форума.
да и код не отформатирован...
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062

Последний раз редактировалось Mandrivnyk; 29.11.2011 в 17:11.
Mandrivnyk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив и Двумерный массив eugene1437 Общие вопросы C/C++ 15 25.05.2011 19:17
двумерный массив 4ERRY Паскаль, Turbo Pascal, PascalABC.NET 3 17.05.2010 17:55
Двумерный массив Yara24 Помощь студентам 2 16.05.2010 19:50
Двумерный массив Telec Помощь студентам 0 14.01.2010 22:29
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 12:40