используя вспомогательные алгоритмы нарисовать запрограммируйте рисование следую...

July 2022 1 20 Report

используя вспомогательные алгоритмы нарисовать запрограммируйте рисование следующих фигур

Answers & Comments

Giammy

Verified answer

// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses drawman;

begin
// поле 5 на 20
Field(20, 5);
// 1
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
Onvector(0, 1);
OnVector(1, 0);
Onvector(0, -1);
OnVector(1, 0);
Onvector(0, 1);
OnVector(1, 0);
Onvector(0, -1);
OnVector(1, 0);
PenUp;
//2
ToPoint(7, 2);
PenDown;
Onvector(0, 1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(1, 0);
OnVector(0, -1);
Onvector(1, 0);
OnVector(0, -1);
OnVector(-1, 0);
OnVector(0, -1);
OnVector(-1, 0);
OnVector(0, 1);
OnVector(-1, 0);
PenUp;
//3
ToPoint(11, 4);
PenDown;
OnVector(0, -2);
OnVector(0, 1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(0, -2);
PenUp;
//4
ToPoint(13, 4);
PenDown;
OnVector(0, -2);
OnVector(1, 0);
OnVector(0, 2);
OnVector(-1, 0);
PenUp;
//5
ToPoint(16, 4);
PenDown;
OnVector(-1, 0);
OnVector(0, -2);
OnVector(1, 0);
PenUp;
//6
ToPoint(17, 1);
PenDown;
OnVector(0, 1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(1, 0);
end.

17 votes Thanks 18

Answers & Comments

Verified answer

r sejchas proveryayut 3 nashi raboty uzhe proverili zavtra ih razdadut 4 on ne

ekologicheskaya situaciya i perspektivy zapadno sibirskoj neftyanoj bazy

pochemu sobytiya 17 veka poluchili nazvanie smuty kakoj smysl vkladyvali v eto opr

x-5...

sredi perechislennyh treh elementov ukazhite metall s naibolee silnymi metalliches

sravnite mezhdunarodnoe polozhenie rossii v nachale i konce 17 veka kakie proizoshl

na koordinatnoj pryamoj otmecheny chisla a i sce2dcd4594e40b69b500b38ba1c75a7b 45531

napishite sochinenie rassuzhdenie pozhalujsta obyasnite kak vy ponimaete smysl po

pomogite pozhalujsta napisat pismoc1e569bc7c4d12b474b006f7a2c6564b 67216

pomogite otvetit na voprosy pozhalujsta hotya by chastichno 1 can you imagine

рекомендуемые вопросы

Helpful Links

Helpful Social