[Pascal] графика в Pascal'e

[Baldwin]

Господа со-форумщики, я не хотел было писать это сообщение, но, увы, сам проблему решать не могу. Дело в том, что нужно написать программу с графикой в паскале, в чем я абсолютный 0. И, если, вы мне поможете - я дубу несказанно благодарен и точно так же рад.

А вот собственно сама задача: Дано аквариум, который на 80% заполнен водой, на дне этого аквариума есть разноцветные водоросли, камни, и песок. По аквариуму плавает рыба по произвольной траектории, и по-пути она кушает эти водоросли. Как только она приближается к стенке аквариума, она поворачивается и плывет в другую сторону.

Но это еще не конец моих проблем. И все из-за того, что у меня стоит Windows 7, и турбо паскаль не запускается, а в Паскале АВС такой функции как "графика" нет. Поэтому я не знаю что делать.

[psycho-coder]

И все из-за того, что у меня стоит Windows 7

Ставь VirtualBox. Поскольку 7-ка не может открыть консоль в полноэкранном режиме. На виртуалку ставь ХР или Дос.
А потом смотри тут

[Serge_Bliznykov]

psycho-coder
+1

Паскале АВС такой функции как "графика" нет

а Вы не ошибаетесь?
а это тогда на чём? (пример кода из
"...\PABC\SAMPLES\GraphABC"

// Мозаика. Квадратики случайным образом меняются местами
uses GraphABC;

const 
  w=25;
  w1=1;
  m=50;
  n=70;
  x0=0;
  y0=0;

var i,j,i1,j1,di,dj,v,k: integer;
    a: array [0..n,0..m] of integer;

begin
  SetWindowCaption('Мозаика');
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  begin
    a[i,j]:=RGB(Random(256),Random(256),Random(256));
    SetBrushColor(a[i,j]);
    FillRect(x0+i*w,y0+j*w,x0+(i+1)*w-w1,y0+(j+1)*w-w1);
  end;
  while true do
  begin
    k:=k+1;
    if k mod 1000 = 0 then 
    begin
      k:=0;
      Sleep(1);
    end;  
    i:=Random(n-2)+1;
    j:=Random(m-2)+1;
    di:=Random(3)-1;
    dj:=Random(3)-1;
    i1:=i+di; j1:=j+dj;
    v:=a[i,j];
    a[i,j]:=a[i1,j1];
    a[i1,j1]:=v;
    SetBrushColor(a[i,j]);
    FillRect(x0+i*w,y0+j*w,x0+(i+1)*w-w1,y0+(j+1)*w-w1);
    SetBrushColor(a[i1,j1]);
    FillRect(x0+i1*w,y0+j1*w,x0+(i1+1)*w-w1,y0+(j1+1)*w-w1);
  end;
end.

[Stilet]

Ставь VirtualBox.

Простого Dos-Box хватит...

[Serge_Bliznykov]

Сообщение от Stilet

Простого Dos-Box хватит...

о.. это я проглядел. . прочитал сообщение от psycho-coder
и почему то прочитал не то..
разумеется, простого DosBox должно хватить. и мороки ЗНАЧИТЕЛЬНО меньше, чем на виртуальке поднимать операционку специально под TurboPascal.

Сообщение от Baldwin

Дано аквариум....

Ну так Вы уже что-то самостоятельно начали делать? Рыбку нарисовали? Водоросли, камни? Потому как это всё достаточно морочно (я уже не говорю, что требует определённых художественных способностей).. Если, конечно, не нарисовать рубку парой, тройкой треугольников + кружок для глаза
Вы тему создали в разделе "Помощь студентам", так какую помощь Вы ожидаете? что всё сделают за Вас? я бы не особо на это не расчитывал.. Не потому, что задание сложное, а именно в силу вышесказанного - оно достаточно трудоёмкое..

Может быть, Вам во Фриланс надо?

[psycho-coder]

Сообщение от Stilet

Простого Dos-Box хватит...

Про него я даже не подумал.