анимация в турбо паскаль

[mishammm]

всем привет. народ пожалуйста дорисуйте домик и облако в моей программе. тут типа восходит солнце.

uses
   crt,graph;
   var
      gd,gm:integer;
      x,y:real;
      i,j:integer;
      begin
      gd:=detect;
      initgraph(gd,gm,'');
      setcolor(1);
      J:=300;
      repeat
      for j:=320 downto 110 do begin
      clrscr;
      setcolor(3);
      setcolor(14);
      circle(getmaxx div( 2),j,39);
      floodfill(getmaxx div(2),j,14);

      delay(10);
      end;
      readln;
      until keypressed;
      closegraph;
      end.

[Serge_Bliznykov]

такая фигня устроит?

uses
   crt,graph;
const Rad = 50;
var
      gd,gm:integer;
      x,y: integer;
      i,j:integer;

procedure show_domik;
begin
SetColor(15);
Line(0, 449, 678, 449);
Rectangle(367, 347, 606, 448);
Rectangle(564, 403, 590, 447);
Rectangle(383, 385, 438, 420);
Rectangle(469, 384, 531, 418);
Line(408, 384, 408, 420);
Line(489, 384, 489, 417);
Line(513, 384, 513, 417);
Line(365, 346, 302, 346);
Line(302, 345, 471, 223);
Line(471, 223, 643, 343);
Line(603, 345, 642, 345);
Ellipse(88,73,0,360, 67, 30);

Ellipse(506,47,0,360, 98, 29);

Line(539, 248, 539, 270);
Line(540, 246, 573, 246);
Line(573, 246, 573, 295);
end;

begin
      gd:=detect;
      initgraph(gd,gm,'');
      setbkcolor(3);
      setcolor(3);
      cleardevice;
      x := getmaxx div( 2) - 70;
      show_domik;
      repeat
      for j:=GetMaxY-Rad-40 downto Rad  do begin
        SetFillStyle(1, Black);
        Circle(x,j, Rad);
        FillEllipse(x,j, Rad, Rad);

        SetColor(3);
        Circle(x,j, Rad);
        SetFillStyle(1,14);
        FillEllipse(x,j, Rad, Rad);

        delay(20);

       if keypressed then Break;
      end;
      Delay(1000);

      SetFillStyle(1, Black);
      Circle(x,Rad, Rad);
      FillEllipse(x,Rad, Rad, Rad);

      until keypressed;
      Readln;
      closegraph;
end.

[Маруся171996]

Извините за мою такую просьбу,но вы бы не могли вкратце объяснить все действия,которые сделаны в этой программе. Пожалуйста,если вам не трудно помочь

[min@y™]

Графика в досовском паскале?
Шёл MMXIV-й год...
Твой препод - маньяк?

[Serge_Bliznykov]

min@y™ да хоть 2015-й! Turbo Pascal вечен!

Маруся171996,
программа предельно простая.
выводится домик и облачка - потом в цикле or j:=GetMaxY-Rad-40 downto Rad

        SetColor(3);
        Circle(x,j, Rad);

стереть кружок (вывести цветом фона)

        SetFillStyle(1,14);
        FillEllipse(x,j, Rad, Rad);

выводится желтый кружок (аллегория Солнца)

маленькая пауза...
и цикл повторяется.

Что Вам конкретно не понятно?

[min@y™]

да хоть 2015-й! Turbo Pascal вечен!

А я и не спорю, вечен.
Преподавать-то его графику зачем?

[Serge_Bliznykov]

Преподавать-то его графику зачем?

не ко мне вопрос! Я тоже не вижу в этом никакого смысла.
Предположения, почему так, есть, конечно. Но это только мои догадки...
Но хуже не это. Думаю, что у тех школяров/студентов, которые получают подобные задания нет выбора... Сие есть весьма печально.


p.s. кстати, постоянно до сих пор возникают ученики с заданиями на графику в QBasic, ещё более жестянная жесть, имхо!

[min@y™]

постоянно до сих пор возникают ученики с заданиями на графику в QBasic, ещё более жестянная жесть, имхо!

Мне на работе приходится писать программы на MSQC под DOS! Вот это - ЖЭСТЬ! Но есть и плюсы: платят неплохие бабки за ненапряжную работу.

Пришлось написать себе IDE

[Маруся171996]

непонятна запись вот эта x := getmaxx div( 2) - 70; - почему div 2 и минус 70

for j:=GetMaxY-Rad-40 downto Rad do begin и вот здесь что означает это GetMaxY-Rad-40.
И Rad - это радиус?
извините за,возможно,глупые вопросы

[Stilet]

x := getmaxx div( 2) означает получение середины экрана по координате Х
GetMaxX - получение ширины экрана. div 2 даст пол-ширины т.е. центр экрана
А -70 это смещение на 70 влево от центра экрана.