Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ перевернуть слово

Автор: Ludmilka 8.02.2007 21:11

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

Автор: klem4 8.02.2007 21:23

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



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

Автор: Артемий2 8.02.2007 23:27

Лови:

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 8.02.2007 23:48

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


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



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

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

Автор: Артемий2 9.02.2007 0:12

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

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

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 нормально работает)

Автор: klem4 9.02.2007 0:33

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

Вот тут есть решение задачи: http://forum.pascal.net.ru/index.php?showtopic=2361&hl=%EF%E5%F0%E5%E2%E5%F0%ED%F3%F2%FC+%F1%F2%F0%EE%EA%F3. Тема закрыта.

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

Автор: Altair 9.02.2007 0:43

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