Есть ответ 👍

Чертежнику для выполнения был дан следующий алгоритм: Повтори 3 раза
сместиться на - 2 и - 1
команда 1
сместиться на 2 и 1
конец
Какой должна быть команда один чтобы чертежник вернулся в исходную точку​

124
431
Посмотреть ответы 1

Ответы на вопрос:

dppfpffpfp
4,7(51 оценок)

procedure tform1.button1click(sender: tobject); varb: tbitmap; x,y: integer; beginif opendialog1.execute and (ansilowercase(extractfileext(opendialog1.filename))='.bmp') thenbeginb: =tbitmap.create; b.loadfromfile(opendialog1.filename); x: =(form1.clientwidth div .width div 2); y: =(form1.clientheight div .height div 2); form1.canvas.draw(x,y,b); b.free; end; end;

Популярно: Информатика