Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

ссылка, alphabet, CD-ROM, external, registr, FAT32, code, site, const, javascript, algol, самообразование, по возрастанию, online, probleme, диаграмма
 

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

Pascal. Pc.3. Nest of tasks. Absolute addressing

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pc.3.1     Answer

Определить, какое число будет выводить на экран дисплея следующая программа. Считать, что процессор
является 16-разрядным, программа запускается в операционной системе MS-DOS 3.30 и странслирована в
системе программирования Turbo Pascal 6.0 с директивой Word align data (выравнивание на границу слова).


Program AA;
var
    x, y, z : integer;
begin
    writeln(LongInt(Addr(z))-LongInt(Addr(x)));
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pc.3.2     Answer

Определить, какое число будет выводить на экран дисплея следующая программа. Считать, что программа
запускается в операционной системе MS-DOS 3.30 и странслирована в системе программирования Turbo
Pascal 6.0 с директивой Word align data (выравнивание на границу слова).


Program AA;
var
    x : integer;
    y1, y2, y3 : char;
    z : integer;
begin
    writeln(LongInt(Addr(z))-LongInt(Addr(x)));
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pc.3.3     Answer

Определить, какое число будет выводить на экран дисплея следующая программа. Считать, что программа
запускается в операционной системе MS-DOS 3.30 и странслирована в системе программирования Turbo
Pascal 6.0 с директивой Word align data (выравнивание на границу слова).


Program AA;
var
    x : longint;
    y1, y2, y3 : char;
    z : longint;
begin
    z:=0;
    for x:=LongInt(Addr(x)) to LongInt(Addr(z)) do inc(z);
    writeln(z)
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pc.3.4     Answer

Определить, какое число будет выводить на экран дисплея следующая программа. Считать, что программа
запускается в операционной системе MS-DOS 3.30 и странслирована в системе программирования Turbo
Pascal 6.0 с директивой Word align data (выравнивание на границу слова).


Program AA;
var
    x : LongInt;
    y1, y2, y3 : char;
    z : LongInt;
begin
    x:=LongInt(Addr(z));
    z:=LongInt(Addr(x));
    writeln(x*x-2*x*z+z*z)
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007