Написать программу для паскаля вычислите выражение: корень arctg^2(sin 3.15/6.1) + 53.7

использовать Чертежник

алг

нач

 опустить перо

 Д;И;М;А

 сместиться на вектор(1,0)

 Д;И;М;А

 сместиться на вектор(1,0)

 Д;И;М;А

кон

алг Д

нач

 опустить перо

 сместиться на вектор(0,3)

 сместиться на вектор(1,0)

 сместиться на вектор(0,-1)

 сместиться на вектор(-1,-0.5)

 поднять перо

 сместиться на вектор(2,-1.5)

кон

алг И

нач

 опустить перо

 сместиться на вектор(0,3)

 сместиться на вектор(0,-3)

 сместиться на вектор(1.5,3)

 сместиться на вектор(0,-3)

 поднять перо

 сместиться на вектор(1,0)

кон

алг М

нач

 опустить перо

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 поднять перо

 сместиться на вектор(1,0)

кон

алг А

нач

 опустить перо

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 поднять перо

 сместиться на вектор(1,0)

кон

Объяснение:

Вроде так

сорри если будет неправильно

если на C++, то вот процедуры:
если с библиотеки graphics.h
x и y нужно передавать левого верхнего угла буквы

#include <graphics.h>
#include <stdio.h>
#include <conio.h>
int x=50,y=50;
void M(int x,int y)
{ // длина буквы 44, высота тоже 44
x+=50;
line(x,y,x,y+44);
line(x,y,x+22,y+44);
line(x+22,y+44,x+44,y);
line(x+22,y+44,x+44,y+44);
}
void I(int x,int y)
{ // длина буквы 22, высота тоже 44
x+=28;
line(x,y,x,y+44);
line(x,y+44,x+22,y);
line(x+22,y,x+22,y+44);
}
void R(int x,int y)
{ // длина буквы 22, высота тоже 44
x+=28;
line(x,y,x,y+44);
line(x,y,x+22,y);
line(x,y+22,x+22,y+22);
line(x+22,y,x+22,y+22);
}

main()
{
initwindow(800,600);
M(x,y); I(x,y); R(x,y);
x=50;y=100;
R(x,y); I(x,y); M(x,y);
x=50;y=150;
M(x,y); I(x,y); M(x,y);
getch();
closegraph();
}

P.S. я старался