Система задач и упражнений по языку программирования Pascal. Часть 1 - 42 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

42
(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,i,1);
insert(c,A,2*i-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,I,1),A,2*i-1);
(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();

Страницы