Введение


Типы данных

При решении задач в программировании выполняется обработка информации различного характера. Это могут быть целые и дробные величины, строки и другое. Соответственно константы и переменные должны быть описаны как целые, дробные, строковые и т.д.

Для описания множества допустимых значений величины и совокупности операций, в которых может участвовать данная величина, используется указание её типа данных. Тип данных (data

type
)
– множество величин, объединенных определенной совокупностью допустимых операций. Каждый тип данных имеет свой диапазон значений и специальное зареверзированное слово для описания.
Строковый тип данных

Строка представляет собой последовательность символов кодовой таблицы персонального компьютера. При использовании в выражениях строка заключается в апострофы. Количество символов в строке (длина строки) может динамически изменяться от 0 до 255. Идентификатор стро-кового типа данных – слово String. Примеры описания переменных типа  String:

Var Str1: String [10];

Var Str2: String;

Var Str3: String [13];

В квадратных скобках указывается максимальный размер (длина) строки. Если он не указан (как в описании переменной Str2), то длина строки считается равной 255 символам. Заметим, что строку можно рассматривать как одномерный массив символов – к любому символу строки можно обращаться по его номеру. Первый символ строки (с индексом 0) содержит фактическую длину строки. Для ввода и вывода переменных типа String используются процедуры Read (Readln) и Write (Writeln).Строки вводятся и выводятся не поэлементно, как массивы, а сразу целиком. Следующий простой пример иллюстрирует сказанное.

Program My14_5;

Var s: String; w: String [10]; v: String [5]; i, j:Integer;

Begin

Readln (v); Writeln (v);

Writeln (Integer (v [0]));

Readln (w); Writeln (w); Writeln (Ord (w [0]));

Readln(s); Writeln(s);

Writeln (Integer(s [0]));

For i: =1 to Ord(s [0]) do  Begin

For j: = to i-1 do Write (‘  ‘);

Writeln(s [i]);

End;

Readln;

End.

Если ввести строки v и w большей длины, чем указано в описании, они «обрезаются». Операторы Writeln(Integer(v[0])) и Writeln(Ord(w[0])) обеспечивают вывод значения длины строки. Если изменить первый оператор на Writeln(v[0]), то вместо цифрового значения на экран выводится «непонятный» символ. Попробуйте объяснить этот результат и понять смысл преобразования Integer(v[0]). Последние операторы этого примера демонстрируют обращение к элементам строки. Вывод символов строки s на экран осуществляется «лесенкой».

Сравнение строк

Сравнение строк производится посимвольно слева направо: сравниваются коды соответствующих символов до тех пор, пока не нарушится равенство, при этом сразу делается вывод о знаке неравенства. Две строки называются равными, если они равны по длине и совпадают посимвольно. 
Примеры

‘Balkon’ < ‘balkon’ (Ord (‘B’) < Ord (‘b’));

‘balkon’ > ‘balken’ (Ord (‘o’) > Ord (‘e’));

‘balkon’ > ‘balk’ (длина первой строки больше);

‘кошка’ > ‘кошка’ (длина первой строки больше);

‘Кот’» = ‘Кот’ (строки равны по длине и совпадают посимвольно).

Строковые константы, так же, как и отдельные символы, заключаются в апострофы. Например,

Str1: = 'У Егорки’; Str2: = ‘всегда отговорки’;
Процедуры и функции для работы с данными строкового типа данных приведены в таблице.




Примеры.

В приведенных примерах переменные s1,s2,s3 имеют тип String, p,g – тип Integer.

s1: =’ У Егорки всегда отговорки ’;

Delete (s1, 9,7);

Результат: s1=’У Егора отговорки’.

s1: =’ У Егорки всегда отговорки ’;

s2:=’Матрены и’;

Insert (s2, s1, 3);

Результат:

S1=’У Матрены и Егорки всегда отговорки’.

p:=1234; q:=34.5;

Str (p, s1); Str (q, s2);

Результат: s1=’1234’, s2= =’34.5’.

s1: = ‘555’; s2:=’23.345’; s3:=’34rr2’;

Val (s1, p, w); Val (s2, q, w); Val (s3, p, w);

Результат: в первом случае p=555, w=0; во втором случае q=23,345, w=0; в третьем случае w<>0, значение p не определено.

s1: =’У Егорки всегда отговорки, ’; 

s2: =’У Миладки всегда шоколадки’;

s3: =Concat (s1, s2); (или s3: =s1+s2);

Результат: s3=’У Егорки всегда отговорки, у Миладки всегда шоколадки’;

s1=’У Егорки всегда отговорки, у Миладки всегда шоколадки’

s2: =Copy (s, 27, 26);

Результат: s2:=’У Миладки всегда шоколадки’.

s1: =’У Егорки всегда отговорки ’;

p: =Length (s1);

Результат: p=25.

s1:=’У Егорки всегда отговорки ’;

p: =Pos (‘0’, s);

Результат: p=5.
Продолжите примеры. Напишите программу для исследования работы перечисленных процедур и функций. Обратите особое внимание на граничные условия (например, выясните, что получается, если длина результата больше 255). В этой работе можно использовать приведенные ниже короткие примеры.

Подсчет количества вхождений данного символа (параметр q) в строку (параметр st).
Function QChar (q: Char; st: String): Byte;

Var I, k: Byte;

Begin

k: =0;

For i: =1 To Length (st) Do If st [i]=q Then Inc (k);

Qchar: =k

End;

Удалить среднюю букву при нечетной длине строки и две средние буквы при четной длине строки.

Procedure MiDel (Var st: String);

Var k: Byte;

Begin

k: =Length (st);

If k Mod 2=1 Then Delete (st, k Div 2+1, 1)

Else Delete (st, k Div 2, 2)

End;

Заменить все вхождения подстроки w в строке st на подстроку v.

Procedure Ins  (w, v: String; Var st: String);

Var k: Byte;

Begin

While Pos (w, st)<>0 Do Begin

k: = Pos (w, st);

Delete (st, k, Length (w));

Insert (v, st, k)

End

End;

Подсчитать сумму цифр, встречающихся в строке.

Function Sum  (st: String): Integer;

Var i, k, d, s:Integer;

Begin

s: =0;

For i: =1 To Length (st) Do Begin

Val (st [i], d, k);

If k=0 Then s: =s+d

Sum: =s

End;

Экспериментальный раздел занятия

1.                Дана строка. Считаем ее отрывком текста. Группы символов, разделенных одним или несколькими пробелами, назовем словами. Пробелы могут находиться как в начале текста, так и в конце. Требуется выделить слова из текста и каждое слово записать в соответствующий элемент массива. Приведенная ниже программа решает эту задачу.

Program My14_6;

Const n=20; m=10; {Количество слов в тексте и количество букв в слове. Естественно, что эти параметры программы можно изменять}

Type TString=String [m];

Var A: Array [1..n] Of Tstring;

s: String;

k, i:Integer;

Procedure DelPr (Var s: String);

{Удаляем пробелы в начале текста.}

Begin

While (s [1]=’  ‘) And (s<>’ ‘) Do Delete (s, 1, 1)

End;

Function GetWord (Var s: String): Tstring;

{Выделяем слово, удаляем его из текста и убираем пробелы после слова.}

Begin

GetWord: =Copy (s, 1, Pos (‘  ‘, s)-1);

Delete (s, 1, Pos (‘  ‘, s));

DelPr (s)

End;

Begin

Writeln (‘Введите текст’);

Readln (s);

S: =s+’  ‘;

{Добавляем символ пробела в конец текста. Зачем?}

DelPr (s); {Удаляем пробелы в начале текста.}

k: =0;

While s<>’ ‘ Do Begin {Пока текст не пустой.}

Inc (k);

A [k]: =GetWord (s) {Берём слово из текста.}

End;

For i: =1 To k Do Writeln (A [i]);

Readln

End.

Удалите вызов процедуры DelPr(s) из основной программы, а функции GetWord переставьте этот вызов в ее начало. Что изменится в работе программы? На каких исходных данных она не будет правильно работать? Что произойдет, если в конец текста не добавлять символ пробела? В процедуре DelPr измените цикл

While (s[1]=’  ‘) And (s<>’  ‘) Do Delete (s, 1, 1)

на

While (s[1]=’  ‘)  Do Delete (s, 1, 1).

 Продолжите эксперименты с программой.

2.                 По правилам машинописи после запятой в тексте всегда ставится пробел. Следующая программа вставляет недостающие пробелы.

Program My14_7;

Var i:Integer;

s: String;

Begin

Writeln (‘Введите текст’);

Readln (s);

i: =1;

While i<Length(s) Do Begin

If (s [i]=‘,’) And Not (s [i+1]=’  ‘)

Then Insert (‘  ‘, s, i+1);

Inc  (i)

End;

Writeln (s);

Readln

End.

Задания для самостоятельной работы

1.Написать программу для вывода последовательностей символов:

а)ZYYXXX…AA..AA;

в)ABC…ZZBC…ZZZC…ZZ..ZZ.

2.Составить программу, которая выводит True, если в заданной строке буква ‘A’ встречается чаще, чем буква ‘B’, и False в противном случае.

3.Проверить, правильно ли в заданном тексте расставлены круглые скобки (т.е. находится ли справа от каждой открывающей скобки соответствующая ей закрывающая скобка, а слева от каждой закрывающей – соответствующая ей открывающая).

4.Подсчитать количество прописных латинских букв в строке.

5.Удвоить вхождение некоторой буквы в текст. Например, при удваивании буквы ‘а’ текст ‘ мама папа’ должен превратиться в текст ‘маамаа паапаа’.

6.Даны две строки. Вывести буквы, встречающиеся и в той и другой строках.

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

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

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

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

количество слов, в которых содержится хотя бы одна заданная буква;

количество слов, которые содержат заданную букву определенное количество раз;

количество слов, являющихся палиндромами.

9.Дан текст. Вывести слова, встречающиеся в тексте по одному разу.

10.Дан текст. Вывести различные слова.

Примечание. Термин ‘текст’ в условиях задач следует понимать в смысле первого примера экспериментальной части данного занятия.

Урок 10

Вид урока: практическая работа.

Тема: «Подготовка к контрольной работе».

Цель: • совершенствование навыков составления программ;

           • развитие алгоритмического мышления, памяти, внимания;

           • воспитание у учащихся самостоятельности.
План.

1. Орг.момент.

2. Проверка домашнего задания.

3. Самостоятельная работа за компьютерами.

4. Итог, домашнее задание.
Ход урока.

II
. Проверка домашнего задания.

   Написать программу для определения количества четных цифр в числе.
program primer;

             var  a1,b : string;

                    i, k, s, b1: integer;  a: longint;  

begin

        write (‘введите число’);

        readln (a);

        str (a, a1);

        s:=0;

        for i:=1 to length (a1) do

        begin

            b:=copy(a1, i, 1);

            val (b, b1, k);

            if b1 mod 2 = 0 then s:=s+1

        end;

          write (‘количество четных цифр =’, s);

end.
III. Задания для самостоятельной работы.
1. Найти сумму нечетных цифр числа Х.

2. Определить каких цифр больше в записи числа Х: четных или нечетных.

3. Найти произведение цифр заданного числа.

4. Даны два слова. Верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово?

5. В заданном числе заменить все цифры 0 на цифры 9, а все 1 – на 8; к полученному числу прибавить 999.
IV
.  Домашнее задание: просмотреть все решенные задачи.
Урок 11

Вид урока: контрольная работа.

Тема: «Строковые переменные».

Цель: • проверить уровень усвоения материала учащимися;

          • развитие алгоритмического мышления;

          • воспитание у учащихся самостоятельности.
План.

1. Орг.момент.

2. Самостоятельная работа учащихся.

3. Итог.
Ход урока.
I
.  Раздать тетради для проверочных работ.
II
. Вариант 1

1. Используя операции копирования и конкатенации получить из слова БАШКОРТОСТАН новые слова:

                          корт    бак    шок    сто  
2. Написать программу преобразования слов:

              оратор – оракул – караул - каркас  

   

3. Из данного текста выбрать все буквы  и сформировать другую строку, сохранив их последовательность.
Вариант 2

1. Используя операции копирования и конкатенации получить из слова БАШКОРТОСТАН новые слова:

                          тост   оса   банка   рана  
2. Написать программу преобразования слов:

              процесс – провода – природа - призрак  

   

3. В данном тексте подсчитать количество букв «К» и «Л».
Вариант 3

1. Используя операции копирования и конкатенации получить из слова БАШКОРТОСТАН новые слова:

                          стан   рот   ток   коса  
2. Написать программу преобразования слов:

              груша – гроза – проза - проба  

   

3. В данном тексте заменить все буквы  «Р» на «Л».

Вариант 4

1. Используя операции копирования и конкатенации получить из слова БАШКОРТОСТАН новые слова:

                          торт     кора     тон      сор  
2. Написать программу преобразования слов:

              метка – сетка – седло - сопло  

   

3. Из данного текста выбрать все цифры  и сформировать другую строку, сохранив их последовательность.
IV
. Собрать тетради.


ЛИТЕРАТУРА

1.Абрамов, С.А., Зима В.С. Начала программирования на языке Паскаль. – М.: Наука, 1987

2.Абрамов С.А., Трифонов Ф.П., Трифонова Г.Н. Введение в язык Паскаль: Учебное пособие. – М.: Наука, 1988

3.Бабушкина И.А., Бушмелева Н.А., Окулов С.М., Черных С.Ю. Конспекты занятий по информатике(практикум по Турбо Паскалю): Учебное пособие. – Киров: Издательство ВГПУ, 1997

4.Николаев А.Б., Акатнова Л.А., Алексахин С.В. и др. Турбо-Паскаль в примерах. Книга для учащихся 10 – 11 кл. –М. Просвещение, 2002

5.Окулов С.М. Основы программирования. Газета Информатика, приложение к газете Первое сентября.№№42-48/2000, 6-8/2001

6.Лахтин А.С., Искакова Л.Ю.Языки и технология программирования. Начальный курс. Учебное пособие. Екатеринбург, 1998.

7.Белова Т.Н., Конспекты лекций по основам алгоритмизации и программирования (практикум по Турбо Паскалю).Учебное пособие.

8.Попов В.Б. Turbo Pascal для школьников. Москва.  Финансы и статистика. 2003