Лабораторная работа №11. Тема: Строковый тип данных

СКАЧАТЬ:  Laboratornaya_po1.zip [38,41 Kb] (cкачиваний: 37)  

Лабораторная работа №11.

Тема: Строковый тип данных

Задание 5. Удвоить вхождение некоторой буквы в текст. Например, текст «мама папа» должен иметь вид – «маамаа паапаа».

Program LR11_5;

var st: string;

i: integer;

symbol: char;

Begin

writeln('введитестроку');

readln(st);

writeln('введите удвоеннуюбукву');

readln(symbol);

fori:= Length(st) downto 1do

Ifst[i]=symbol then insert(symbol,st,i);

writeln('текст после обработки: ',st);

readln;

end.

Задание 7. Дан текст. Вывести все слова, начинающиеся с согласных букв латинского алфавита.

Program LR11_7;

var text,sl,nas: string;

i,k: integer;

begin

write('введитетекст: ');

readln(text);

text:=text+' '; sl:=''; nas:='';

fori:=1 to length(text)do

if text[i]<>' ' thensl:=sl+text[i] else

if length(sl)>0 then

begin

if not (sl[1] in ['E','Y','U','I','O','A','e','y','u','i','o','a']) then

begin

inc(k);

nas:=nas+sl+' ';

end;

sl:='';

end;

if k=0then write('нет слов начинающихся на согласные')

else write('text= ',nas);

readln;

end.

Задание 8. Дан текст. Определить

А) Длину самого короткого и самого длинного слов;

Program LR11_8(a);

var s:string;

i,start,dlis,min,max:byte;

Begin

write('Vvedite text: ');

readln(s);

start:=length(s);

min:=255;

max:=0;

dlis:=0;

for i:=1to start do

Begin

If (s[i]<> ' ') thendlis:=dlis+1 else

Begin

If dlis > max then max:=dlis;

If dlis < min then min:=dlis;

dlis:=0;

end;

end;

if dlis < min then

min := dlis;

if dlis > max then

max := dlis;

writeln('samoe korotkoe= ',min);

writeln('samoe dlinnoe= ',max);

readln;

end.

Б) Количество слов, начинающихся и оканчивающихся одной и той же буквой;

Program LR11_8(b);

const bukvy = ['a'..'z','A'..'Z','а'..'я','А'..'Я'];

var S, Symbol :string;

i, kol:byte;

Begin

writeln('Введитестроку');

readln(S);

kol := 0;

Symbol := '';

fori := 1 to length(S)do

Begin

if (S[i] in bukvy) and (Symbol = '') then

Symbol := S[i];

if(not(S[i] in bukvy)) and (i <> 1) then

Begin

if S[i - 1] = Symbol then

inc(kol);

Symbol := '';

end;

if(i = length(S)) and (S[i] = Symbol) then

inc(kol);

end;

writeln('Количество слов начинающихся и заканчивающихся одной и той же буквой: ', kol);

readln;

end.