Требование:
В программе описать массив строк. Исходный текст считать из файла, созданного в любом текстовом редакторе. Результат обработки вывести на экран, а так же в итоговый текстовый файл.
Задание:
Определить количество слов, поменять местами четные и нечетные слова.
program pr6;
uses crt;
const p=3;
var o1,o2:text;
f:array[1..p] of string;
s,s1:string;
i,j,k,n,m1,m2,l1,l2:integer;
procedure invert(k,l:byte);
var i:byte;
ch:char;
b:boolean;
begin
for i:=k to ((l+k) div 2) do
begin
ch:=s[i];
s[i]:=s[l+k-i];
s[l+k-i]:=ch;
end;
end;
begin
clrscr;
assign(ff,'d:\o1.txt');
reset(ff);
j:=0;
while not eoln(ff) do
begin j:=j+1;
readln(ff,f[j]);writeln(f[j]);
end;
close(ff);
reset(ff);
j:=0;
while not eoln(ff) do
begin j:=j+1;
readln(ff,f[j]);
i:=0;n:=0;
m1:=1;m2:=1;l1:=1;l2:=1;
while i<length(f[j]) do
begin
i:=i+1;
s:=copy(f[j],i,1);
if (s[i]=' ')or(i=length(s)) then
repeat
if s[i+1]=' ' then
begin
delete(s,i,1);
k:=k-1;
b:=false;
end
else b:=true;
until b;
end;
begin
n:=n+1;
if n=1 then
begin
m2:=i-1;
l1:=i+1
end
else
begin
n:=0;
if i=length(s) then l2:=i else l2:=i-1;
invert(m1,m2);invert(l1,l2);invert(m1,l2);
m1:=i+1
end
end
end;
writeln(f[j]);
close(ff);
assign(oo,'d:\o2.txt');
rewrite(oo);
for j:=1 to 3 do
writeln(oo,f[j]);close(oo);
end.