Помощь - Поиск - Пользователи - Календарь
Полная версия: перевернуть слово
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ludmilka
Извини пожалуйста, помогите мне! Программа элементарная, вот только я что-то подсела... Надо написать программу, которая переворачивает слово. Например был "ток", а выводится "кот".
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? Зачем поиск? Легче же самому все написать, правда? Отключаем на фиг всю эту музыку, только место жрет...
Артемий
Много извиняюсь... 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
Да соклько же можно - то а ? Неужели ТАК лень набрать в поиске "перевернуть строку" ? Или зайти в FAQ ?

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

Aртемий2 зайди по ссылке и посмотри второй вариант решения, который в 10 раз короче твоего, это называется инверсия.
Altair
Блин, ребят, ну захотелось ему написать заново, зачем ему мешать изобретать велосипед? smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.