Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

recueil de programmation, begin, downto, disk, array, фортран, отчет, game, while, answers, publishing house, downto, sql, сохранить, analog, examples
 

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

Pascal. Pa.4. Nest of tasks. Operator If

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.1     Answer      Java-analogue      Visual Basic-analogue

Determine value of the variable dd after executing the following program


Program AA;
var
    k1, k2, k3, dd : integer;
begin
    k1:=3;    k2:=5;    k3:=7;
    if k1>1 then begin
        if k2<k3 then dd:=4
        else dd:=3
    end
    else dd:=2;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.2     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    k1, k2, k3, dd : integer;
begin
    k1:=3; k2:=5; k3:=7;
    if k1>10 then dd:=1
    else
        if k1 mod 3 = 1 then dd:=2
        else
            if k2 mod 5 = 1 then dd:=3
            else
                if k3 mod 3 = 2 then dd:=4
                else dd:=5
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.3     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    k1, k2, k3, dd : integer;
begin
    k1:=6; k2:=10; k3:=21;
    if k1>k2 then dd:=1
    else
        if k1>k3 then dd:=2
        else
            if k1+k2>k3 then dd:=3
            else
                dd:=4
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.4     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    k, dd : integer;
begin
    k:=40;
    if k mod 3 = 0 then dd:=1
    else
        if k mod 3 = 1 then dd:=2
        else
            if k mod 3 = 2 then dd:=3
            else
                dd:=4
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.5     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    k, dd : integer;
begin
    k:=45;
    if k div 3 = 13 then dd:=1
    else
        if k div 3 = 14 then dd:=2
        else
            if k div 3 = 15 then dd:=3
            else
                if k div 3 = 16 then dd:=4
                else dd:=5
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.6     Answer

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


Program Key;
type
    RR = (book, sheet, paper, pencil, table);
var
    k1, k2, k3 : RR; dd : integer;
begin
    k1:=sheet; k2:=paper; k3:=table;
    if k1 > k2 then dd:=1
    else
        if k3 > k2 then dd:=2
        else
            if k3 > pencil then dd:=3
            else dd:=4
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.4.7     Answer      Java-analogue      Visual Basic-analogue

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


Program Key;
var
    k, dd : integer;
begin
    k:=44;    dd:=0;
    if k mod 2 = 0 then dd:=dd+1;
    if k mod 3 = 1 then dd:=dd+2;
    if k mod 5 = 4 then dd:=dd+5;
    if k mod 6 = 4 then dd:=dd+9;
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007