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

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

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

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

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

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

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

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

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

5
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3862 / 2848 / 3632
Регистрация: 05.06.2014
Сообщений: 13,962
03.04.2017, 11:47 #2
Как Нарисовать гриб в ПАСКАЛЬ
0
igormel
0 / 0 / 0
Регистрация: 27.12.2016
Сообщений: 12
03.04.2017, 11:51  [ТС] #3
Я его нарисовал. Мне нужен именно растущий.
0
Puporev
Модератор
54387 / 41968 / 28988
Регистрация: 18.05.2008
Сообщений: 98,861
03.04.2017, 11:59 #4
Цитата Сообщение от igormel Посмотреть сообщение
Я его нарисовал.
Покажите код.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3862 / 2848 / 3632
Регистрация: 05.06.2014
Сообщений: 13,962
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
Модератор
54387 / 41968 / 28988
Регистрация: 18.05.2008
Сообщений: 98,861
03.04.2017, 12:51 #6
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Чуть поправил.
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

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

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

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


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

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

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