| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Задача с двумя массивами [D5, WinXP]

Страницы:   < 1 2 >

Борис ©   (2008-11-18 17:38:00) 

Привет всем!
Помогите,пожалуйста, решить задачу -
Дано массив X(100) и Y(100). Нужно построить алгоритм, который меняет местами значения єлементов X(k) и Y(k) для єтих массивов, не используя вспомогательных переменных.
Спасибо!

---

Zlodey   (2008-11-18 18:40:00) [21]


var
 Form1: TForm1;
 M1: array [0..2] of Integer = ((1), (2), (3));
 M2: array [0..2] of Integer = ((4), (5), (6));

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
 P: Pointer;
begin
 for i := Low(M1) to High(M1) do
 begin
   GetMem(P, SizeOf(Integer));
   try
     Move(
       M1[i], P^, SizeOf(M1[i]));
     Move(
       M2[i], M1[i], SizeOf(M1[i]));
     Move(
       P^, M2[i], SizeOf(P));
   finally
     FreeMem(P, SizeOf(Integer));
   end;
 end;
 for i := Low(M1) to High(M1) do
   ShowMessageFmt('%d', [M1[i]]);
 for i := Low(M2) to High(M2) do
   ShowMessageFmt('%d', [M2[i]]);
end;


---

Palladin   (2008-11-18 18:31:00) [22]

> Riply ©   (18.11.08 18:29) [4]

Ну ты оптимистка :) он же сразу сюда, ни строчки собственного, даже мыслей...

---

Palladin   (2008-11-18 18:30:00) [23]

Уж додумайся сам, это школьники решают.

---

Riply   (2008-11-18 18:29:00) [24]

> [3] Борис   (18.11.08 18:26)
> Извините начинающего! а примерчик можно?

Показывай что и как пытался делать,
иначе эта фраза воспринимается как "решите за меня".

---

Борис   (2008-11-18 18:26:00) [25]

Извините начинающего! а примерчик можно?

---

Jeer   (2008-11-18 18:09:00) [26]

Сведи задачу к обмену значениями двух переменных не используя третью.

---

Cobalt   (2008-11-18 18:01:00) [27]

используй стек :)

---

Страницы:   < 1 2 >

Наверх