INFOSEKOLAH.NET

DescriptionPascalABC.png Screenshot of Lesson 1 Date 10.02.2020 Source Own screenshot, http://pascalabc.net/ssyilki-dlya-skachivaniya Author Ivan Bondarev...

Commons Attribution-Share Alike 4.0 truetrue English Turtle Dawing Unit of PascalABC.NET author name string: Smart squirrel 2020 Wikimedia username: Smart...

Creative Commons Attribution-Share Alike 4.0 truetrue English Screenshot of PascalABC.NET IDE author name string: Smart squirrel 2020 Wikimedia username: Smart...

DescriptionPascalABC Lesson3.png Screenshot of Lesson 3 Date 18 February 2020 Source Own screenshot, http://pascalabc.net/ssyilki-dlya-skachivaniya Author...

DescriptionPascalABC Lesson2.png Screenshot of Lesson 2 Date 18 February 2020 Source Own screenshot, https://pascalabc.net/ssyilki-dlya-skachivaniya Author...

{ PascalABC.Net} uses GraphABC; procedure Draw(x, y, x1, y1, k: integer); begin if k > 0 then begin var xn := (x + x1) div 2 + (y1 - y) div 2; var yn :=...

10, W div 5, Iterations); Redraw(); end. {Адаптировано под PascalABC 3.0.1.35.} uses GraphABC; const H = 50; Iterations = 6; procedure DrawTree(x, y, dx...

DescriptionPascalABC 1 Begin.png Screenshot of Lesson 1 Date 10.02.2020 Source Own work Author Рулин...

DescriptionPascalAbc Lesson2 2.png English: For lesson2 in wikibooks Date 18 February 2020 Source Own work Author Рулин...

DescriptionPascalABC 1 Itog.png Screenshot of Lesson 1 Date 9.02.2020 Source Own work Author Рулин...

DescriptionPascalABC Lesson3 2.png Screenshot of Lesson 3 Date 18 February 2020 Source Own screenshot, https://pascalabc.net/ssyilki-dlya-skachivaniya...

Fractals[i].RedrawFractal(); Redraw(); end; end. {Адаптировано под PascalABC 3.0.1.35.} uses GraphABC, PointRect; const N = 30; M = 20; Angle = 120; var W, H: integer;...

uses GraphABC; const K = 2.6; procedure RCircle(x, y, r: real):=Circle(Round(x), Round(y), Round(r)); procedure Draw(x, y, r: real); begin RCircle(x,...

uses GraphABC; procedure RRect(x, y, x1, y1: real; c: Color); begin SetBrushColor(c); FillRect(Round(x), Round(y), Round(x1), Round(y1)); end; procedure...

uses GraphABC; const N = 255; Max = 10; W = 400; H = 300; K = 0.002; begin SetWindowIsFixedSize(true); SetWindowSize(W, H); LockDrawing(); for var ix...

uses GraphABC; const N = 5; procedure RCircle(x, y, r: real):=Circle(Round(x), Round(y), Round(r)); procedure Draw(x, y, r: real); begin var r1 := r /...

uses GraphABC; const Angle = -Pi / 4; procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, l: real;...

'*H' - shift down during one iteration uses GraphABC; const H = 30; procedure Draw(x, y, x1, y1: integer; connect: boolean); begin var d := x1 - x; if...

uses GraphABC; procedure RDrawRectangle(x, y, x1, y1: real):=DrawRectangle(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, w, h: real);...

uses GraphABC; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, l: real); begin var xp := x +...

uses GraphABC; const P = 49 / 100; procedure RRect(x, y, x1, y1: real):=Rectangle(Round(x), Round(y), Round(x1 + 1), Round(y1 + 1)); procedure Draw(x...

of one branch relative to another MaxAng - maximum tilt angle uses GraphABC; const Rotate = 50; MaxAng = 10; var Ang: integer; procedure Draw(x, y, l...

uses GraphABC; const Rotation = 10; MinAngle = -180; MaxAngle = 0; RandomAngle = 45; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1)...

uses GraphABC; const Length = 240; Angle = 120; procedure Draw(x, y, r: real; ang, rotation: real); var xp, yp: real; begin var steps := 360 div Angle...

uses GraphABC; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, r, angle: real); begin var ang1...

uses GraphABC; const N = 10; K1 = 0.67; K2 = 0.18; IncAngle = 10; procedure Draw(x, y, r, ang: real); begin if r > 2 then begin Draw(x, y, r * K1, ang...

uses GraphABC; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1)); function Distance(x, y, x1, y1: real):= Sqrt(Sqr(x1...

uses GraphABC; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, r, angle: real); begin var angle1...

uses GraphABC; procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, x1, y1, x2, y2: real; iterations:...

https://ru.wikibooks.org/wiki/Книга программиста/Книга фракталов uses GraphABC; const Min = 1; DeltaAng = Pi / 20; CX = 320; CY = 240; var R: real; A: real;...

a random angle can take modulo AngleCount - number of corners uses GraphABC; const Rotation = 15; MinAngle = -400; MaxAngle = 400; RandomAngle = 10;...

original side length of the square RotationAngle - branch angle uses GraphABC; const Size = 100; RotationAngle = 45; procedure RLine(x, y, x1, y1: real)...

coefficient of change of the second radius DeltaAngle - branch angle uses GraphABC; const N = 11; K1 = 4; K2 = 0.6; DeltaAngle = 50; procedure RLine(x, y, x1...

uses GraphABC; const Rotate = 40; var Ang: integer; procedure Draw(x, y, l, angle: real; s: integer; toRight: boolean); begin var ang1 := DegToRad(angle);...

uses GraphABC; procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1)); function GetAngle(x, y, x2, y2: real): real; begin...

uses GraphABC; const Angle = -Pi / 4; type EdgeData = auto class A, B, C: Point; R: integer; end; var DataStack: Stack<EdgeData>; function RotatePoint(pA:...

uses GraphABC; const N = 4; R = 300; Inside = true; K = 0.5; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1)); procedure...

original side length of the square RotationAngle - branch angle uses GraphABC; const Size = 100; RotationAngle = 50; procedure RLine(x, y, x1, y1: real)...

uses GraphABC; const K1 = 0.99; K2 = 0.5; K3 = 0.45; IncAngle = 15; Rotation = 45; R1 = 130; R2 = 160; Iterations = 10; procedure RLine(x, y, x1, y1:...

uses GraphABC; procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1)); function GetAngle(x, y, x2, y2: real): real; begin...

RndMax - upper bound uses GraphABC; const RndMax = 255; type Point3D = class X, Y, Z: real; constructor(px, py, pz: real); begin X := px; Y := py; Z :=...

uses GraphABC; const K = 0.45; procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1)); procedure Draw(x, y, r, angle: real);...

:bottom) points <- Point.new(px - sd, py - d - sd, :left) end end end uses GraphABC; procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1)...

DescriptionШтамп текста.png English: Штамп текста Date 2 September 2017 Source Own work Author Владислав Молдован...