Напишите для графического исполнителя алгоритм,который чертит вдоль границ поля пунктирную рамку(размеры поля произвольны).расстояние между пунктирами - 1 шаг,длина пунктира - 1 шаг.исходное положение исполнителя - произвольное.
1. получить стартовые координаты 2. перейти на стартовые координаты 3. выбрать цвет кисти 4. входим в цикл обнуление всех счетчиков 4.1 проверяем количество повортов если оно равно 4 на выход иначе продолжаем 4.2 проверям не конец ли рамки если конец поврот на 90 градусов 4.3 чертим штрих 4.4 сдвигаемся на шаг 4.5 возвращаемся в пункт 4.1
Procedure GetAB(x: integer; var a: integer; var b: integer); begin a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 100); x := x div 100; end; end;
var x, a, b: integer;
begin for x := 10000 to 2000000000 do begin GetAB(x, a, b); if (a = 3) and (b = 18) then Println(a, b, x); end; end.
Математика R - это радиус физика H - это ньютон(сила) химия C2H5OH - это этанол(этиловый спирт) биология днк это дезоксирибонуклеидовые кислоты сама абревиатура не лучший пример, но обозначение это или даже обозначение гена и его кодировка вполне нормальные варианты география 55°45.1332′ 37°36.9336′ координаты Москвы если брать кодирование как код, а не как шифр, то для упрощения и одновременного уточнения, пример с географией - данная кодировка дает точно понять местоположение, на примере математики сокращенная запись, и в то же самое время абсолютно универсальная математики всех стран знают что это радиус
2. перейти на стартовые координаты
3. выбрать цвет кисти
4. входим в цикл обнуление всех счетчиков
4.1 проверяем количество повортов если оно равно 4 на выход иначе продолжаем
4.2 проверям не конец ли рамки если конец поврот на 90 градусов
4.3 чертим штрих
4.4 сдвигаемся на шаг
4.5 возвращаемся в пункт 4.1