Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

Program MaxLen;. for  i:=1  to length( St )  do. if  ( ( St[ i ] = ' ' ) or ( St[ i ] = '.' ) )  then. program vst;. Program udal;. repeat. if k <>0  then. until  k=0;. program zam;. repeat. if  k <>0  then. until  k =0;. program SortLen;

Program MaxLen;

var

St, Sl:string;

i, BegSl, LenSl, LenMax:integer;

Begin

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

Readln ( St );

BegSl := 1;

LenMax := 0;

for  i:=1  to length( St )  do

if  ( ( St[ i ] = ' ' ) or ( St[ i ] = '.' ) )  then

   begin

       LenSl := i - BegSl;

       If  LenSl > LenMax  then

          begin

             LenMax := LenSl;

             Sl := copy ( St, BegSl, LenSl )

          end ;

       BegSl := i + 1;

   end ;

Writeln ( 'Слово масимальной длины: ',  Sl )

End.

2. Дана строка Txt. Вставить строку St1 встроку Txt после подстроки St2.

program vst;

var

k:integer;

str1, str2, txt:string;

begin

writeln ( 'Введите исходный текст:' );

readln ( txt );

writeln ( 'Введите вставляемый текст:' );

readln ( str1 );

writeln ( 'Введите текст, после которого нужна вставка:' );

readln ( str2 );

k := pos ( str2, txt );

if  k =0

then 

    writeln ( ‘В тексте ’,  txt, ‘ нет подстроки ‘, str2 )

else

    insert ( str1,  txt, k + length( str2 ) );

writeln ( 'Полученный текст:' );

writeln ( txt )

end.

3. Дан текст Txt. Удалить строку St из текста.

Program udal;

var

st, txt:string;

k:integer;

begin

Writeln ( 'Введите исходный текст: ' );

readln ( txt );

writeln ( 'Введите удаляемый текст: ' );

readln ( st );

repeat

  k := pos ( st, txt );

if k <>0  then

    delete ( txt, k, length( st ) )

until  k=0;

writeln ( 'Полученный текст: ' );

writeln ( txt )

end.

4. Дан текст Txt. Заменить любое вхождение строки St2 на строку St1.

program zam;

var

k:integer;

str1, str2, txt:string;

begin

writeln ( 'Введите исходный текст:' );

readln ( txt );

writeln ( 'Введите замещающий текст:' );

readln ( str1 );

writeln ( 'Введите текст, вместо которого нужна замена:' );

readln ( str2 );

repeat

k := pos ( str2, txt );

if  k <>0  then

    begin

       delete ( txt, k, length( str2 ) );

    insert ( str1, txt, k )

    end

until  k =0;

writeln ( 'Полученный текст: ' );

writeln ( txt )

end.

5. Дан массив строк. Отсортировать его по возрастанию длин строк.

program SortLen;

type

St80 = string [ 80 ];

mas = array [ 1..80 ] of  St80;