Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

граф, pascal, shr, null, многомерный, array, unit, begin, Excel, reusing, paste, text, процедурный, record, sql, оператор ветвления, visual, online, interruption
 

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

Pascal. Pa.14. Nest of tasks. Operator While

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.1     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz, n, k : integer;
begin
    zz:=0;    n:=2;        k:=1;
    while n>k do begin
        zz:=zz+1;
        n:=n+5;
        k:=k*2;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.2     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz, n : integer;
begin
    zz:=0;    n:=1;
    while zz<100 do begin
        zz:=zz+n;    n:=n+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.3     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz : integer;
begin
    zz:=1;
    while zz<1000 do zz:=zz*2;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.4     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz, k : integer;
begin
    zz:=0;    k:=1;
    while k<5 do begin
        if k mod 2 = 0 then zz:=zz-3
        else zz:=zz+5;
        k:=k+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.5     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz : integer;
begin
    zz:=1000;
    while zz>10 do zz:=zz div 3;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.6     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz, k : integer;
begin
    zz:=1;    k:=1;
    while k<5 do begin
        zz:=zz*k;    k:=k+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.7     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz : integer;
begin
    zz:=1;
    while not (zz mod 7 = 0) do zz:=zz+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.14.8     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    zz : integer;
    b1 : boolean;
begin
    zz:=0;    b1:=true;
    while b1 do begin
        zz:=zz+1;    b1:=b1 and (zz<5);
    end;
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007