Как в pascalabc сделать паркет из ёлочек-подскажите, !

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses GraphABC;

type point=record

          x,y:integer;

          end;

procedure plitk(x,y,r:integer);

var p:array[1..9]of point;

   a,da:real;

   i:byte;

begin

a:=pi/2;

da:=pi/4;

for i:=1 to 9 do

begin

 p[i].x:=x+round(r*cos(a));

 p[i].y:=y-round(r*sin(a));

 a:=a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d:integer;

begin

r:=20;

y:=r;

while y<=windowheight do

begin

 x:=r;

 while x<=windowwidth do

  begin

   plitk(x,y,r);

   x:=x+2*r;

  end;

 y:=y+2*r

end;

end

Источники аналоговой информации(непрерывной):
1. Скрипка. Может создавать звук любой высоты. Переход от тона к тону происходит плавно и непрерывно.
2. телевизор. Луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно.
3. Телефон, Громкость звука меняется плавно и непрерывно.
4. Картина, нарисованная художником с использованием большого количества оттенков красок.
5. Графики функций.

Источники цифровой (дискретной) информации.
1. Фортепьяно . Нельзя исполнить звуки между нотами «ми» и «фа». Переход от ноты к ноте осуществляется скачком.
2. Монитор. Яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка).
3. Музыкальный проигрыватель компакт дисков.
4. Компьютер
5. Мобильные телефоны.

Аналоговую информацию можно превратить в цифровую (для этого достаточно, например, разным цветам присвоить номер или музыку записать нотами) и наоборот.

// PascalABC.NET 3.2, сборка 1478 от 10.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст, завершив его точкой:');
  var p:=Pos('.',s);
  if (p>0) and (p<s.Length) then s:=s[:p+1];
  Writeln('Количество предложений равно ',s.ToWords('!').Count)
end.

Пример
Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4!
Количество предложений равно 3

Если считать, что текст гарантированно завершается точкой, то можно упростить код программы до одного оператора:

begin
  Writeln('Количество предложений равно ',
    ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count)
end.