Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторная работа № 10.
Работа со строками.
Цель: изучение принципов работы со строками.
Оборудование и программное обеспечение: компьютер, Turbo Pascal 7.0.
Место проведения:
Время:
Пример 1: Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.
Program Slova;
uses crt;
var st,st1,st2,st3:string;
a,i:byte;
begin
clrscr;
writeln('введите текст');
readln(st);
st1:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ’;
st2:=’авсдежзиклмнопрстуфхцчшщьъыэюяАВСДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЪЫЭЯ';
st3:=st1+st2;
for i:=1 to length(st) do
if ((pos(st[i],st3))>0) and ((pos(st[i+1],st3))=0)
then a:=a+1;
writeln('число слов=',a,'шт.');
readln;
end.
Пример 2: Строка содержит одно слово. Проверить является ли оно палиндромом.
program perevertish;
uses crt;
var st:string;
i,n,a:integer;
begin
clrscr;
write('Введите слово ');
readln(st);
n:=length(st);
a:=1;
for i:=1 to n do if st[i]<>st[n-i+1] then a:=0;
if a=1 then write('Палиндром') else write('Обыкновенное слово');
readln;
end.
Пример 3: Дана строка. Если в ней встречается последовательность ‘child’ то заменить её на ‘children’.
Program Zamena;
Uses CRT;
Var s1:String;
Begin
CLRSCR;
Readln(s1);
While Pos('child',s1)>0 do
Begin
Insert('*',s1,pos('child',s1));
delete(s1,pos('child',s1),length('child'));
End;
While Pos('*',s1)>0 do
Begin
Insert('children',s1,pos('*',s1));
delete(s1,pos('*',s1),length('*'));
End;
Writeln;
Writeln(s1);
Readln;
End.
Порядок выполнения работы:
Задание: Создать и отладить программу для решения следующую задачу (см. Приложение).
Содержание отчета по каждому заданию:
Приложение: (ваш номер по журналу соответствует номеру варианта)