Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать неотразимый комплимент Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?

Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Строковые выражения





Выражения, в котором операндами являются строки, называется строковым.

Над строковыми операндами допустимы следующие операции:

Сцепления (+).

Применяется для соединения строк в одну.

‘Turbo ’+’ Pascal’ результат ‘Turbo Pascal’

Отношения(<, >, <> )

Две строки равны, если их длины равны и одинаковые символы стоят на одинаковых местах.

Пример,

‘Program’=‘program’- false

‘FAT’=‘FAT’ –true

Если строки имеют равную длину, то они сравниваются слева на право до первого несовпавшего символа, и та строка больше, чей символ имеет больший номер в ASCII.

Пример,

‘intel’>’Intel’

‘MSDOS’<’MSDos’

Строковые процедуры и функции.

Процедура Действие Пример
Insert(s1,s2,poz) Процедура вставки строки s1 в строку s2, начиная с позиции poz S1:=’Turbo ’ S2:=’язык Pascal’ Insert(s1,s2,6) Результат-‘язык Turbo Pascal ’
Delete(s,poz,n) Процедура удаления из строки s n символов, начиная с позиции poz S:=’клавиатура’ Delete(s,5,5) Результат: ‘клава’
Str(n,st) Процедура преобразования числа в строку  
Val(st,n) Процедура преобразования строки в число  
Copy(st,poz,n) Процедура выделения из строки st подстроки длиной n, начиная с позиции poz St:=’машина’ Copy(st,3,4) Результат: ‘шина’
Length(s) Функция определяет длину строки S:=’мама’ N:=length(s) Результат n=4
Pos(s,st) Функция определяющая первое вхождение строки s в строку st St:=’машина’ s:= ‘шина’ n:=Роs (st, s) Результат: n=3
UpCase(ch) Функция заменяющая маленькую латинскую буквы большой.  

 


Лекция 26.

Вопросы:

Что такое строка, как описать.

Какие выражения называются строковыми. Охарактеризовать строковые операции.

Охарактеризовать основные процедуры и функции работы со строками

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

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



Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

Writeln(‘введите строку’);

Readln(s);

Writeln(‘длина строки=’, length(s));

Readkey;

End.

 

Удалить из строки 4 символа, начиная со 2.

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

Writeln(‘введите строку’);

Readln(s);

Delete(s,2,4);

Writeln(‘новая строка=’,s);

Readkey;

End.

 

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

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

Writeln(‘введите строку’);

Readln(s);

Delete(s,length(s) div 2 +1, length(s) div 2);

Writeln(‘новая строка=’,s);

Readkey;

End.

 

С клавиатуры вводятся две строки, определить является ли первая строка частью второй, если да, то ее обнаружить первое вхождение.

Program _;

Uses CRT;

Var s, st: string;

Begin

ClrScr;

Writeln(‘введите первую строку’);

Readln(s);

Writeln(‘введите вторую строку’);

Readln(st);

If pos(s, st)=0

then writeln(‘строка ’, s, ‘не входит в строку ’, st)

else writeln(‘строка ’, s, ‘входит в строку ’, st);

Readkey;

End.

 

В предложении произвольной длины все буквы «а» русского алфавита заменить на «*».

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

Writeln(‘введите строку’);

Readln(s);

For i:=1 to length(s) do

If s[i]=’a’ then s[i]:=’*’;

Writeln(‘новая строка=’,s);

Readkey;

End.

В предложении произвольной длины все цифры заменить на «!»

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

Writeln(‘введите строку’);

Readln(s);

For i:=1 to length(s) do

If (s[i]>=’0’) and (s[i]<=’9’) then s[i]:=’!’;

Writeln(‘новая строка=’,s);

Readkey;

End.

В предложении произвольной длины посчитать количество латинских букв «а»

Program _;

Uses CRT;

Var s: string;

Kol:byte;

Begin

ClrScr;

Kol:=0;

Writeln(‘введите строку’);

Readln(s);

For i:=1 to length(s) do

If s[i]=’a’ then kol:=kol+1;

Writeln(‘количество букв а=’,kol);

Readkey;

End.

 

 

Лекция 27.






Date: 2016-06-08; view: 227; Нарушение авторских прав

mydocx.ru - 2015-2019 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию