Лабораторная работа № 6

Ord(W)

Определение порядкового номера символа W

Chr(N)

Определение символа по его порядковому номеру N

ПРОЦЕДУРЫ

Delete(S, P, N)

Удаление N символов из строки S, начиная с позиции P

Insert (W, S, P)

В строку S , начиная с позиции P, вставляется строка W. Если результат превысит 255 символов, строка обрывается

Str(V, S)

Число V преобразуется в строку, результат в S

Val (S, V, W)

Если строка состоит только из цифр, то они преобразуются в числовое значение переменной V, значение W равно0. в противном случае, когда строка состоит не только из цифр, - преобразование не выполнится, W <>0 признак ошибки

ФУНКЦИИ

Copy(S, P, N)

Из строки S, начиная с позиции P , выбирается N символов

Length(S)

Определяется длина строки S, т.е. число символов из которых она состоит

Pos(W, S)

В строке S отыскивается первое вхождение строки W (номер позиции). Если вхождение нет, то выдается 0

Concat(S1, S2, …Sn)

или S1+S2+… +Sn

Строки S1, S2, …Sn записываются одна за другой . Если результат превысит 255 символов, строка обрывается.

Trim(S)

Удаление начальных и конечных пробелов строки

Условие

Организовать цикл ввода символов и вывода его кода. Ввод закончить если введена точка

VAR

B: Char;

BEGIN

Rereat

Readln(b);

Writeln(Ord(b));

Until b=’.’;

END.

Условие:

Ввести строку. Вывести первые два символа и два последних символа через тире

VAR

S, s1,s2, w: String;

K: Integer;

BEGIN

Readln(S);

S1:=copy(S,1,2);

K:=Length(S);

S2:=copy(S,k-1,2);

W:=S1+’-‘+S2;

Writeln(W);

END.