З А Д А Н И Я:
1. Исполнить пример 5, затем используя delete, получить слова: "фомка" или "нотка".
2. Набрать и исполнить пример 6, затем используя delete, получить из слова "информатика" слово "математика".
3. Исполнить пример 7, затем получить фразу "Цена 10000 руб.". Для нахождения места вставки числа применить pos.
4. Исполнить пример 8, затем используя str и конкатенацию, получить фразу "2000 лет".
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 26
ОБРАБОТКА СИМВОЛЬНЫХ И СТРОКОВЫХ ВЕЛИЧИН 1
Изменить цену товара, применив: copy, delete, val, str, insert.
Program Primer9; uses crt;
var a,b: string;
x,y,p,r: integer;
Begin
clrscr;
a:='Цена товара 100 руб.'; { начальная фраза }
p:=pos('1',a); { позиция цифры 1 }
b:=copy(a,p,3); { вырезка числа 100 }
delete(a,p,3); { удаление числа 100 из фразы }
val(b,x,r); { преобразование '100' в число 100 }
y:=2*x; { изменение числа 100 }
str(y:4,b); { преобразование 200 в константу '200' }
insert(b,a,p);{ вставка '200' }
writeln(a); { печать полученной фразы }
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Уменьшить начальную цену до 1 и получить 2000.
3. Из фразы "Сашеньке вчера исполняется 120 лет" получить фразу
"Саше завтра исполняется 12 лет", используя процедуры и функции.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 27
ОБРАБОТКА СИМВОЛЬНЫХ И СТРОКОВЫХ ВЕЛИЧИН 2
