Реверс слов строки

@Ella17 · Регистрация: 20.05.2012

Author24 — интернет-сервис помощи студентам

Задание заключается в том, что дано, чтобы слова, напечатанные через пробел, переворачивались...

Pascal

Function Revert(S: string):string;
var
 i: byte;
 T: string;
Begin
 T:='';
 For i:=length(S) downto 1 do
  T:=T+S[i];
 Revert:=T;
End;

Добавлено через 1 минуту
Да, это тема лёгкая, просто всё сижу с ней... Подскажите, направьте как-нибудь. Спасибо!

ВАСИЛЕВС · 20.05.2012, 15:32

Так а в чем проблема?

Pascal

program Reverse;
function Revert(s: string):string;
var
i: integer;
result: string;
begin
for i := length(s) downto 1 do result := result + s[i];
Revert := result;
end;
 
var s:string;
begin
write('Введите строку: ');
readln(s);
write('Результат: ', Revert(s));
end.

Прекрасно работает.

@Ella17 · 20.05.2012, 15:33 **[ТС]**

Задача состоит в том, что нужно написать слова через пробел, и чтобы эти слова перевернулись в обратном порядке. То есть было "лола море лара" стало "алол ером арал".

Pascal

Function Revert(S: string):string;
var
 i: byte;
 T: string;
Begin
 T:='';
 For i:=length(S) downto 1 do
  T:=T+S[i];
 Revert:=T;
End;

@CodeR · 20.05.2012, 15:36

Что именно не получается функция? В принципе правильно реализована

@Ella17 · 20.05.2012, 15:45 **[ТС]**

Вообщем, когда я запускаю, эту вышенаписанную программку, он пишет "unexpected end on file".
Может быть в эту программку надо еще что-нибудь дописать для её запуска...?
Спасибо за то, что откликнулись)

@CodeR · 20.05.2012, 15:45

Выложите сам код полностью посмотрим что там у вас

@Ella17 · 20.05.2012, 15:50 **[ТС]**

О теперь всё получилось! Большое спасибо за помощь!

@Ella17 · 20.05.2012, 15:50 **[ТС]**

А всё спасибо! Всё получилось, мне подсказали, что не так!

@CodeR · 20.05.2012, 15:51

Ааа, ну конечно же у вас она не будет работать это ведь подпрограмма а должны быть ещё основная программа в которой эта подпрограмма будет использоваться!

ВАСИЛЕВС · 20.05.2012, 15:52

Так и не пойму, а в чем проблема?

@Ella17 · 20.05.2012, 15:56 **[ТС]**

Да получается так...))

@Ella17 · 20.05.2012, 15:57 **[ТС]**

Он мне почему-то выдавал "unexpected end on file".
Потом если я снова end ставила, он уже begin запрашивал...

Добавлено через 2 минуты
У меня эта программа не закончена была, не дозавершена..

ВАСИЛЕВС · 20.05.2012, 15:57

Ну да, в Pascal'е еще никто begin/end не отменял.

@Ella17 · 20.05.2012, 16:08 **[ТС]**

Да, верно) Спасибо еще раз)

ВАСИЛЕВС · 20.05.2012, 16:09

Обращайся!

@Ella17 · 20.05.2012, 23:32 **[ТС]**

Хорошо, спасибо за помощь!

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	20.05.2012, 15:52	10
	Так и не пойму, а в чем проблема? 0

@Ella17 0 / 0 / 2 Регистрация: 20.05.2012 Сообщений: 183
	20.05.2012, 15:56 [ТС]	11
	Да получается так...)) 0

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	20.05.2012, 15:57	13
	Ну да, в Pascal'е еще никто begin/end не отменял. 1

@Ella17 0 / 0 / 2 Регистрация: 20.05.2012 Сообщений: 183
	20.05.2012, 16:08 [ТС]	14
	Да, верно) Спасибо еще раз) 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	20.05.2012, 15:36	4
	Что именно не получается функция? В принципе правильно реализована 0

@Ella17 0 / 0 / 2 Регистрация: 20.05.2012 Сообщений: 183
	20.05.2012, 15:45 [ТС]	5
	Вообщем, когда я запускаю, эту вышенаписанную программку, он пишет "unexpected end on file". Может быть в эту программку надо еще что-нибудь дописать для её запуска...? Спасибо за то, что откликнулись) 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	20.05.2012, 15:45	6
	Выложите сам код полностью посмотрим что там у вас 0

@Ella17 0 / 0 / 2 Регистрация: 20.05.2012 Сообщений: 183
	20.05.2012, 15:50 [ТС]	7
	О теперь всё получилось! Большое спасибо за помощь! 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	20.05.2012, 15:51	9
	Ааа, ну конечно же у вас она не будет работать это ведь подпрограмма а должны быть ещё основная программа в которой эта подпрограмма будет использоваться! 1

@Ella17 0 / 0 / 2 Регистрация: 20.05.2012 Сообщений: 183
	20.05.2012, 15:57 [ТС]	12
	Он мне почему-то выдавал "unexpected end on file". Потом если я снова end ставила, он уже begin запрашивал... Добавлено через 2 минуты У меня эта программа не закончена была, не дозавершена.. 0

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	20.05.2012, 16:09	15
	Обращайся! 1

@Ella17 0 / 0 / 2 Регистрация: 20.05.2012 Сообщений: 183
	20.05.2012, 23:32 [ТС]	16
	Хорошо, спасибо за помощь! 0

Реверс слов строки

Решение