Ей, жарық күн, нұрыңды шаш далама,
шаш нұрыңды қарттарға, жас балаға,
ызғар сіңген жеріме шуақ керек,
мұқтаж оған ауыл да, астана да.
Сәулеңменен себеле үміт демін,
жер бетінен жылыссын күдіктерім.
Адамдардың сатқындық, сұмдығынан
қалжыраған жерімді жібіт менің.
Күңгірттенбей, көтерсін шыңым басын,
қарттарымның ұзартқын ғұмыр жасын.
Қорқыныш пен үрей жер кеуделерде,
қу бәрін де — соңына бұрылмасын!
Кетсін тағы шарықтап алысқа үнім,
қонақтасын ырыс пен табыс күнім.
Ұл-қыздары көтерсін қол ұстасып
қазағымның елдік пен намыс туын.
Жарқырасын шуақ боп алғашқы үміт,
жүректерді жүрекпен жалғастырып.
Адамзатқа бірлік бер, тыныштық бер –
ынтымақтан туындар бар жақсылық!
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. Поиск информации - извлечение хранимой информации.
2. Сбор - Сбор информации представляет собой накопление информации в любом из возможных видов для будущего использования информации.
3. Передача - передача информации (на бумажном, цифровом носителях) от отправителя к получателю.
4. Обработка информации - преобразование информации из одного вида в другой, осуществляемое по строгим формальным правилам.
5. Использование - Информация используется при принятии решений.
6. Защита.
Защитой информации называется предотвращение:
доступа к информации лицам, не имеющим соответствующего разрешения (несанкционированный, нелегальный доступ);
непредумышленного или недозволенного использования, изменения или разрушения информации.
Более подробно о защите информации мы остановимся далее.
7. Хранение - накопление информации и создание своеобразных архивов.