Доброго времени суток. Прошу помочь в решении задачи. Вот условие: нужно составит программу вывода в верхнюю часть экрана изображение тучи, а в нижнюю – емкость для воды; при нажатии клавиши Enter начинает идти дождь. В то время, как идет дождь, туча начинает уменьшаться, а емкость наполняется.
Окей, условие понятно. Чем помочь?
как вообще нарисовать тучу, анимацию дождя и уменьшение тучи? искал много где похожих задач, но что все неудачно
С помощью стандартного модуля graph, например. В нем есть процедуры и функции для рисования линий, окружностей, дуг и так далее. Если нет учебника, вот краткое описание с примерами: http://www.rus-edu.bg/schooldoc/ftp/inf/bookinf/practice/2_8/2_8_0.html.
Попробуй написать сам, для начала, и выложи результат. Если что-то не получится, сделаем вместе.
на графику фулскрин обязательно? а то win7 стоит, даже простые шаблоны не запускает, ругается на разрешение, в турбо или фри норм будет, не знаете?
Используй FreePascal, там все нормально. Качать http://www.freepascal.org/down/i386/win32-russia.var.
Program tu4ki;
uses
crt,graph;
procedure graphinterface;
var
Gd,Gm:Integer;
begin
Gd:=Detect;
InitGraph(Gd,Gm,'');
if GraphResult<>grOk then
begin
Halt(1);
end;
end;
begin
clrscr;
graphinterface;
setbkcolor(9);
arc(120,100,45,315,40);
arc(170,100,45,135,40);
arc(220,100,225,360,40);
arc(220,100,0,135,40);
arc(170,100,225,315,40);
sector(165,400,180,360,120,90);
floodfill(170,100,7);
readkey;
CloseGraph;
end.
Не знаю, что у тебя там работало, потому что работать не особо должно было..
1. Сомневаюсь, что тебе нужен SetBkColor. Ты попробуй сначала без него, а потом подключи, если надо будет. Он работает не совсем так, как иногда хочется..
2. Устанавливай цвет в SetColor(<color>);.
3. Перед FloodFill установи SetFillStyle(SolidFill,<color>);
Добавлено через 1 мин.
и еще:
4. В FloodFill нужно указывать цвет границы, до чего заполнять (то есть твой <color>)
Добавлено через 6 мин.
То есть, примерно так:
var
CloudBorderCol,CloudCol: integer;
begin
graphinterface;
CloudBorderCol:=DarkGray;
CloudCol:=LightGray;
SetColor(CloudBorderCol);
arc(120,100,45,315,40);
arc(170,100,45,135,40);
arc(220,100,225,360,40);
arc(220,100,0,135,40);
arc(170,100,225,315,40);
sector(165,400,180,360,120,90);
SetFillStyle(SolidFill,CloudCol);
floodfill(170,100,CloudBorderCol);
readkey;
CloseGraph;
end.
решил поднять тему, принцип понял, но реализовать не могу... пробовал по-разному, но безуспешно, единственное что понятно, чтобы чтото начало двигаться, надо вместо цифр ставить параметры и в циклах их изменять и все)
uses
WinCRT,Graph;
const
n=40;
l1=10;
l2=20;
a=-0.2;
b=20;
SkyCol=Black;
RainCol=Cyan;
type
tRain= record
x,y,z,dx,dy: integer
end;
var
Rain: array[1..n]of tRain;
Gd,Gm,i,g: Integer;
begin
Gd:=Detect;
InitGraph(Gd,Gm,'');
if GraphResult<>grOk then Halt(1);
g:=GetMaxY-b-l2-l1;
for i:=1 to n do with Rain[i] do begin
dy:=l1+Random(l2-l1+1);
dx:=Round(dy*a);
x:=b+Random(GetMaxX-2*b);
y:=b+Random(GetMaxY-2*b)
end;
repeat
for i:=1 to n do with Rain[i] do begin
if y>g then begin
SetColor(SkyCol);
Line(x,y,x+dx,y+dy);
Line(x+dx,y+dy,x+2*dx,y+2*dy);
dy:=l1+Random(l2-l1+1);
dx:=Round(dy*a);
x:=b+Random(GetMaxX-2*b);
y:=b
end;
SetColor(SkyCol);
Line(x,y,x+dx,y+dy);
SetColor(RainCol);
Line(x+2*dx,y+2*dy,x+3*dx,y+3*dy);
Inc(x,dx);
Inc(y,dy)
end;
until KeyPressed;
while KeyPressed do ReadKey;
CloseGraph;
end.
да спасибо, можно же сделать чтобы дождь шел только в определенной области? поставить ограничения на параметры?