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

← →
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]

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

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

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

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