主页 / 问题 / 670411
Accepted
NTP
Asked:2020-05-25 03:57:22 +0000 UTC2020-05-25 03:57:22 +0000 UTC

是否可以用 Pascal ABC 中的文本填充扇区？

  • 772

请帮我做一个像照片中那样的东西，只有俄文。我可以在 Pascal 中绘制扇形，但如何用文本填充它们？也许这可以用其他语言更容易地完成，只是我只知道简单的绘图模块Pascal。

在此处输入图像描述

uses crt, GraphABC;
const A: array[1..33] of integer = (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1);
var u, u0, S, i: integer;
begin
SetWindowSize(800, 800);
circle(400, 400, 50);
S:=0; 
u0:=0;
for i:=1 to 33 do
S:=S+A[i];
for i:=1 to 33 do
begin
SetBrushColor(rgb(255,255,255));
u:=u0+round(A[i]*360/S);
Pie(400,400,390,u0,u);
u0:=u; 
end;
drawcircle(400, 400, 330);
circle(400, 400, 270);
end.
pascalabc.net

1 个回答

  1. Best Answer

    您可以使用 PascalABC 本身显示旋转的文本。我喜欢你的任务，帕斯卡决定记住。稍微更改了您的代码：

    uses GraphABC;
const
  r1 = 180;
  r2 = 240;
  r3 = 300;
  r23 = (r2 + r3) div 2;
  w = 2 * r3;
  h = 2 * r3;
  cx = r3;
  cy = r3;
  N = 32;

procedure draw_rotated_text(x, y, a: integer; s: string);
var prev_a: real;
begin
  coordinate.OriginX := coordinate.OriginX + x;
  coordinate.OriginY := coordinate.OriginY + y;
  prev_a := coordinate.Angle;
  coordinate.Angle := a;
  DrawTextCentered(0, 0, 0, 0, s);
  coordinate.OriginX := coordinate.OriginX - x;
  coordinate.OriginY := coordinate.OriginY - y;
  coordinate.Angle := prev_a;
end;

var
  i, S, u0, u1, u01, x, y: integer;
  a, ai: real;

begin
  SetWindowSize(w, h);
  window.SetPos(300, 10);
  font.Size := 30;
  a := 0;
  ai := 360 / N;
  for i := 1 to N do
  begin
    u0 := round(a);
    u1 := round(a + ai);
    u01 := (u0 + u1) div 2;
    x := cx + round(r23 * cos(degtorad(u01)));
    y := cy - round(r23 * sin(degtorad(u01)));
    Pie(cx, cy, r3, u0, u1);
    draw_rotated_text(x, y, 90 - u01, 'A');
    a := a + ai;
  end;
  drawcircle(cx, cy, r2);
  circle(cx, cy, r1);
end.
    • 1

相关问题