Rambler's Top100

Скачать программы    Все программы автора

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);

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz