Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

mod, file, протокол, until, метод пузырьков, prolog, private, database, const, div, десятичный, value, file, промежуточный, type, case, constructor, reusing
 

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

Pascal. Pa.16. Nest of tasks. Arrays

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.1     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=i;
    for i:=5 to 7 do moon[i]:=moon[i] div 2;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.2     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    n1, n2, k, m : integer;
begin
    for k:=1 to 10 do moon[k]:=11-k;
    for k:=1 to 10 do moon[k]:=moon[k]*k;
    for k:=1 to 5 do begin
        n1:=k*2-1;
        n2:=k*2;
        m:=moon[n1];
        moon[n1]:=moon[n2];
        moon[n2]:=m;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.3     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    n, k, m : integer;
begin
    for k:=1 to 10 do moon[k]:=1;
    for k:=1 to 3 do begin
        n:=k*3-2;
        moon[n]:=2;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.4     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    k, m : integer;
begin
    for k:=1 to 3 do begin
        n:=k*3-2;
        moon[n]:=1;
    end;
    for k:=1 to 3 do begin
        n:=k*3-1;
        moon[n]:=2;
    end;
    for k:=1 to 3 do begin
        n:=k*3;
        moon[n]:=3;
    end;
    moon[4]:=4;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.5     Answer

Determine first four values of array Moon after executing the following program


Program AA;
type
    Tiger = (house, car, airplane, spaceship, fighter);
var
    moon : array[1..10] of Tiger;
    n, m, t : integer;
    k : Tiger;
begin
    for t:=1 to 10 do begin
        m:=t div 3;
        k:=house;
        for n:=1 to m do k:=succ(k);
        moon[t]:=k;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.6     Answer

Determine first four values of array Moon after executing the following program


Program AA;
type
    Tiger = (house, car, airplane, spaceship, fighter);
var
    moon : array[1..10] of Tiger;
    i, m : integer;
    k : Tiger;
begin
    k:=house;    m:=0;
    for i:=1 to 2 do begin
        m:=m+1;
        moon[m]:=k;
    end;
    k:=succ(k);
    for i:=1 to 3 do begin
        m:=m+1;
        moon[m]:=k;
    end;
    k:=succ(k);
    for i:=1 to 5 do begin
        m:=m+1;
        moon[m]:=k;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.7     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=i*3-2;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.8     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    i, j : integer;
begin
    for i:=1 to 10 do moon[i]:=i;
    for i:=1 to 3 do
        for j:=i to i*3 do
            moon[i]:=moon[i]+moon[j];
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.9     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of integer;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=i+(i mod 4);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.10     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of boolean;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=(i mod 3 = 1);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.11     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of boolean;
    i : integer;
begin
    for i:=1 to 10 do moon[i]:=(i mod 2 = 1);
    for i:=1 to 5 do moon[i+5]:=not moon[i];
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.12     Answer      Java-analogue      Visual Basic-analogue

Determine first four values of array Moon after executing the following program


Program AA;
var
    moon : array[1..10] of boolean;
    i, k : integer;
begin
    for i:=1 to 5 do begin
        k:=2*i-1;
        moon[k]:=false;
        k:=2*i;
        moon[k]:=true;
    end;
    for i:=1 to 10 do
        moon[i]:=moon[i] and (i mod 3 = 0);
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.13     Answer      Java-analogue      Visual Basic-analogue

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


program AA;
var
    man, i : integer;
    k : array[1..5] of integer;
begin
    for i:=1 to 5 do k[i]:=i;
    for i:=1 to 4 do k[i]:=k[i]+k[i+1];
    man:=0;
    for i:=1 to 5 do man:=man+k[i];
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.14     Answer      Java-analogue      Visual Basic-analogue

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


program AA;
var
    Man, I, J : integer;
begin
    Man:=0;    J:=10;
    for I:=1 to 4 do begin
        if I mod 2 = 0 then J:=J-2
        else J:=J+1;
        Man:=Man+J;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.16.15     Answer      Java-analogue      Visual Basic-analogue

Determine the content of array Tiger at the end of the following program


program AA;
var
    Tiger : array[1..4] of integer;
    I, J, M, KKK : integer;
begin
    Tiger[1]:=5;    Tiger[2]:=3;
    Tiger[3]:=10;    Tiger[4]:=8;
    for I:=1 to 3 do
        for J:=1 to I do begin
            M:=J+1;
            if Tiger[J]>Tiger[M] then begin
                KKK:=Tiger[J];
                Tiger[J]:=Tiger[M];
                Tiger[M]:=KKK;
            end;
        end;
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007