Pascall
uses crt,graphABC;
var w:char;
xc,yc,c,x,y,i:integer;
begin
hidecursor;
repeat
clrscr;
writeln('Выберите фигуру');
writeln('1-треугольник');
writeln('2-квадрат');
writeln('3-круг');
writeln('4-ромб');
writeln('5-эллипс');
writeln('другое - выход');
read(w);
xc:=windowwidth div 2;
yc:=windowheight div 2;
setpencolor(clRed);
case w of
'1':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));
for i:=1 to 4 do
begin
x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));
y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));
lineto(x,y);
end;
readln
end;
'2':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
rectangle(xc-150,yc-150,xc+150,yc+150);
readln
end;
'3':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
circle(xc,yc,150);
readln
end;
'4':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
moveto(xc-100,yc);
lineto(xc,yc-150);
lineto(xc+100,yc);
lineto(xc,yc+150);
lineto(xc-100,yc);
readln
end;
'5':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
ellipse(xc-150,yc-100,xc+150,yc+100);
readln
end;
end;
until not(w in ['1'..'5'])
end.
ответ: M[1] = 14 M[0] = 112 M[2] = 98
Распишем, что происходило:
M[0]: = 6
M[1]: = 6
M[2]: =8
M[1]: = M[0]+M[2] = 6 + 8 = 14
M[0]: = M[1] * M[2] = 14 * 8 = 112
M[2]: = M[0] - M[1] = 112 - 14 = 98