Графический "Чудо-домик", Графика и работа в Паскале Опции

[nadja yak]

привет, уважаемые программисты.
учусь в старших классах.Учимся мы на это презентации ниже выложу её голубушку.
Слайд №103
Графика в Паскале -там домик.
Программа создана для обучения учеников, только вот не пойму, как обучать,если программа не рабочая.Япервый раз сталкиваюсь с графикой.Будте любезны,исправте ошибку в программе с домиком, чтоб впоследствии мне по этому образцу делать и другие работы! Буду признательна!
=====>>> презентация внизу.
вот код,если не скачаете

program qq;
begin
   Pen(2, 255, 0, 255);
   Brush(1, 0, 0, 255);
   Rectangle(100, 100, 300, 200);
   MoveTo(100, 100);
   LineTo(200, 50);
   LineTo(300, 100);
   Brush(1, 255, 255, 0);
   Fill(200, 75);
   Pen(2, 255, 255, 255);
   Brush(1, 0, 255, 0);
   Ellipse(150, 100, 250, 200);
end.

Я так подозреваю, тут нет графического модуля? Как это всё оформить, чтоб заработало?

http://rghost.ru/5237242

Сообщение отредактировано: nadja yak - 18.04.2011 18:17

[Lapp]

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

И все же странно, что речь идет о Паскале

Графика в Паскале -там домик.

- но при этом дается пример на некотором другом языке..

Я так подозреваю, тут нет графического модуля?

Твои подозрения совершенно беспочвенны. В TurboPascal есть графический модуль Graph, который считается классическим и благодаря этому воспроизведен в более поздних средах - FreePascal, например. Конечно, этот модуль безнадежно устарел (как и сам TP), но раз уж у вас такой план обучения - что ж тут сделаешь..

Как это всё оформить, чтоб заработало?

Я "перевел" этот твой проимер на Паскаль (модуль Graph), придерживаясь оригинала, насколько это было возможным. Кое-где пришлось транслировать один вызов в два. Также, добавилось обычное паскалевское окружение (подключение модуля, объявление переменных, инициализация графики..) Я оставил все оригинальные строки, большинство их поместив в комментарии.

program qq;
uses
  Graph;

var
  gd,gm: integer;

begin
  gd:= Detect;
  InitGraph(gd,gm,'');
  {Pen(2, 255, 0, 255);}
  SetColor(Magenta);
  SetLineStyle(SolidLn,0,3);
  {Brush(1, 0, 0, 255);}
  SetFillStyle(SolidFill,LightBlue);
  {Rectangle(100, 100, 300, 200);}
  Bar(100,100,300,200);
  Rectangle(100, 100, 300, 200);

  {эта группа остается без изменений}
  MoveTo(100, 100);
  LineTo(200, 50);
  LineTo(300, 100);

  {Brush(1, 255, 255, 0);}
  SetFillStyle(SolidFill,Yellow);
  {Fill(200, 75);}
  FloodFill(200,75,Magenta);
  {Pen(2, 255, 255, 255);}
  SetColor(White);
  {Brush(1, 0, 255, 0);}
  SetFillStyle(SolidFill,LightGreen);
  {Ellipse(150, 100, 250, 200);}
  Ellipse(200, 150, 0, 360, 50, 50);
  FloodFill(200,150,White);

  ReadLn;
  CloseGraph
end.

Если что-то не пойдет (запросто может не инициализироваться графика, если у тебя путь к модулям не прописан или bgi файл не там..) - задавай вопросы.