Алгоритм месяц
1Открыть программу paint
2Выбрать снизу нужный цвет
3Взять инструмент «кривая линия» и нарисовать линию
4Затем оттянуть её (сделать полукругом)
5Взять снова эту линию и повторить то же самое
6Тапнуть по инструменту лупа и проследить, чтобы не было щелей между линиями
7Выполнить заливку »месяца»
Алгоритм цветок
Повторяем пункты 1 и 2
3 Берём инструмент круг и рисуем круг
4 Далее рисуем вокруг него ещё круги (лепестки)
5 выполняем заливку нужным цветом
6 выбираем инструмент линию и рисуем стебель
Алгоритм для колобка
Повторяем пункты 1 и 2
3 Выбираем инструмент круг и рисуем круг
4 Этим же инструментом рисуем глаза и нос
5 Выполняем заливку нужным цветом
6 Берём инструмент кривая линия и рисуем улыбку(растягиваем хоть до ушей)
7 Берём инструмент карандаш и рисуем недостающие части тела
Алгоритм месяц
1Открыть программу paint
2Выбрать снизу нужный цвет
3Взять инструмент «кривая линия» и нарисовать линию
4Затем оттянуть её (сделать полукругом)
5Взять снова эту линию и повторить то же самое
6Тапнуть по инструменту лупа и проследить, чтобы не было щелей между линиями
7Выполнить заливку »месяца»
Алгоритм цветок
Повторяем пункты 1 и 2
3 Берём инструмент круг и рисуем круг
4 Далее рисуем вокруг него ещё круги (лепестки)
5 выполняем заливку нужным цветом
6 выбираем инструмент линию и рисуем стебель
Алгоритм для колобка
Повторяем пункты 1 и 2
3 Выбираем инструмент круг и рисуем круг
4 Этим же инструментом рисуем глаза и нос
5 Выполняем заливку нужным цветом
6 Берём инструмент кривая линия и рисуем улыбку(растягиваем хоть до ушей)
7 Берём инструмент карандаш и рисуем недостающие части тела
var x,y:integer;
begin
x:=100;
y:=100;
setpenwidth(8);
setpencolor(clBlue);
drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clgreen);
Drawcircle(x,y,50);
inc(x,110);
end.