Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

лектор, xslt, downto, analog, протокол, семантика, сборник, hierarchy, sql, file, file, if, pascal, xml, address, uses, implementation, path, counter, value, сборник задач по программированию
 

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

Pascal. Pa.33. Nest of tasks. Functions

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.1     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n*(n-1);
end;
function Pr2 (k, n : integer) : integer;
begin
    Pr2:=k*k-n*n;
end;
begin
    s:=0;
    for i:=1 to 2 do s:=s+Pr1(Pr2(i+1,i));
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.2     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n+1;
end;
begin
    s:=1;
    for i:=1 to 4 do s:=Pr1(s);
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.3     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    m, j : integer;
function Pr (n : integer) : integer;
var
    i, s : integer;
begin
    s:=0;
    for i:=1 to n do s:=s+i;
    Pr:=s;
end;
begin
    m:=1;
    for j:=1 to 3 do m:=m*Pr(j);
    writeln(m);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.4     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, j : integer;
function Pr1 (n, k : integer) : boolean;
begin
    Pr1:=not (n*k>k div 2);
end;
begin
    s:=0;
    if Pr1(3,4) then s:=15
    else
        for j:=1 to 3 do s:=s+j;
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.5     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n div 2;
end;
function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n;
end;
function Pr3 (n : integer) : integer;
begin
    Pr3:=n mod 2;
end;
begin
    s:=0;
    for i:=Pr1(3) to Pr2(3) do s:=s+Pr3(i);
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.6     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i, j : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n div 2;
end;
function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n;
end;
function Pr3 (n : integer) : integer;
begin
    Pr3:=n mod 2;
end;
begin
    s:=0;
    for i:=1 to 2 do
    for j:=Pr1(i) to Pr2(i) do s:=s+Pr3(j);
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.7     Answer      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, k : integer;
function Pr (n : integer) : boolean;
var
    j, m : integer;
begin
    m:=0;
    for j:=1 to n do m:=m+j;
    Pr:=(m mod n=0);
end;
begin
    s:=0;        k:=3;
    repeat
        s:=s+k;     k:=k+1;
    until Pr(k);
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.8     Answer      Java-analogue      Visual Basic-analogue

Determine a value of the variable XX at the end of the following program


Program AA;
var
    XX, k, m : integer;

function A1(N : integer) : integer;
begin
    A1:=N*N;
end;

function A2(N : integer) : integer;
begin
    A2:=A1(N)+2;
end;

function A3(N : integer) : integer;
begin
    A3:=A1(N)*3;
end;

begin
    XX:=0;
    for k:=1 to 2 do
        for m:=A2(k) to A3(k) do XX:=XX+1
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.9     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i : integer;

function Pr1 (n : integer) : integer;
begin
    Pr1:=n*(n-1);
end;

function Pr2 (k, n : integer) : integer;
begin
    Pr2:=k*k-n*n;
end;

begin
    s:=0;
    for i:=1 to 2 do s:=s+Pr1(Pr2(i+1,i-1));
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.10     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n*3+1;
end;

begin
    s:=1;
    for i:=1 to 4 do s:=Pr1(s);
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.11     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s : integer;

function Pr1 (n, k : integer) : boolean;
begin
    Pr1:=( (n+k+2) > ((k*5) div 3) );
end;

begin
    s:=0;
    if Pr1(3,4) then s:=s+2;
    if Pr1(3,2) then s:=s+3;
    if Pr1(4,6) then s:=s+7;
    if Pr1(5,1) then s:=s+11;
    if Pr1(0,2) then s:=s+20;
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.12     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i : integer;

function Pr1 (n : integer) : integer;
begin
    Pr1:=n div 2;
end;

function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n;
end;

function Pr3 (n : integer) : integer;
begin
    Pr3:=n mod 2;
end;

begin
    s:=0;
    for i:=Pr1(3) to 3 do s:=s+Pr1(Pr2(Pr3(i)));
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.13     Answer      Java-analogue      Visual Basic-analogue

Determine a number produced by this program


Program AA;
var
    s, i, j : integer;

function Pr1 (n : integer) : integer;
begin
    Pr1:=n+2;
end;

function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n+5;
end;

function Pr3 (n : integer) : integer;
begin
    Pr3:=n*2;
end;

begin
    s:=0;
    for i:=1 to 2 do
        for j:=Pr1(i) to Pr2(i) do s:=s+Pr3(j);
    writeln(s);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.33.14     Answer

Determine a value of the variable Man at the end of the following program


Program AA;
type
    Animal = (cat, dog, rabbit, fox, wolf, bear, hare);
var
    a, b : Animal;
    Man : integer;

function Beat(x,y : Animal) : boolean;
begin
    Beat:=((x=dog) and (y=cat)) or
        ((x=wolf) and (y=fox)) or
        ((x=bear) and (y=wolf));
end;

begin
    Man:=0;
    for a:=cat to fox do
        for b:=cat to rabbit do
            if Beat(a,b) then Man:=Man+1;
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007