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

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

Протокол работы программы

Длина текста – не более 80 символов. Число слов – не более 10.

Наличие более одного символа ‘пробел’ подряд свидетельствует о конце строки.

Используемые в программе идентификаторы

Обозначения	Тип данных	Примечание
A	STRING	Исходный текст, символьные данные
K	INTEGER	Количество символов в слове
L	INTEGER	Порядковый номер слова
I	INTEGER	Параметр цикла
A[I]		Текущий символ исходного текста
N	ARRAY [1…10] OF INTEGER	Массив, содержащий значения длины каждого слова исходного текста
N[L]		Значение длины слова номер L
J	INTEGER	Параметр цикла, используемого для перемещения всех следующих символов исходного текста на одну позицию влево после того, как обработано очередное слово.
PR	INTEGER	Переменная для управления повторной работой программы
OTVET	BYTE	Переменная для управления началом обработки введенной строки

Program Prim4_STR;

Uses Crt;

Label 4;

VAR

N: ARRAY [1..10] OF INTEGER;

I, J, K, L: INTEGER;

A: STRING [80];

PR, OTVET:BYTE;

BEGIN

CLRSCR;

REPEAT

REPEAT

WRITELN (' Введите через пробел');

READLN (A);

WRITELN('Исходная строка');

WRITELN(A);

WRITELN ('Работаем дальше? 1 -да,0 -нет');

READLN (OTVET);

UNTIL OTVET=1;

K:=0;

L:=0;

PR:=0;

FOR I:=1 TO length(a) DO

IF (A[I]= ' ') THEN

BEGIN

L:=L+1;

N[L]:=K;

IF (A[I+1]=' ')THEN GOTO 4;

FOR J:=i TO length(a) DO

A[J]:= A[J+1];

K:=1

END

ELSE

begin

K:=K+1;

N[L+1]:= K-l;

end;

4:WRITELN ('Результирующая строка');

WRITELN (A);

WRITELN ('№ слова число букв');

FOR I:=1 TO L+1 DO

WRITELN (' N[',I,'] =',N[I]:6);

WRITELN('Обработать еще одну строку? 1 –да 0 -нет');

READLN(PR);

UNTIL PR=0

END.

Дата добавления: 2014-01-04