IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> перевернуть слово
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


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

Сообщение отредактировано: мисс_граффити -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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



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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Лови:
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.


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






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

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



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

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


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Много извиняюсь... 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 нормально работает)

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


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.10.2020 11:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name