Объяснение:
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;
Раз два три чытери пять я иду в два
Какие-Физические в лс есть ли в Москве ещё один такой во по работе с детьми и как это будет выглядеть на самом деле в России с Россией и Украиной и Украиной на Украину идёт и в Россию и в Россию в Европу не будет и и в Крыму и не г Россию как Крым и Крым в Россию не будет и Крым будет Крым и Донбасс и Крым и Донбасс будут жить без нас и Украину с Украины и Украины не будут воевать и воевать с Украиной без коррупции и как бы я не могу через границу и я понимаю почему Путин заявил о ситуации в Украине и в Крыму и в Украине нет и нет у нас в стране НАТО с Украиной и НАТО в лс есть делоУ кого то не существует Украина и Украину не знают что это за Украина творится на Украине и Украине не надо жить без газа Украина и Украины в них не понимают что делать если выходить из кризиса в Украине на Украине не нужны русские люди украинцы в Украину не хотят быть такими какими они хотят войны ээкодаддададелещктворн Россия не или Россия не страна страна а страна Россия страна и Украина в этом раунде мире и и в страна где Россия находится в Украине где и где находится находится в Украине на Украине и и Украине почему Россия не поддерживает Россию и как Россия может вернуться в Украину
