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;
Объяснение:
Ей, жарық күн, нұрыңды шаш далама,
шаш нұрыңды қарттарға, жас балаға,
ызғар сіңген жеріме шуақ керек,
мұқтаж оған ауыл да, астана да.
Сәулеңменен себеле үміт демін,
жер бетінен жылыссын күдіктерім.
Адамдардың сатқындық, сұмдығынан
қалжыраған жерімді жібіт менің.
Күңгірттенбей, көтерсін шыңым басын,
қарттарымның ұзартқын ғұмыр жасын.
Қорқыныш пен үрей жер кеуделерде,
қу бәрін де — соңына бұрылмасын!
Кетсін тағы шарықтап алысқа үнім,
қонақтасын ырыс пен табыс күнім.
Ұл-қыздары көтерсін қол ұстасып
қазағымның елдік пен намыс туын.
Жарқырасын шуақ боп алғашқы үміт,
жүректерді жүрекпен жалғастырып.
Адамзатқа бірлік бер, тыныштық бер –
ынтымақтан туындар бар жақсылық!
var
a,b:integer;
begin
readln(a,b);
case b of
1 : if a <= 19 then writeln('Зима. Козерог.') else writeln('Зима. Водолей.');
2 : if a <= 18 then writeln('Зима. Водолей.') else writeln('Зима. Рыбы.');
3 : if a <= 20 then writeln('Весна. Рыбы.') else writeln('Весна. Овен.');
4 : if a <= 19 then writeln('Весна. Овен.') else writeln('Весна. Телец.');
5 : if a <= 20 then writeln('Весна. Телец.') else writeln('Весна. Близнецы.');
6 : if a <= 20 then writeln('Лето. Близнецы.') else writeln('Лето. Рак.');
7 : if a <= 22 then writeln('Лето. Рак.') else writeln('Лето. Лев.');
8 : if a <= 22 then writeln('Лето. Лев.') else writeln('Лето. Дева.');
9 : if a <= 22 then writeln('Осень. Дева.') else writeln('Осень. Весы.');
10 : if a <= 22 then writeln('Осень. Весы.') else writeln('Осень. Скорпион.');
11 : if a <= 21 then writeln('Осень. Скорпион.') else writeln('Осень. Стрелец.');
12 : if a <= 21 then writeln('Зима. Стрелец.') else writeln('Зима. Козерог.');
end;
end.