Ей, жарық күн, нұрыңды шаш далама,
шаш нұрыңды қарттарға, жас балаға,
ызғар сіңген жеріме шуақ керек,
мұқтаж оған ауыл да, астана да.
Сәулеңменен себеле үміт демін,
жер бетінен жылыссын күдіктерім.
Адамдардың сатқындық, сұмдығынан
қалжыраған жерімді жібіт менің.
Күңгірттенбей, көтерсін шыңым басын,
қарттарымның ұзартқын ғұмыр жасын.
Қорқыныш пен үрей жер кеуделерде,
қу бәрін де — соңына бұрылмасын!
Кетсін тағы шарықтап алысқа үнім,
қонақтасын ырыс пен табыс күнім.
Ұл-қыздары көтерсін қол ұстасып
қазағымның елдік пен намыс туын.
Жарқырасын шуақ боп алғашқы үміт,
жүректерді жүрекпен жалғастырып.
Адамзатқа бірлік бер, тыныштық бер –
ынтымақтан туындар бар жақсылық!
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;
Объяснение:
По каналу связи непрерывно в течении 10 часов передаются данные. Скорость передачи данных в течении первых 6 часов составляет 512 Кбит в секунду, а остальное время - в два раза меньше. Сколько Мбайт данные было передано за время работы канала?
решение:
Объём информации вычисляется по формуле Q = q * t, где t — время передачи q — cкорость передачи данных.
Учтём, что в одном часе 3600 секунд, поэтому
Q = 512 Кбит/с * 6 * 3600 с + 512 / 2 Кбит/с * (10 - 6) * 3600 с = 14 745 600 Кбит = 1 843 200 Кбайт = 1800 Мбайт.
ответ: 1800.
Напишите мне письмо, я вам прекреплю файль с решением еще задания