Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока не снизу свободно и слева свободно
закрасить
влево
кц
кон
Допустим Pascal. На нем обычно ведется обучение.
IF x>7 then y:=x-3 else
IF x<-5 then y:=4*sqr(x) else
y:=5;
# Код на ruby 2.2.3p173
def zadanie(results)
results = results.sort.reverse
return [results[0], results[1]]
end
# Примеры применения
p zadanie([1,2,7,8,6,4,8,8,4,9])
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>
Ответ на задание:
Можно выбрать любую точку координатной плоскости в качестве одной из вершин. Один из четырех возможных вариантов программы: Использовать Чертежник
Поднять перо
Сместиться в точку (4,4)
Опустить перо
Сместиться на вектор (0,4)
Сместиться на вектор (3, 0)
Сместиться на вектор (0, -4)
Сместиться на вектор (-3, 0)