Объяснение:
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;
оглавление нужно? все равно напишу: Век роботов
Объяснение:
В последнее десятилетие ИИ или же искусственный интеллект стал приобретать всё больше влияние. В развитых странах потихоньку появляются или уже появились роботы. С одной стороны звучит неплохо, человек вступил в новую эпоху эволюции, но с другой стороны, как это обернётся? В первую очередь ИИ создана для того, чтобы облегчить жизнь людей, заменяя их тем что, выполняя всю работу за них. Есть много фильмов про восстания роботов. Может ли повториться один из сценариев фильма в реальности? Возможно. Эти роботы могут дать большой толчок в развитии человека, но есть и главный минус: тотальная слежка. Производители будут ставить скрытые камеры, чтобы отслеживать личную жизнь человека, что ему это не понравится. Такие действия могу привести к тоталитарному режиму по всему миру и не останется свободного пространства для людей. Они не смогут побыть наедине, поговорить лично с кем-то, ведь их всегда будет слышно и видно.
Человечество хочет побыстрее развиться во всех сферах, но стоит обдумать все последствия, и, возможно, если всё это проигнорировать, то это может обернуться к нам боком.
Торты|Пироги - Пироги + Торты&Пироги = 12000 - 7700 + 6500 = 10800