Чертежнику для выполнения был дан следующий алгоритм: Повтори 3 раза
сместиться на - 2 и - 1
команда 1
сместиться на 2 и 1
конец
Какой должна быть команда один чтобы чертежник вернулся в исходную точку
124
431
Ответы на вопрос:
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;
Популярно: Информатика
-
elen7213.02.2020 14:18
-
Пирожочек0702.03.2022 03:24
-
dashkurko1das19.02.2023 03:12
-
aaannnaaa111.02.2020 08:29
-
aleksandrovadia125.03.2022 23:13
-
konox201219.06.2021 09:06
-
asetburkutov0023.08.2020 10:14
-
melnicoff11.07.2022 06:28
-
taykinamatilda21.06.2020 18:45
-
мишаиванво19.11.2021 05:58