Задания.

Раздаточный материал

1. Запишите чему равны значения в результате следующих преобразований.

a,b,c,d:string;

i,i1:integer;

a:='принтер';b:='рой';

c:='устройство';

a) i:=length(с);

b) i1:=pos(b,с);

c) d:=а+'-'+с;

d) d:=copy(с,9,2)+copy(с,4,1);

e) insert('земле',b,1)

d:=b+'ка';

f) delete(с,5,6)

d:=c+'ица';

2.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d,r:string;

i,i1:integer;

a:='радиоприемник';b:='приемник';

c:='устройство';r:='тол'

a) i:=length(а);

b) i1:=pos(b,а);

c) d:=с+'-'+а+'!';

d) d:=copy(а,7,1)+copy(а,5,1)+copy(a,3,1);

   d:=d+'н'+copy(b,7,2);

e) insert('с',r,1);

   insert('ик',r,5);

f) delete(а,1,5);

   delete(а,6,3);

   r:=a+copy(а,13,1)+copy(a,2,1);

3.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d,r:string;

i,i1:integer;

a:='гиперболоид';b:='бол';

c:='оружие';r:='лодка'

a) i:=length(а);

b) i1:=pos(b,а);

c) d:=а+'-'+с;

d) d:=copy(а,6,3)+'т';

   d:=d+copy(a,2,1)+сopy(r,4,1);

e) r:='ф'+сopy(c,3,1)+'т';

   insert(r,b,1);

   f) delete(а,1,7);

   delete(а,3,2);

   r:=a+copy(c,2,1)+copy(a,length(a),1);

4.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d,e:string[18];

i,i1:integer;

a:='механическая';b:='молекулярная';

c:='физика';

a) i:=length(а)+length(b)+length(c);

b) i1:=pos(a,copy(b,11,2));

c) d:=a+' и '+b+' '+c;

d) e:=а+' '+copy(b,1,7)+copy(c,6,1);

e) insert(''+c,a,13);

   insert(' ',a,13);

   insert(' '+b,a,13);

   f) delete(а,7,3);

   delete(а,8,2);

   a:=a+'-' +copy(а,1,3);

5.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d,r:string;

i,i1:integer;

a:='Turbo Pascal';b:='язык';

c:='программирования';

a) i:=length(а)+length(b);

b) i1:=pos(a,'а');

c) d:=b+' '+с+' для '+а+'7.0';

d) r:=copy(c,1,8)+copy(a,8,1)+' на '+b+'e';

r:=r+сopy(a,6,length(а));

e) insert('7.0',a,13);

   insert('Basic ',b,1);

   f) delete(а,1,6);

   delete(а,4,3);

   r:='Расширение '+a;

6.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d:string;

i,i1:integer;

a:='телевизор';b:='лев';

c:='устройство';

a) i:=length(а);

b) i1:=pos(b,а);

c) d:=с+'-'+а;

d) d:=copy(а,5,3)+copy(а,6,1)+copy(с,4,1)+'ь';

e) insert('по',b,1;

d:=b+'ка';

f) delete(а,1,6);

d:=a+'ька';

7.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d:string;

i,i1:integer;

a:='клавиатура';b:='тур';

c:='устройство';

a) i:=length(а);

b) i1:=pos(b,а);

c) d:=с+'-'+а;

d) d:=copy(а,2,3)+copy(а,3,1);

e) insert('ок',b,4);

f) delete(а,5,6);

d:=a+'а';

8.Запишите чему равны значения в результате следующих преобразований.

a,b,c,d:string;

i,i1:integer;

a:='сканер';b:='ан';

c:='устройство';

a) i:=length(а);

b) i1:=pos(b,а);

c) d:=с+'-'+а;

d) d:=copy(а,2,3)+copy(с,5,1)+copy(а,5,1);

e) insert('га',b,4)

d:=b+'р';

f) delete(а,4,3)

d:=a+'т';

Ответы (решения)

1. а) 10;

b) 4;

c) принтер-устройство;

 d) вор;

e) землеройка;

f) устрица

2. a) 13;

b) 6;

c) усторойство-радиоприемник!;

d) родник;

 e) столик;

f) приемка.

3. a) 11;

b) 6;

c) гиперболоид-оружие;

d) болтик;

e) футбол;

f) лорд.

4. a) 30;

b) 0;

c) механическая и молекулярная физика;

d) механическая молекула;

е) физика

f) механик-мех

5. a)16
b)0
c)язык программирования Turbo Pascal7.0
d)программа на языке  Pascal
e)Basic язык
f)Расширение Pas

6. a)9
b)3
c)устройство-телевизор
d)визирь
e)полевка
f)зорька

7. a)10
b)7
c)устройство-клавиатура
d)лава
e)турок
f)клава

8. a)6
b)3
c)устройство-сканер
d)каное
e)ангар
f)скат