9.2. Примеры решения задач обработки строковых данных
1. Программа обработки массива строк
program days;
uses CRT;
var
day:array[1..7] of string[10];
i,k:byte;
begin
clrscr;
day[1]:='Sunday';
day[2]:='Monday';
day[3]:='Tuesday';
day[4]:='Wednesday';
day[5]:='Thursday';
day[6]:='Friday';
day[7]:='Saturday';
for i:=1 to 7 do {Цикл для вывода дней недели}
writeln(i,' ',day[i]);
readln;
{Вывод наименования дня недели по номеру}
writeln ('vvedite N dnya');
readln (k);
writeln ('day N ', k, ' ',day[k]);
readln;
end.
Протокол работы программы
Работа с простейшим паролем
Program parol;
uses CRT;
var
name:string[30];
parol:string[6];
begin
clrscr;
writeln('vvedite parol iz 6 simvolov ');
readln(parol);
writeln;
if parol='Pascal' then begin
writeln('Vvedite famil ');
readln(name);
writeln;
writeln(name,', Vam dostup razreshen!');
end
else begin
writeln('Neverniy parol! Dostup zapreshen!');
end;
readln;
end.
Протокол работы программы
3. Удаление пробелов перед началом текста строки
Program del_probel;
uses CRT;
var
st:string[30]; k: byte;
begin
clrscr;
writeln('Vvedite stroku');
readln(st);
writeln;
k:=0;
while (pos(' ',st) = 1) and (length(st)>0) do
begin
delete(st,1,1);
k:=k+1;
end;
writeln('Stroka bez probelov:',st);
writeln;
write('Udaleno ', k,' probela(ov)');
Repeat
Until
KeyPressed
end.
Протокол работы программы
4. Программа, удаляющая из вводимой с клавиатуры строки пробелы между словами и записывающая в массив 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.
Протокол работы программы
