Program Geografl; uses GraphABC;
var karta, R, A: integer;
begin
SetWindowSize (520,480);
karta:=LoadPicture ('belarus.gif');
DrawPicture (karta, 10,10);
setBrushColor (clRed);
A:=1700; R:=round (sqrt (A/pi)); circle (250,225,R);
A:=500; R:=round (sqrt (A/pi)); circle (405,345,R);
A:=330; R:=round (sqrt (A/pi)); circle (375, 215,R);
A:=340; R:=round (sqrt (A/pi)); circle (360,105,R);
A:=320; R:=round (sqrt (A/pi)); circle ( 55,235, R);
A:=300; R:=round (sqrt (A/pi)); circle ( 40,385,R);
end.

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;

Объяснение: