В заданой строке S(string) обменять местами первое и последнее слово

@SQLFox · Регистрация: 29.12.2012

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

Написать прогу. В заданой строке S(string) обменять местами первое и последнее слово!

@Puporev · 30.12.2012, 13:55

Pascal

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

@SQLFox 0 / 0 / 0 Регистрация: 29.12.2012 Сообщений: 7
		1
	В заданой строке S(string) обменять местами первое и последнее слово 30.12.2012, 13:14. Показов 1388. Ответов 1 Метки нет (Все метки) Написать прогу. В заданой строке S(string) обменять местами первое и последнее слово! 0

Опции темы

В заданой строке S(string) обменять местами первое и последнее слово

Решение