Краткие теоретические сведения. Алгоритмы разбиения строки символов на «слова» (одномерный массив «слов»)

Алгоритмы разбиения строки символов на «слова» (одномерный массив «слов»)

Program prim_razb_str1;

Uses CRT;

Comst

N=128;

Type

Massiv=array[1..N]of string;

Var

St,st1:string;

Mas_sl:Massiv;

i,p,k:integer;

BEGIN

ClrScr;

Writeln(‘введите строку символов’);

Readln(st);

st1:=st+ ‘ ‘;

p:=0;

while length(st1)>0 do

begin

while st1[1]=’ ’do delete(st1,1,1)

if length(st1)>0

then

begin

p:=p+1;

k:=pos(’ ‘,st1);

Mas­_sl[p]:= copy(st1,1,k-1);

delete(st1,1,k);

end;

end;

if p>0

then

For i:=1 to p do writeln(Mas­_sl[i]);

Readln;

END.

Program prim_razb_str2;

Uses CRT;

Comst

N=128;

Type

Massiv=array[1..N]of string;

Var

St,st1:string;

Mas_sl:Massiv;

` i,p,k,n:integer;

BEGIN

ClrScr;

Writeln(‘введите строку символов’);

Readln(st);

st1:=’ ’st+ ‘ ‘;

p:=0;

n:=0;

k:=0;

For i:=1 to length(st1)-1do

begin

if ((st1[i]=’ ’)and (st1[i+1]<>’ ’))then n:=i+1;

if ((st1[i]<>’ ’)and (st1[i+1]=’ ’))then k:=i;

if n*k>0

then

begin

p:=p+1;

Mas­_sl[p]:= copy(st1,n, k-n+1);

n:=0;

k:=0;

end;

end;

if p>0

then

For i:=1 to p do writeln(Mas­_sl[i]);

Readln;

END.

Лабораторная работа №10 (2 часа)

Тема: Компиляция и тестирование программы(См. лаб. раб. №9) обработки массивов строк.

Цель: Приобрести навыки проведения компиляции и тестирования программы.

Задание: Провести компиляцию и тестирование программы, разработанной в ходе выполнения лабораторной работы №9.

Практическая работа №8 (2 часа)