4. Задание для самостоятельного выполнения

4.1 Составьте и отладьте программу решения следующей задачи: Задана строка произвольной длины. Найдите количество символов в данной строке.Указание: Используйте фрагмент программы следующего вида:

writeln('Введите слово');

readln(s);

n:=length(s);

writeln('n=',n)

4.2 Дополните полученную программу: Определите, начинается ли слово со слога «Не».Указание: Воспользуйтесь условным оператором вида:

if (s[1]=’Н’) and (s[2]=’е’) then writeln('да, начинается') else writeln('нет');

4.3 Дополните полученную программу. Определите, сколько раз встречается буква «а» в данном слове.

Пример возможного решения:

k:=0;

for i:=1 to length(s) do

if s[i]=’a’ then k:=k+1;

writeln(‘k=’,k);

4.4 Выполните задание из указанного преподавателем варианта приложения Б.

4.5 Составьте и отладьте программу решения следующей задачи. Задан список из 7 слов произвольной длины. Найдите все слова списка, заканчивающиеся на букву «и».

Указание: Опишите переменную s как переменную типа array[1..7] of string, далее воспользуйтесь следующим программным фрагментом:

for i:=1 to 7 do

begin

writeln('Введите слово');

readln(s[i])

end;

writeln(‘Заканчиваются на букву -и’);

for i:=1 to 7 do

begin

n:=length(s[i]);

if s[i,n]=’и’ then writeln(s[i])

end;

4.6 Выполните задание из указанного преподавателем варианта приложения В.

4.7 Решите указанные преподавателем задачи из приложения Г.

5.Контрольные вопросы

1.Как можно описать в программе строковые данные?

2.Перечислите процедуры для обработки строк.

3.Какие операции можно выполнять над строковыми данными?

4.Укажите область применения строковых данных.

5.Поясните порядок работы процедуры DELETE.

6.Поясните порядок работы процедуры INSERT.

7.Поясните порядок работы процедуры STR.

8.Поясните порядок работы процедуры VAL.

9.Поясните порядок работы функции LENGTH.

10.Поясните порядок работы функции COPY.

11.Поясните порядок работы функции CONCAT.

12.Поясните порядок работы функции POS.

13.Поясните порядок работы функции UPCASE.

Приложение а. Таблица обмена информацией (фрагмент) ascii code

10-е	Символ	10-е	Символ	10-е	Символ	10-е	Символ	10-е	Символ
		64	@	96	`	129	Б	164	Д
33	!	65	A	97	a	130	В	165	Е
34		66	B	98	b	131	Г	166	Ж
35	#	67	C	99	c	132	Д	167	З
36	$	68	D	100	d	133	Е	168	И
37	%	69	E	101	e	134	Ж	170	К
38	&	70	F	102	f	135	З	171	Л
39	`	71	G	103	g	136	И	172	М
40	(	72	H	104	h	138	К	173	Н
41	)	73	I	105	I	139	Л	174	О
42	*	74	J	106	j	140	М	175	П
43	+	75	K	107	k	141	Н	224	Р
44	,	76	L	108	l	142	О	225	С
45	-	77	M	109	m	143	П	226	Т
46	.	78	N	110	n	144	Р	228	Ф
47	/	79	O	111	o	145	С	229	Х
48	0	80	P	112	p	146	Т	230	Ц
49	1	81	Q	113	q	147	У	231	Ч
50	2	82	R	114	r	148	Ф	232	Ш
51	3	83	S	115	s	149	Х	233	Щ
52	4	84	T	116	t	150	Ц	236	Ь
53	5	85	U	117	u	151	Ч	234	Ъ
54	6	86	V	118	v	152	Ш	237	Э
55	7	87	W	119	w	153	Щ	238	Ю
56	8	88	X	120	x	156	Ь	239	Я
57	9	89	Y	121	y	157	Э	227	У
58	:	90	Z	122	z	158	Ю	235	Ы
59	;	91	[	123	{	159	Я	155	Ы
60	<	92	{	124	|	160	а
61	=	93	]	125	}	161	б
62	>	94	^	126	~	162	в
63	?	95	_	128	А	163	г