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

UptoLike

ВУЗ: 

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

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

Рубрика: 

41
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)+'к';

Страницы