Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
igormel
0 / 0 / 0
Регистрация: 27.12.2016
Сообщений: 12
#1

Получить изображение растущего гриба - Free Pascal

03.04.2017, 11:45. Просмотров 185. Ответов 5
Метки нет (Все метки)

Нарисовать кое-как смог. Проблемы с ростом.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2017, 11:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить изображение растущего гриба (Free Pascal):

Графика ветки и растущего плода. - Pascal
люди... бьюсь над задачей уже неделю... как можно сделать на паскале программу, которая отображает : гнущаяся под тяжестью...

Получить изображение сгорающей свечи - Free Pascal
Получить изображение сгорающей свечи.

Получить изображение перемещающегося НЛО - Free Pascal
Получить изображение перемещающегося НЛО, который то приближается, то удаляется.

Получить изображение государственного флага Швейцарии - Pascal
Получить на экране изображение государственного флага Швейцарии. Составить программу, отладить, составить правило пользования.

Получить изображение падающей капли дождя - Free Pascal
Получить изображение падающей капли дождя.

Получить изображение человеческого глаза и продемонстрировать его моргание - Free Pascal
Получить изображение человеческого глаза и продемонстрировать его моргание.

5
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3839 / 2826 / 1942
Регистрация: 05.06.2014
Сообщений: 13,841
03.04.2017, 11:47 #2
Как Нарисовать гриб в ПАСКАЛЬ
0
igormel
0 / 0 / 0
Регистрация: 27.12.2016
Сообщений: 12
03.04.2017, 11:51  [ТС] #3
Я его нарисовал. Мне нужен именно растущий.
0
Puporev
Модератор
54041 / 41674 / 14753
Регистрация: 18.05.2008
Сообщений: 98,001
03.04.2017, 11:59 #4
Цитата Сообщение от igormel Посмотреть сообщение
Я его нарисовал.
Покажите код.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3839 / 2826 / 1942
Регистрация: 05.06.2014
Сообщений: 13,841
03.04.2017, 12:12 #5
Взято отсюда:
Нарисовать вырастающий гриб

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
uses
  crt,graph;
var
  gd, gm: integer;
  PathToDriver: string;
  i: integer;
 
procedure Grib(k: byte);
begin
  setfillstyle(SolidFill, Green);
  Bar(0, 260, 300, 300);
  setfillstyle(SolidFill, White);
  Bar(150 - (k div 4), 260, 150 + (k div 4), 260 - (k));
  setfillstyle(SolidFill, Brown);
  Sector(150 - (k div 16), 260 - k, 0, 180, k, k);
end;
 
begin
  gd := VGA; { highest possible resolution }
  gm := VGAHi; { not needed, auto detection }
  PathToDriver := 'C:\PP\BGI'; { path to BGI fonts, drivers aren't needed }
  InitGraph(gd, gm, PathToDriver);
  if GraphResult <> grok then
    halt;
  for i := 1 to 100 do
  begin
    clearviewport;
    Grib(i);
    delay(100);
  end;
  CloseGraph; { restores the old graphics mode }
  readln;
end.
0
Puporev
Модератор
54041 / 41674 / 14753
Регистрация: 18.05.2008
Сообщений: 98,001
03.04.2017, 12:51 #6
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Чуть поправил.
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
uses wincrt,graph;
var  gd,gm,x0,y0,i:integer;
procedure Grib(k: byte);
begin
setfillstyle(SolidFill, Green);
bar(x0-150,y0,x0+150,y0+40);
setfillstyle(SolidFill, White);
bar(x0-(k div 4),y0,x0+(k div 4),y0-k);
setfillstyle(SolidFill, Brown);
setcolor(Brown);
sector(x0,y0-k,0,180,k,k);
end;
 
begin
initGraph(gd, gm, '');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
for i:=1 to 100 do
 begin
  clearviewport;
  Grib(i);
  delay(100);
 end;
readkey
end.
0
03.04.2017, 12:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2017, 12:51
Привет! Вот еще темы с ответами:

Получить изображение квадрата и показать его увеличение относительно неизменного центра - Free Pascal
используя модyль graph

Получить изображение куба и закрасить его верхнюю грань некоторым цветом - Free Pascal
Написать программу получения изображения куба и закраски его верхней грани некоторым цветом после нажатия на клавишу Enter.

Получить изображение параллелепипеда и закрасить его боковую грань (модуль Graph) - Free Pascal
Написать программу получения изображения параллелепипеда и закраски его боковой грани некоторым цветом после нажатия на клавишу Enter.

Определить, через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А? - Pascal ABC
Гриб за сутки увеличивает свою массу на 40%. Через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла...


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

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

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