Даны два числа 29 и 17. перевести их в двоичную систему счисления, в которой выполнить сложение, вычитание и умножение этих чисел.

29 в двоичной системе =11101 17 = 10001 11101+10001=101110 11101+10001=1100 11101*10001=111101101

В Питоне импорт осуществляется командой import. При этом существует несколько импорта. Рассмотрим работу с модулем на примере math. Итак,

>>> import math

Ничего не произошло. Однако в глобальной области видимости появилось имя math. Если до импорта вы упомянули бы имя math, то возникла бы ошибка NameError. Теперь же

>>> math <module 'math' (built-in)>

В программе завелся объект math, относящийся к классу module.

Чтобы увидеть перечень функций, входящих в этот модуль, воспользуемся встроенной в Python функцией dir(), передав ей в качестве аргумента имя модуля:

>>> dir(math) ['__doc__', '__loader__', '__name__', '__package__', '__spec__', 'acos', 'acosh', 'asin', 'asinh', 'atan', 'atan2', 'atanh', 'ceil', 'copysign', 'cos', 'cosh', 'degrees', 'e', 'erf', 'erfc', 'exp', 'expm1', 'fabs', 'factorial', 'floor', 'fmod', 'frexp', 'fsum', 'gamma', 'gcd', 'hypot', 'inf', 'isclose', 'isfinite', 'isinf', 'isnan', 'ldexp', 'lgamma', 'log', 'log10', 'log1p', 'log2', 'modf', 'nan', 'pi', 'pow', 'radians', 'sin', 'sinh', 'sqrt', 'tan', 'tanh', 'trunc']

Проигнорируем имена с двойными подчеркиваниями. Все остальное – имена функций и констант (переменных, которые не меняют своих значений), включенных в модуль math. Чтобы вызвать функцию из модуля, надо впереди написать имя модуля, поставить точку, далее указать имя функции, после чего в скобках передать аргументы, если они требуются. Например, чтобы вызвать функцию pow из math, надо написать так:

>>> math.pow(2, 2) 4.0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Program Geograf1;

Uses crt, GraphABC;

var karta,R,A: ineger;

Begin

SetWindowSize (520,480);

karta:=LoadPicture('belarus.gif');

DrawPicture (karta,10,10);

SetBrushColor (clRed);

A:=1700; R:=round (sgrt (A/pi));

circle (250,225,R);

A:=500; R:=round (sgrt (A/pi));

circle (405,345,R);

A:=330; R:=round (sgrt (A/pi));

circle (375,215,R);

A:=340; R:=round (sgrt (A/pi));

circle (360,105,R);

A:=320; R:=round (sgrt (A/pi));

circle (55,235,R);

A:=300; R:=round (sgrt (A/pi));

circle (40,385,R);

End.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Program Geograf2;

Uses crt, GraphABC;

Const A:= array[1..5] of integer =(690,613,495,493,459);

B:= array[1..5] of string =('Днепр', 'Березина', 'Припять', 'Сож', 'Неман ');

var karta,  i : ineger;

begin

SetWindowSize (600,520);

karta:=LoadPicture('belfiz.gif');

DrawPicture (karta,30,120);

SetBrushColor (clBlue);

SetPenWidth(5);

Writeln ('Длина реки на территории Беларуси, тыс.км ');

for i:=1to 5 do begin

Writeln ( B [i], ' ', A[ i ]);

Line(160, 10+20*i, 160+ round(0.5*A[ i ]), 10+20*i);

End;

End.

Задачи:

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Program upr_a;

Uses crt, GraphABC;

Const A:= array[1..4] of real =(87.5, 71.5,82.4, 94);

B:= array[1..4] of string =('Беловежская пуща', 'Браславские озера', 'Припятский', 'Нарочанский');

var karta,i,R: integer;

begin

SetWindowSize (520,480);

writeln ('Площадь парков Беларуси:');

karta:=LoadPicture('d:/uprajneniya/karta.gif');

DrawPicture (karta,10,50);

SetBrushColor (clRed);

for i:=1to 4 do

writeln (B[i], ' ' , A[i], 'тыс.га');

R:=round (sgrt (A[1]/pi));

circle (50,400,R);

R:=round (sgrt (A[2]/pi));

circle (250,100,R);

R:=round (sgrt (A[3]/pi));

circle (300,400,R);

R:=round (sgrt (A[4]/pi));

circle (200,200,R);

End.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Program upr_b ;

Uses crt, GraphABC;

Const A:= array[1..8] of real =(79.6, 52.8,40.3,37.7,36.1, 26.0, 24.6,22.3);

B:= array[1..8] of real =(24.8, 7.5, 2.9, 11.5, 12.0, 2.3, 8.1, 8.7);

C:= array[1..8] of string =(' Нарочь', 'Освея', 'Черврное', 'Лукомльское', 'Выгонщанское', 'Нещердо', 'Свирь');

var karta,i,S: integer;

begin

SetWindowSize (640,480);

writeln ('Площадь и глубина озер Беларуси:');

karta:=LoadPicture('d:/uprajneniya/karta.gif');

DrawPicture (karta,340,0,250,200);

Writeln ( 'Озеро' :15, 'Площадь':13, 'Глубина':9);

for i:=1to 8 do

writeln (i , C[i]:15, ' ' , A[i]:7:2, ' км.кв', B [ i ]:7:2, 'м');

writeln; writeln;

Объяснение: