Alpha

Здравствуйте, уважаемые. Помогите разобраться. Мне нужно заполнить массив английским алфавитом. Вот код:


sa: array [0..25] of string;
k: integer;
c: char;
...
begin
k:=-1;
for c:='a' to 'z' do sa[k+1]:=c;
end;


Тесты показали, что записывается в массив только буква z. В чём я ошибся? Если информации недостаточно, пишите - добавлю.

sp3ctr00m

Переменная k не меняется, поэтому в цикле перезаписывается одна и та же ячейка.. делаем так:

k:=-1;
for c:='a' to 'z' do begin

sa[k+1]:=c;
k:=k+1;

end;

Актек

program alfavit;


var sa: array [0..25] of string;
k: integer;
c: char;
begin
k:=0;
for c:='a' to 'z' do
begin
sa[k]:=c;
inc(k);
end;
for k:=0 to 25 do
writeln(sa[k]);
readln;
end.

==================================

вот тебя вся прога с выводом результата.

Vike

Да только в Делфи не так выводиться результат)
inc - это, я на сколько понял, должно возвращать следующее значение?? Дык в Делфи это походу функция succ.