1) Составте алгоритм управления Чертежником , после выполнения которого будут полученны следующий рисунок 2) Составте алгоритм у
1) Составте алгоритм управления Чертежником , после выполнения которого будут полученны следующий рисунок 2) <span>Составте алгоритм управления Чертежником , после выполнения которого будут полученны следующий рисунки</span>
1) использовать Чертежник алг нач опустить перо нц 5 раз сместиться на вектор(1,0) сместиться на вектор(0,-5) сместиться на вектор(-1,0) сместиться на вектор(0,5) сместиться на вектор(1,0) кц <span>кон 2.а) использовать Чертежник алг нач опустить перо нц 5 раз сместиться на вектор(0,1) сместиться на вектор(2,0) сместиться на вектор(0,-1) сместиться на вектор(1,1) сместиться на вектор(1,-1)кц нц 5 раз сместиться на вектор(-1,-1) сместиться на вектор(-1,1) сместиться на вектор(0,-1) сместиться на вектор(-2,0) сместиться на вектор(0,1) кц <span>кон 2.б)</span></span>использовать Чертежник <span>алг нач нц 4 раз нц 3 раз сместиться на вектор(1,-3) опустить перо сместиться на вектор(0,-1) сместиться на вектор(-1,0) поднять перо кц сместиться на вектор(2,13) кц <span>кон </span>2.в)</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(2,0)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
поднять перо
сместиться на вектор(1,1)
кц
сместиться на вектор(7,5)
нц 5 раз
опустить перо
сместиться на вектор(-2,0) сместиться на вектор(2,0) сместиться на вектор(0,-2) поднять перо сместиться на вектор(-1,1) кц сместиться на вектор(-7,-7) нц 5 раз опустить перо
сместиться на вектор(0,2) сместиться на вектор(0,-2) сместиться на вектор(2,0) поднять перо сместиться на вектор(-1,1) кц
сместиться на вектор(7,-5)
нц 5 раз
опустить перо сместиться на вектор(0,2) сместиться на вектор(0,-2) сместиться на вектор(-2,0) поднять перо сместиться на вектор(1,1) кц <span>кон</span>
Var n,max:real; begin max:=-maxint; writeln('Вводите числа'); repeat repeat readln(n); if (n<>round(n)) then writeln('Введено не целое!'); until (n=round(n)); if n>max then max:=n; until n=0; writeln('Максимум: ',max); end. _______________________ var n1,m1:real; n,m,c,result,ost:integer; begin ost:=1; writeln('Введите 2 числа'); repeat readln(n1,m1); if (n1<>round(n1))or(m1<>round(m1)) then writeln('Введено не целое!'); until (n1=round(n1))and(m1=round(m1)); n:=round(n1); m:=round(m1); while ost<>0 do begin if m>n then begin c:=m; m:=n; n:=c; end; ost:= n mod m; result:=m; n:=ost; end; writeln('НОД: ',m); end.