КОНТРОЛЬНАЯ РАБОТА No1 Ne
Задание
В таблицах приведена протяженность автомагистралей между соседними населенными пунктами. Если
ответ
пересечение строки столбца пусто, то соответствующие населенные пункты не являются соседними.
Укажите номер таблицы, для которой выполняется условие «Максимальная протяженность маршрута от
пункта C до пункта В не больше 6». Протяженность маршрута складывается из протяженности
автомагистралей между соответствующими соседними населенными пунктами. При этом через любой
насеченный пункт маршрут должен проходить не более одного раза.
ABCD E
А в с DIE
С
A B C D E
1 A
3
7 A 25 6
A
26 As 2 6
В
2
B 2.
3
B
2
в 15
5
с 3
6
с 5
С 2
2
с 2
2
D 2 6 1 D 3
1 D 2
D
22
3
52
E 7
1
E 6
Е 16
EI6
1)
2)
A
B
D
E
2
4)

Объяснение:

uses GraphABC;

const

 Path = 'C:\Ilya\AlgoРитмы\Sankt-Peterburg.txt';

 DisplacementX = 10;

 DisplacementY = -10;

begin

 SetWindowIsFixedSize(true);

 var H := Window.Height;

 var A := ReadAllText(Path).Replace(',', '.').ToReals();

 var StepX := Window.Width / (A.Count - 1);

 var Min := Abs(A.Min);

 var Max := A.Max() + Min;

 var B := A.Select((x, i) -> (x, Round(StepX * i), Round(H - (A[i] + Min) / Max * H))).ToList();

 for var i := 0 to B.Count - 2 do

 begin

   var c := Round(255 - (B[i].Item3 + B[i].Item3) * 0.5 / H * 255);

   SetPenColor(RGB(0, c, c));

   SetBrushColor(RGB(0, c, c));

   Polygon(Arr(new Point(B[i].Item2, H), new Point(B[i].Item2, B[i].Item3),

               new Point(B[i + 1].Item2, B[i + 1].Item3), new Point(B[i + 1].Item2, H)));

 end;

 SetFontColor(clBlack);

 SetBrushColor(ARGB(200, 255, 255, 255));

 for var i := 0 to B.Count - 1 do

   TextOut(B[i].Item2 + DisplacementX, B[i].Item3 + DisplacementY, FloatToStr(B[i].Item1));

end.

Круговая диаграмма

Комментарии к коду  [показать]

uses GraphABC;

const

 N = 5;

 R = 150;

 K = 0.7;

var

 A: array of integer;

 Angle: real;

begin

 SetWindowIsFixedSize(true);

 SetWindowSize(500, 500);

 var W := Window.Width div 2;

 var H := Window.Height div 2;

 SetLength(A, N);

 for var i := 0 to N - 1 do

   Readln(A[i]);

 var Sum := A.Sum();

 SetPenWidth(2);

 var R2 := R * K;

 for var i := 0 to N - 1 do

 begin

   var ang := Round(A[i] / Sum * 360);

   SetBrushColor(clRandom());

   Pie(W, H, R, Round(Angle), Round(Angle - ang));

   var ang2 := DegToRad(360 - Angle + ang / 2);

   SetBrushColor(clWhite);

   TextOut(Round(W + R2 * Cos(ang2)), Round(H + R2 * Sin(ang2)), Format('{0} [~{1}%]', A[i], Round(A[i] / Sum * 100)));

   Angle -= ang;

 end;

Объяснение:

1. Б

2. В

3. Б

4.  Не понимаю сути вопроса

5. Б

6. Анализ, обобщение, синтез

7. В

8. В

9. Б

10. А

11. Б

12. Б

13. Г

14. Умозаключение, понятие, суждение

15. А

16. Б

17. А  

18. Переместить, копировать, удалить, открыть (кодировать не уверен)

19. В

20. 1, 3, 5, 8 (7 не уверен)  

21. Б

22. А

23. Монитор, колонки, принтер

24. Графический планшет, клавиатура, сканер, микрофон

25. Кнопка "Пуск", панель быстрого запуска, панель задач, флажок, значки (ярлыки) (текстовое поле ?)

P.S. Заранее извини, если что-то неправильно.