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;
Объяснение:
Объяснение:
1)
1.
Заголовок.
Шапка сайта.
Навигация.
УТП.
Конверсионная форма.
Футер.
2.
wiх
Wееbly.
gооglе sitеs
3 не знаю
4.
Увеличение лояльности клиентов;
Увеличение продаж за счет новых клиентов;
Сокращение расходов на службы технической и/или информационной поддержки;
Увеличение объема продаж;
2)
1.Если главная страница такого ресурса создана грамотно, она сможет заинтересовать посетителей (даже тех, кто просто перешел по внешней ссылке), тем самым, увеличить аудиторию сайта.
2.
Более легкая навигация
Простой дизайн загружается быстрее
Контент более легкий для восприятия
3. не уверен
