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

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

Заполнение массива.

Alex_K ©   (2005-07-14 13:32:00) 

Привет всем.

Задача такая: есть строка длинной 10 символов, также есть массив из 5 строк. Нужно в !цикле! заполнить массив так, чтобы в каждом элементе(в кажной строке) было по 2 символа (подряд, как они шли в исходной строке).
Пример: строка - '1234567890'
  массив - '12', '34', '56', '78', '90'

Зарание благодарю!

---

evvcom   (2005-07-14 14:15:00) [1]

> Огромное пасИб!!!!!!

За решенную контрольную/лабу с тебя стакан в пользу begin...end.

---

Skyle   (2005-07-14 13:53:00) [2]

> [1] begin...end ©   (14.07.05 13:35)


> [3] Skyle ©   (14.07.05 13:46)


Совсем плохой стал...©
Каюсь.

---

Alex_K   (2005-07-14 13:51:00) [3]

Огромное пасИб!!!!!!

---

Skyle   (2005-07-14 13:46:00) [4]

var
A: array [1..5] of string;
S: string;
I: integer;
begin
S := '1234567890';
for I := 1 to 5 do
  A[I] := Copy(S, (I - 1) * 2 + 1, 2);
end.

:)

---

begin...end   (2005-07-14 13:38:00) [5]

Ещё вариант:

var
 A: array [1..5] of string;
 S: string;
 I: integer;
begin
 S := '1234567890';
 for I := 1 to 10 do
   if Odd(I) then
     A[I div 2 + 1] := Copy(S, I, 2)
end.

---

begin...end   (2005-07-14 13:35:00) [6]

var
 A: array [1..5] of string;
 S: string;
 I: integer;
begin
 S := '1234567890';
 for I := 1 to 5 do
   A[I] := Copy(S, 2 * I - 1, 2)
end.

---

Наверх