Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Строки / Задача 5 (поменять местами первое и последнее слово)

.txt
Источник:
Скачиваний:
266
Добавлен:
04.03.2014
Размер:
1.21 Кб
Скачать
5) разработать процедуру которая в строке меняет первое и последнее слово

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..20] of string;

procedure ZAMENA (var s:string;n:integer;var b:mas;var k:integer);
var i,p,j:integer;
slovo,buf:string;
begin
writeln('vvedite stroku');
readln(s);

{удаление пробелов}
p:=pos(' ',s);
while p>0 do begin
delete(s,p,1);
p:=pos(' ',s);
end;
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);

s:=s+' ';
slovo:='';
k:=0;
for i:=1 to length(s) do if s[i]<>' ' then slovo:=slovo+s[i]
else begin
k:=k+1;
b[k]:=slovo;
slovo:='';
end;
for i:=1 to k do begin
buf:=b[1];
b[1]:=b[k];
b[k]:=buf;
end;
end;

var n,i,kol,j:integer;
st:string;
B:mas;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
for i:=1 to n do begin
ZAMENA(st,n,B,kol);
for j:=1 to kol do write (B[j],' ');
writeln;
end;
readln;
end.