СИМВОЛЬНЫЕ И СТРОКОВЫЕ ФУНКЦИИ (продолжение)
CHR(X) -(си эйч а) - ПРИСВАИВАЕТ СИМВОЛ соответствующий коду X.
CHR(65) соответствует латинской заглавной букве А.
ORD(S) -(ода) - ПРИСВАИВАЕТ НОМЕР символа из упорядоченной последовательности символов (см. ASCII), например: ORD(‘B’)=66.
1. DELETE(S,POS,NUM) -(дилит) - УДАЛЯЕТ из строки S участок, содержащий NUM символов с позиции POS.
2. INSERT(OBJ,S,POS) -(инсет) - ВСТАВИТЬ строку OBJ (переменную или константу) в строку S(переменная) с позиции POS (целое).
ПРОЦЕДУРЫ ПРЕОБРАЗОВАНИЯ ТИПОВ:
3. STR(VALUE,ST) -(стр) - ПРЕОБРАЗУЕТ числовое значение в СТРОКУ символов и запоминает результат в строке ST.
4. VAL(ST,VAR,CODE) -(вэл) - ПРЕОБРАЗУЕТ строковую величину ST в ЧИСЛОВУЮ величину (в зависимости от VAR). CODE - целая величина. Code=0 ,если нет ошибки, иначе Code равно Pos ошибочного символа, начиная с апострофа.
Program Primer5; Program Primer6;
Uses crt; Uses crt;
var a: string; var a: string;
Begin Begin
clrscr; clrscr;
a:='Информатика'; a:='Инка';
writeln(a); writeln(a);
delete(a,3,7); insert('формати',a,3);
writeln(a); writeln(a)
End. End.
Program Primer7; Program Primer8;
Uses crt; Uses crt;
var a,b: string; var a: string;
c: integer; r,x,y: integer;
Begin Begin
clrscr; clrscr;
c:=100; a:='100 лет';
a:='Цена руб.'; val(a,x,r);
str(c:4,b); y:=5*x;
insert(b,a,5); write('Y=',y);
writeln(a); readkey;
End. End.
З А Д А Н И Я:
1. Исполнить пример 5, затем используя delete, получить слова: "фомка" или "нотка".
2. Набрать и исполнить пример 6, затем используя delete, получить из слова "информатика" слово "математика".
3. Исполнить пример 7, затем получить фразу "Цена 10000 руб.". Для нахождения места вставки числа применить pos.
4. Исполнить пример 8, затем используя str и конкатенацию, получить фразу "2000 лет".