Переписать слова в строке в обратном порядке

@Сгущёнка · Регистрация: 15.11.2012

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

Ввести строку, содержащую несколько слов. Переписать слова в ней в обратном порядке
(последнее слово записать первым)
подскажите где ошибка?

Pascal

program stroki28;
uses crt;
var slova:array[1..30] of string;
s,s2:string;
L,i,k: integer;
begin
clrscr;
s2:=' ';k:=1; slova[1]:=' ';
for i:=1 to length(s) do
 begin
  if s[i]=' ' then
   begin k:=k+1 end
   else
    begin
    slova[k]:=slova[k]+s[i];
    end;
   end;
 s2:=' ';
 for i:=k downto 1 do
 begin s2:=s2+slova[i]+' ';
 end;
writeln(s2);
readln;
end.

@Puporev · 11.03.2013, 16:32

Pascal

program stroki28;
uses crt;
var s,s1,s2:string;
    i,k: integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s2:='';
i:=1;
while i<=length(s) do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  s1:='';
  k:=i;
  while(k<=length(s))and(s[k]<>' ') do
   begin
    s1:=s1+s[k];
    k:=k+1;
   end;
  s2:=s1+s2;
  i:=i+length(s1);
 end
else
 begin
  s2:=s[i]+s2;
  i:=i+1;
 end;
write(s2);
readln;
end.

@Алесан · 27.01.2019, 14:41

А как сделать ограничения символов в 5 символов слово и латиницей и разделение запятой, точка завершает программу и выводит результат

ФедосеевПавел · 27.01.2019, 14:49

Алесан, эти ограничения задаются условием задачи на входные данные. Т.е. для программы гарантируется корректность вводимых данных.

Если же учебные программки делать с полными проверками - получится полноценный Word+Exel.

@Алесан · 27.01.2019, 15:00

Не поможешь с примером?

ФедосеевПавел · 27.01.2019, 15:33

"Дружок" Алесан, вы самостоятельно сможете скопировать текст из сообщения #2. Найти пробелы и заменить их на запятые.

@Puporev · 27.01.2019, 15:35

Алесан, У Вас есть своя тема вот в ней и размазывайте сопли, в чужой теме этого делать не нужно.
Тема закрыта.

@Алесан 0 / 0 / 0 Регистрация: 26.01.2019 Сообщений: 19
	27.01.2019, 14:41	3
	А как сделать ограничения символов в 5 символов слово и латиницей и разделение запятой, точка завершает программу и выводит результат 0

ФедосеевПавел Модератор 8522 / 4376 / 1648 Регистрация: 01.02.2015 Сообщений: 13,600 Записей в блоге: 9
	27.01.2019, 14:49	4
	Алесан, эти ограничения задаются условием задачи на входные данные. Т.е. для программы гарантируется корректность вводимых данных. Если же учебные программки делать с полными проверками - получится полноценный Word+Exel. 0

@Алесан 0 / 0 / 0 Регистрация: 26.01.2019 Сообщений: 19
	27.01.2019, 15:00	5
	Не поможешь с примером? 0

ФедосеевПавел Модератор 8522 / 4376 / 1648 Регистрация: 01.02.2015 Сообщений: 13,600 Записей в блоге: 9
	27.01.2019, 15:33	6
	"Дружок" Алесан, вы самостоятельно сможете скопировать текст из сообщения #2. Найти пробелы и заменить их на запятые. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.01.2019, 15:35	7
	Алесан, У Вас есть своя тема вот в ней и размазывайте сопли, в чужой теме этого делать не нужно. Тема закрыта. 0