Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

çàïðîñ, bit, downto, USB, ïðÿìîå âêëþ÷åíèå, ïåðåìåùåíèå ìèíèìàëüíîãî ýëåìåíòà, core, pascal, return, forward, breakpoint, label, for, text, system, ïóáëèêàöèÿ
 

for valuable work you must have JavaScript (allow active content)

Pascal. Pa.23. Nest of tasks. Strings

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.1     Answer      Java-analogue      Visual Basic-analogue

Determine a value of the variable Man after executing the following program


Program AA;
var
    Man, i : integer;
    str : string;
begin
    str:=’a’;
    for i:=1 to 4 do str:=str+str;
    Man:=length(str);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.2     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    a, b : string;
    k : integer;
begin
    a:=’a’; b:=’b’;
    for k:=1 to 3 do begin
        a:=a+b; b:=b+a;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.3     Answer      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    a, b : string;
begin
    a:=’a’; b:=’b’;
    repeat
        a:=a+b; b:=b+a;
    until length(b)>5
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.4     Answer      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    a, b : string;
begin
    a:=’a’;    b:=’b’;
    repeat
        a:=a+b;    b:=b+a;
    until length(b)>2*length(a)
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.5     Answer      Visual Basic-analogue

Determine a value of the variable Man after executing the following program


Program AA;
var
    a, b : string;
    Man, k : integer;
begin
    a:=’a’;    b:=’b’;
    repeat
        for k:=1 to length(b) do a:=a+a;
        for k:=1 to length(a) do b:=b+b;
    until length(b)>100;
    Man:=length(b)
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.6     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    b : string;
    k : integer;
begin
    b:=’’;
    for k:=1 to 5 do b:=b+chr(ord(‘b’)+length(b))
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.7     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    a, b : string;
    k : integer;
begin
    a:=’abcdef’;    b:=’’;
    for k:=1 to 3 do b:=b+a[k*2-1]
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.8     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    b : string;
    ch : char;
begin
    b:=’’;
    for ch:=’a’ to ‘f’ do b:=b+ch
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.9     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    b : string;
    k : integer;
begin
    b:=’b’;
    for k:=1 to 3 do b:=’a’+b+’a’
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.10     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    b : string;
    k : integer;
begin
    b:=’b’;
    for k:=1 to 3 do b:=b+’a’+b
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.11     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    b : string;
    k : integer;
begin
    b:=’b’;
    for k:=1 to 2 do b:=b[1]+b[length(b)]+b
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.12     Answer      Java-analogue      Visual Basic-analogue

Determine the value of string b after executing the following program


Program AA;
var
    a, b : string;
    k : integer;
begin
    b:=’abc’;
    for k:=1 to 2 do b:=b+b[k]
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.23.13     Answer      Java-analogue      Visual Basic-analogue

Determine a value of the variable Man after executing the following program


Program AA;
var
    Man, i : integer;
    str : string;
begin
    str:=’bb’;
    for i:=1 to 5 do str:=str+str;
    Man:=length(str);
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007