Будь умным!


У вас вопросы?
У нас ответы:) SamZan.ru

Лабораторная работа ’ 10

Работа добавлена на сайт samzan.ru: 2015-12-26

Акция
Закажите работу сегодня со скидкой до 25%
Узнать стоимость работы
Рассчитаем за 1 минуту, онлайн

Лабораторная работа № 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.

Порядок выполнения работы:

Задание: Создать и отладить программу для решения следующую задачу (см. Приложение).

Содержание отчета по каждому заданию:

  •  исходные данные (условие задачи);
  •  алгоритм (блок-схема) решения задачи;
  •  текст программы (или основной фрагмент программы);
  •  результаты выполнения программы

Приложение: (ваш номер по журналу соответствует номеру варианта)

  1.  Удалить из строки все цифры и дописать их в конец строки.
  2.  После каждого третьего пробела вставить точку и удалить последние "лишние" символы.
  3.  Перед каждым знаком '=' вставить символ, стоящий за ним, если таковой имеется.
  4.  Удалить из строки все буквы 'а' и добавить в ее начало недостающее число пробелов.
  5.  Заменить в строке все латинские буквы на следующие по алфавиту буквы, а букву 'z' заменить на 'a'.
  6.  Заменить в строке все цифры предыдущими по значению цифрами, а '0' заменить на точку.
  7.  Каждый символ, стоящий в нечетной позиции, обменять со следующим за ним символом строки.
  8.  Если в строке цифр больше, чем латинских букв, заменить все цифры знаком '+'. В противном случае заменить все латинские буквы знаком '-'.
  9.  Если в строке пробелов меньше, чем цифр, удвоить каждый пробел.
  10.  Каждую закрывающую скобку ')', для которой нет парной открывающей '(', заменить на '?'.
  11.  Если строка начинается и оканчивается одним и тем же символом, во всей строке заменить его четвертым символом строки.
  12.  Если строка содержит больше пяти латинских 'а', заменить все латинские буквы строки следующими по алфавиту символами.
  13.  Найти соотношение букв и цифр в строке, напечатать его и удалить все символы '*' из строки, добавив в конец такое же количество символов '!'.
  14.  В строке все вхождения слова "Да" заменить на "Нет". Игнорируется разница между строчными и заглавными буквами.
  15.  В строке убрать все лишние пробелы между словами, оставив только по одному.


Акция
Закажите работу сегодня со скидкой до 25%
Узнать стоимость работы
Рассчитаем за 1 минуту, онлайн


1. Формула успеха современного eventагентства Авторский тренинг Технологии продаж eventуслуг с исполь
2. а Второй авлакогенный на котором в зависимости от климата происходит накопление красноцветных сероцвет
3. тема пищевых рефлексов
4. снятия сливоклибо Стратегию прочного внедрения на рынок.
5. Альтернативные носители информации
6. ; ctinomycose франц хроническая болезнь вызываемая различными видами актиномицетов
7. Омский государственный технический университет Установки и системы холодильн
8. Реферат- Гепатит формы B и C
9. реферат дисертації на здобуття наукового ступеня кандидата економічних наук
10. по теме Рыбы подготовительная логопедическая группа Программное содержание- расширять знания детей о
11.  теория уровней эквивалентности Общность содержания смысловая близость текстов оригинала и перевода наз
12. Частные и публичные интересы в Российском уголовном процессе
13. Маркетинговые исследования рынка туризма РФ
14. информация и данные
15. х років політологія була заборонена з ідеологічних міркувань так само як генетика кібернетика і офіційно ї
16. Человек и социальная сфера
17. Реферат- Сосна обыкновенная (сосна лесная)
18. Контрольная работа- Организация предпринимательской деятельности
19. 1 2 3 4 5 6 7 ’’’’’’’’’.html
20. НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ ИНСТИТУТ МОЛОДЕЖНОЙ ПОЛИТИКИ И СОЦИАЛЬНОЙ