Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
The Terry
1 / 1 / 0
Регистрация: 06.10.2013
Сообщений: 106
1

Нарисовать узор. Использовать заливку красным цветом для каждой окружности

01.04.2014, 23:14. Просмотров 861. Ответов 1
Метки нет (Все метки)

Написать программу, которая выводит изображенный ниже узор. Использовать заливку красным цветом для каждой окружности. Прорисовка каждой окружности выполняется с задержкой 1000 мс. После полной прорисовки стирать изображение и повторно выводить узор до нажатия Esc.
Нарисовать узор. Использовать заливку красным цветом для каждой окружности
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2014, 23:14
Ответы с готовыми решениями:

Холодную температуру нарисовать синим цветом, теплую - красным
В материалах занятия приведен код программы, которая строит столбчатую...

Как сделать чтобы wrate печтал слова красным цветом
Как сделать чтобы wrate печтал слова красным цветом.Зарнее спасибо

Нарисовать узор в графическом режиме
Здравствуйте! Нужно написать программу в графическом режиме, которая выводит...

Выделить буквы "р" в последнем слове теста красным цветом
Задано текст. Выделить буквы "р" в последнем слове теста красным цветом. ...

Написать программу, которая выводит изображенный ниже узор. Использовать заливку красным цветом для каждой окружности
Написать программу, которая выводит изображенный ниже узор(4X5 Окружностей...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26334 / 17664 / 6999
Регистрация: 22.10.2011
Сообщений: 31,079
Записей в блоге: 6
02.04.2014, 00:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
{$mode objfpc}
uses crt, graph;
 
const R = 100;
var
  gd, gm : smallint;
  i, j : integer;
  ch : char;
begin
  initgraph(gd, gm, '');
  setcolor(black);
 
  ch := #0;
  repeat
    setfillstyle(solidfill, lightgray);
    bar(0, 0, getmaxx, getmaxy);
    setfillstyle(solidfill, red);
 
    for i := 0 to 19 do
    begin
      fillellipse(succ(i mod 5) * R, succ(i div 5) * R,
                  (R div 2)+10, (R div 2)+10);
      for j := 0 to i do
      circle(succ(j mod 5) * R, succ(j div 5) * R, (R div 2)+10);
      delay(100); // задержку сам подбери ...
    end;
 
    while keypressed do
      ch := readkey;
 
  until ch = #27;
  closegraph;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2014, 00:29

Написать программу, которая вычерчивает на экране ракету, и перемещает фигуру снизу вверх. Использовать заливку цветом
Помогите пожалуйста, срочно нужно)

Найти сумму четных элементов каждой строки массива и раскрасить красным цветом четные элементы
Заполнить двумерный числовой массив А целыми числами. Найти сумму четных...

Есть код окружности, но не могу сделать заливку самой окружности по пикселям
using System; using System.Collections.Generic; using System.ComponentModel;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru