перевернуть слово Опции

[Ludmilka]

Извини пожалуйста, помогите мне! Программа элементарная, вот только я что-то подсела... Надо написать программу, которая переворачивает слово. Например был "ток", а выводится "кот".

Сообщение отредактировано: мисс_граффити - 14.06.2007 18:14

[klem4]

Во первых переименуй тему,

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Во вторых воспользуйся поиском, задача решалась, и решается она в 1 строчку.

[Артемий]

Лови:

var
arr: array of char;
i,o: Integer;
s,s2: string;
begin
writeln('Slovo: ');
readln(s);
setLength(arr,length(s));
for i:=0 to length(s) do
begin
arr[i]:=s[i];
end;
for o:=length(s) downto 0 do
begin
s2:=s2+arr[o];
end;
writeln(s2);
readln
end.

[volvo]

Артемий2
То, что программы надо ПРОВЕРЯТЬ (Правила Раздела, п. 7), тебя не касается?

var
arr: array of char; { <--- Не боишься получить ошибку здесь? }
...
for o:=length(s) downto 0 do { <--- До какого значения? }

(Hint: ЭТО - не раздел Дельфи...)

Да и вообще, зачем нам FAQ? Зачем поиск? Легче же самому все написать, правда? Отключаем на фиг всю эту музыку, только место жрет...

[Артемий]

Много извиняюсь...

Тогда наверно так:

var
arr: array [1..255] of char;
i,o: Integer;
s,s2: string;
begin
writeln('Slovo: ');
readln(s);
for i:=0 to length(s) do
begin
arr[i]:=s[i];
end;
for o:=length(s) downto 1 do
begin
s2:=s2+arr[o];
end;
writeln(s2);
readln
end.

(у меня в Turbo Pascal нормально работает)

Сообщение отредактировано: Артемий2 - 8.02.2007 20:21

[klem4]

Да соклько же можно - то а ? Неужели ТАК лень набрать в поиске "перевернуть строку" ? Или зайти в FAQ ?

Вот тут есть решение задачи: Строки. Тема закрыта.

Aртемий2 зайди по ссылке и посмотри второй вариант решения, который в 10 раз короче твоего, это называется инверсия.

[Altair]

Блин, ребят, ну захотелось ему написать заново, зачем ему мешать изобретать велосипед?