Практическая работа по информатике

Практическая работа .

Тема: разработка и программирование задач с обработкой текстовой информации.

Цель работы: овладеть практическими навыками работы с символьными переменными, практическими навыками обработки текста, приобретение дальнейших навыков по отладке и тестированию программ.

Оборудование: Компьютер с установленной операционной системой Windows, Free Pascal.

Литература:

1. Бабушкин И.А. и др. Практикум по Турбо     Паскалю. Учебное пособие.: М,1998

2. Информатика. 7–9 класс. Базовый курс. Практикум-задачник по моделированию./ Под ред.Н. В. Макаровой. –СПб.: Питер, 2001

3. Лапчик М. П. Вычисления. Алгоритмизация. Программирование: Пособие для учителя. - М.: Просвещение, 1988

4. Основы информатики и вычислительной техники: Проб. учеб. Для 10-11 кл. сред. шк./ А. Г. Гейн, В. Г. Житомирский, Е.В. Линецкий и др. - М. Просвещение, 1992

5. Основы информатики и вычислительной техники: Проб. учеб. пособие для сред. учеб. заведений. В 2 ч./ под ред А.П. Ершова, В.М. Монахова. - М.: Просвещение, 1986

Задания:

Составьте программу  и тестовый пример для решения следующих задач:

1 вариант.

1. Из слова «путеводитель» составьте слова «дело», «пудель», «водитель».

2. Дан текст. Сосчитайте количество запятых в нем.

3.Дан массив символьных переменных разной длины. Выведите на экран те из них, которые оканчиваются на букву «я».

2 вариант.

1. Из слова «водозаборный» составьте слова «забор», «вода», «завод».

2. Дан текст. Сосчитайте количество букв «и» в нем.

3.Дан массив символьных переменных разной длины. Выведите на экран те из них, которые начинаются с буквы «к».

Теоретические сведения к практической работе:

Работа с символьными величинами.

  Символьная величина- это цепочка символов, заключенная в апострофах, длина которой не более 255 символов.    Объявление символьных переменных осуществляется в разделе объявления переменных с помощью служебного слова char или string.

Операции над строковыми переменными:

1. Сравнения: <, >, <>, >=, <=,=.

2. Cложения: +.

3. Функции обработки:

    а) delete(a, poz, n)- удаление из строки а, начиная с позиции poz n символов.

а:=’оператор’, delete(a,2,2), рез.: оратор

    б) insert(str1, str2, poz) – вставка строки str1 в строку str2, начиная с позиции poz.

str1=’ка’, str2=’тропинка’, insert(str1, str2, 6), рез: тропиканка

     в) length(str)- длина строки ( количество символов).

str1=’оператор’, length(str), рез: 8

     г) copу(str, poz, n)-из строки str, начиная с позиции poz, берутся n символов.

str=’стройка’, copi(str, 2, 6), рез: ‘тройка’

     д) str(v,s) – заданное число v преобразует в строку s

     е) val(s,v,c) – если строка s состоит из цифр, они преобразуются в некоторое числовое значение и передаются переменной v

1)

program s1;

 const a=’классшкола’;

           b=’абвгд№0123456789’;

   var

       c,d: string;

begin

       c:=copу(a,6,5)+’ ‘+copу(b,6,1)+copу(b,14,1);

       d:=copу(a,1,5)+’ ‘+copу(b,length(b),1)+copу(b,2,1);

write(c,d);

readln;

end.

2) Подсчитайте количество букв «а» в некотором слове.

 program s2;

    var

       c,d: string;

       i,n: integer;

begin

  writeln(c);

  readln(c);

  n:=0;

   for i:=1 to length(c) do

       begin

           d:= copу(c,i,1);

            if d=’a’ then n:=n+1;

       end;

  writeln(n);

  readln;

end.

3) Дан символьный массив переменной разной длины. Вывести на экран те из них, которые начинаются с буквы «а».

program s3;

    var

        a: array[1..5] of string;

        i:integer;

begin

       for i:=1 to 5 do

        begin

            writeln(‘задайте слово’);

            readln(a[i]);

       end;

       for i:=1 to 5 do

         begin

           if copу(a[i],1,1)=’a’ then writeln(a[i]);

         end;

  readln;

end.

Сделайте вывод по работе.