Оформите в виде процедур алгоритмы рисования букв м,и,р составте алгоритмы рисования слов мир,рим,мим.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

красотка356

28.03.2022 06:18

Даны два треугольника если они равнобедренные то посчитать их площадь если равносторонние то вывести сообщение что они равносторонние и если они прямоугольные то посчитать...

Khamidullovaals

04.02.2023 01:37

1. Какие виды информации можно выделить по восприятия 1) ...2) ...3) ...4) ...5)2. Какие виды информации можно выделить по форме представления:2) ...3)4)3. Какие свойства...

Sniper2016

07.12.2022 09:22

нужна по информатике Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел (см. рисунок). Сколько было...

dariyakazakova1

13.01.2023 08:16

Переведи десятичное число 152 в систему счисления с основанием 2....

alliance234

10.03.2020 01:00

ОЧЕНЬ, ОЧЕНЬ И ОЧЕНЬ Покупка Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256...

Asala213

16.08.2020 02:29

1. Составьте программу, которая находит среднее арифметическое всех чисел от 5 до 27....

DestapTM

07.11.2020 17:30

очень нужно C. Морозостойкость массива ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт вводстандартный ввод выводстандартный вывод В...

anastasiamartyn

16.10.2022 16:23

ОСТАТОК ОТ ДЕЛЕНИЯ(Время: 1 сек. Память: 16 Мб Сложность: 7%)Напомним, как в математике определяется остаток от деления целых чисел.Для любых целых чисел a и b (b ≠ 0)...

AkaNika

17.04.2020 17:55

В файлах этого типа отсутствует ограничение для строки, данные сохраняются после преобразования в понятный для машины двоичный язык. О чем идет речь? двоичные файлы текстовые...

Anna7225

31.01.2023 19:46

Какое устройство памяти появилось раньше? 1.дискета 2. жёсткий диск 3. usb flash...

Ответ:

Оливия131

13.06.2020 07:22

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

uses graphABC;
const
    kegl = 40;

var
    space, line: integer;

procedure M(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl );
    LineTo(cx + kegl div 2, cy);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure I(cx, cy: integer);
begin
    MoveTo(cx, cy - kegl);
    LineTo(cx, cy );
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure R(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy - kegl div 2);
    LineTo(cx, cy - kegl div 2);
end;

begin
    space := kegl div 2;

    SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );

    line := space + kegl;
    M(space, line );
    I(2 * space + kegl, line );
    R(3 * space + 2 * kegl, line );

    line := 2 * space + 2 * kegl;
    R(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );

    line := 3 * space + 3 * kegl;
    M(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку