Скачать: CL | DM;

Заполнение массива.   Найти похожие ветки 

← →
Alex_K   (2005-07-14 13:32) [0]

Привет всем.

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

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

---

← →
begin...end ©   (2005-07-14 13:35) [1]

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.

---

← →
begin...end ©   (2005-07-14 13:38) [2]

Ещё вариант:

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.

---

← →
Skyle ©   (2005-07-14 13:46) [3]

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.

:)

---

← →
Alex_K   (2005-07-14 13:51) [4]

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

---

← →
Skyle ©   (2005-07-14 13:53) [5]

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


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


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

---

← →
evvcom ©   (2005-07-14 14:15) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c