Простой пример на сложение двух синусоид (два варианта). Используется модуль упрощенной графики Info21sysTPGraphics. Кривая y=f(x) строится микроотрезками прямой процедурой LineTo. Ширина рисунка - 300 точек.
## Код:
```
MODULE  СборGrm10;  
   IMPORT  Gr := Info21sysTPGraphics, Math;

   PROCEDURE Окр( x: REAL): INTEGER; 
   BEGIN 
      RETURN SHORT( ENTIER( x + 0.5 ) ) 
   END Окр;
         
   PROCEDURE Do*;
      VAR  i, k, x, y: INTEGER;
   BEGIN Gr.Clear;   
      Gr.SetColor( 0 ); Gr.SetBkColor( 15 );
      Gr.MoveTo( 0, 70 );
      FOR i := 0 TO 300 DO
         y := 70 - Окр( 15 * Math.Sin( i / 3 ) + 
            40 * Math.Sin( i / 30 ) );
         x := i; Gr.LineTo( x, y )
      END;
      Gr.MoveTo( 0, 180 );
      FOR i := 0 TO 300 DO
         y := 180 - Окр( 10 * Math.Sin( i / 1.3 ) + 
            30 * Math.Sin( i / 16 ) );
         x := i; Gr.LineTo( x, y )
      END;
      Gr.String(80, 15, "Сложение синусоид");
      Gr.Open
   END Do;

END СборGrm10.

(Q) СборGrm10.Do  

   Здесь показано сложение синусоид с разными периодами и амплитудами.
```
