Ети задания нужно реализовать на Paskal 1. Побудувати на екрані прямокутну систему…

BeginP[1,1]: =-1,0/Sqrt (2,0); P[1,2]: =-P[1,1]; P[1,3]: =0,0; P[2,1]: =-1,0/Sqrt (6,0); P[2,2]: =P[2,1]; P[2,3]: =-2,0*P[2,1]; End; Procedure computer_dimetric_matrix (alpha: Real; var P: projection); Vart: Real; Beginalpha: =pi*alpha/180,0; P[1,1]: =-1,0/Sqrt (2,0); P[1,2]: =-P[1,1]; P[1,3]: =0,0; t: =Sin (alpha) /cos (alpha); P[2,1]: =t*P[1,1]; P[2,2]: =P[2,1]; P[2,3]: =Sqrt (1,0-Sqr (t); End;