Литерные переменные

1. Дайте определение литерной величины.

2. Как описываются литерные переменные на языке Turbopascal?

3. Объясните, какие значения могут принимать строковые величины А, В, С (что общее и в чем различия), если они описаны следующим образом:

var A: string;

B: string[20]:

C: string[255];

4. Перечислите все операции над литерными переменными в алгоритмическом языке.

5. Перечислите все стандартные операции над литерными переменными в Турбопаскале. Проведите сравнительный анализ операций в Турбопаскале и в ЯША.

6. Объясните, для чего предназначены и как используются стандартные функции обработки строковых величин.

7. Объясните, для чего предназначены и как используются стандартные процедуры обработки строковых величин.

8. Всегда ли справедливы следующие утверждения:
а) если c-литера и '0' £ c £ '9', то c-цифра;
б) если c-литера и 'а' £ c £ 'z', то c-строчная латинская буква;
в) 'c'<'A';
г) '0'=0;
д) ord('0')=0;
е) 'a'='A';
ж) если c и d-литеры, то c<d тогда и только тогда, когда ord(c)<ord(d);
з) ord(chr(k))=k для любого целого k;
и) chr(ord(c))=c для любого c-литеры.

9. Дайте формальное описание типа string[100] как массива.

10.Объясните, для чего предназначены и как исполняются следующие команды:

(1). Q:=a+ba; (2). S:=concat(a,b,c,d); (3). Pos(Q,W); (4). Copy(r,11,3); (5). Length(s); (6). Length(a+c);

(7). delete(f,3,6); (8). insert(f,r,5); (9). chr(n); (10). ord(f1); (11). str(f:5:2,q); (12). val(a,b,x);

11. Укажите синтаксические ошибки:

(1). insert('т','тор') (2). copy('бас',3); (3). str(string[10]); (4). insert('р','кис','з'); (5). k:=str('120',n); (6). insert('3','124','3'); (7). ord(25); (8). o:=pos(4,'нога'); (9). delete('сенокос',5,3); (10). с:='3,1415'; delete(c,'14',2);

(11). 12) val(123.4567,x,i) (12). 13) ai=delete(1,a,3); (13). 14) str('123.4567',x); (14). 15) d:=ord(chr(d))+32); (15). 16) t:=copy(t,1,length(t/2)); (16). 17) val('123.4567',x); (17). 18) concat('ра','ма'); (18). 19) c:=concat(4,'5');

12. Укажите смысловые и синтаксические ошибки:

(1). if length(a/2)=trunc(length(a/2)) then a:=8; else a:=concat(a,a,3);	(2). for i:=1 to length(i) do begin c:=pos(c,I);
(3). if a mod 2=2 then c:=’12345’ else c:=’12345’-‘345’;	(4). a:=’abcdefgh’; for i:=1 to 8 do begin a:=insert(a,’12’,i);end;
(5). s:=’1234567890’ for i:=2 to lenght(s) delete(s,i,i);	(6). i:=1;n:=length(a); wihle i>=n do insert(a,i,’23’); i:=i+1;
(7). w:=’123.4567’; q:=copy(w,4,1); r:=copy(w,1,3); s:=copy(w,5,4); t:=q-r+s;	(8). concat(a,a[pos(a,3)],q); t:=pos(ord(chr(45)),’12345,67890’); s:=str(‘qwert’,x,i); val(s:3:2,i);

13. Укажите значение переменной cпосле исполнения серии команд:

(1). c:='гардемарин';
c:=copy(c,4,3)+'о'+copy(c,length(c)-1,1);

(2). c:='баскетбол';
c:=copy(c,3,1)+copy(c,6,1)+copy(c,length(c)-1,2);

(3). c:='баскетбол';
c:=copy(c,length(c)-2,3)+copy(c,length(c)-3,1);

(4). c:='баскетбол';
c:=copy(c,4,3)+copy(c,2,1);

(5). c:='баскетбол';
c:=copy(c,3,2)+copy(c,length(c)-1,1)+copy(c,7,1)+copy(c,2,1);

(6). c:='трафарет';
c:=copy(c,4,2)+copy(c,2,2);

(7). c:='трафарет';
c:=copy(c,length(c),1)+ copy(c,length(c)-1,1)+copy(c,3,1)+copy(c,1,2);

(8). c:='трафарет';
c:=copy(c,2,2)+copy(c,length(c)-2,1)+ copy(c,length(c),1)+copy(c,7,2);
insert('и',c,4);

(9). c:='трафарет';
c:=copy(c,4,1)+copy(c,2,2)+'к';

(10). c:='трафарет';
c:=copy(c,5,length(c)-4)+ copy(c,3,1);
insert('к',c,1);

(11). c:='трафарет';
c:=copy(c,1,3)+copy(c,length(c),1)+copy(c,3,1);
insert('у',c,1);

(12). c:='сигма';
delete(c,2,2);
insert('к',c,4);

(13). c:='информатика';
delete(c,1,2);
delete(c,7,3);

(14). c:='работа';
delete(c,1,1);
insert('з',c,1);

(15) c:='3.1415'; (16) c:='1999'; (17) c:='1803';
b:=copy(c,1,4); insert('21',c,3); delete(c,2,2);
val(b,x,p); val(c,x,p); insert('99',c,2);
str(x:3:1,c); str(x:4,c); val(c,x,p);
str(x:2,c);

14. Что делает данный фрагмент программы?

(1).for i:=1 to length(A) do if copy(A,i,1)='o' then begin delete(A,i,1); insert('a',A,i); end;	(6).for i:=1 to length(A) do begin c:=copy(A,2i-1,1); insert(c,A,2i-1); end;
(2).s:='абракадабра'; i:=1; while i<=length(s) do if copy(s,I,1)='а' then delete(s,i,1) else i:=i+1;	(7).p:='информатика'; i:=1; while i<=length(p) do if copy(p,i,1)='и' then delete(p,i,1) else i:=i+1;
(3).k:=length(A); if k/2=trunc(k/2) then delete(A,1,1) else delete(A,k,1);	(8).k:=length(A); if k/2=trunc(k/2) then delete(A,trunc(k/2),2) else delete(A,trunc(k/2),1);
(4).for i:=1 to length(A) do insert(copy(A,2i-1,1),A,2i);	(9).k:='каракатица'; i:=1; while i<=length(k) do if copy(k,i,1)='a' then delete(k,i,1) else i:=i+1;
(5).b:=trunc(length(k)/2); for i:=1 to b do k:=copy(k,1,i-1)+copy(k,length(k)-i+1,1)+copy(k,i+1,length(k)-2*i)+copy(k,i,1)+copy(k,length(k)-i+2,i-1);

15. Дополните описание стандартных процедур и функций обработки строковых переменных в соответствии с образцом, данным в пунктaх а) и e):

(1). procedure delete(var a: string; i: integer; j: integer);

(2). procedure insert();

(3). procedure val();

(4). procedure str();

(5). function length(a:string):integer;

(6). function concat();

(7). function copy();

(8). function pos();

(9). function ord();

(10). function chr();

16. Используя функции и процедуры обработки литерных данных перепишите команды:
(1) t:=copy(t,3,length(t)-2); через delete;
(2) t:=copy(t,1,2)+y+copy(t,3,length(t)-2); через insert;
(3) delete(t,3,1) через copy;
(4) insert(b,t,4) через copy.

17. Запишите в виде команды:
(1) если в слове нечетное число букв, то в конце поставить '*';
(2) если в слове нечетное число букв, то в начале поставить '!';
(3) поставить '.' в конце данного предложения, если 'а' там нет (использовать оператор insert).

18. Напишите фрагмент программы:

(1). Проверки: является ли слово палиндромом.

(2). Подсчета количества слов в предложении.

(3). Удаления символов, стоящих на нечетных местах.

(4). Вставки после каждого символа слова восклицательного знака.

(5). Удаления лишних пробелов между словами предложения.

(6). Замены одной точки на многоточие.

(7). Проверки: есть ли в слове символы отличные от букв.

(8). Обмена местами первого и последнего слов в предложении.

(9). Инвертирования каждого слова в предложении.

(10). Разбиения слова на слоги.