Скачать программы Все программы автора1. 14. 4. Работа со строковыми переменнымиВ программе "Бегущая строка" можно использовать переменные типа String. Для этого достаточно описать переменную "cha" типом String. Для строковых переменных допускаются операции сложения , например, если s1:='Hello!', s2:='Привет!', то переменной s3:=s1+'_'+s2; присвоится значение: "Hello! Привет!". Сравнение строковых переменных происходит по символам, начиная с первого. Для приведенного выше примера выражение ( s1<>s2 ) верно. Если код первого символа в первой строке больше, чем во второй, то первая строковая переменная считается больше второй. В данном примере выражение s1<s2 верно, т. к. значение кода "Н" меньше, чем "П".
Строковую переменную можно рассматривать как массив символов, например: s1[1]:='H' , s1[2]:='e'; и т. д. Длина строковой переменной "L" содержится в элементе с нулевым индексом и может находиться оператором L:= Ord(s1[0]); или оператором L:= Length(s1);
Функция Copy(S,L1,L2); позволяет скопировать строковую переменную "S" в другую строковую переменную. Где L1 - номер индекса первого копируемого символа, L2 - число копируемых символов. Например, для заданного ранее значения s1 переменная Sc:=Copy(s1,1,5); примет значение "Hello". Процедура Delete(S,L1,L2); позволяет удалить из строки "S" часть символов. Где L1 - номер индекса первого удаляемого символа, L2 - число удаляемых символов. Например, после действия оператора Delete(s1,6,1); переменная "s1" примет значение "Hello". Процедура Insert(Si, S, L1); позволяет вставить в строку "S" строку "Si" начиная с номера "L1" строки "S". Здесь переменные L1, L2 - типа Integer.
Практическое задание N 1. 43
1. Создать "бегущую строку" с использованием функции копирования. Строку вводить оператором Read(S); c пробелом в конце строки. Длина строки n:= Length(s); Выводить строку оператором Write(Sc); где Sc:= Copy(S, L1, L2). 2. Создать "бегущую строку" с использованием функции копирования при "j<=n" Sc:=Copy(S, L1, L2); а после "else" c процедурой удаления Delete(Sc, L3, L4);. Строку вводить оператором Read(S); c пробелом в конце строки. Выводить оператором Write(Sc); Длина строки n:=Length(s); |