Разработка эмблемы. Pascal.

[NitriNKa]

Разработать и нарисовать эмблему фирмы по заданию преподавателя. Необходимо использовать несколько геометрических фигур (квадрат, прямоугольник, эллипс, окружность, дуги и т.д.), заливку разными цветами, текстовую надпись. Применить анимацию. (помогите, хотя бы пример какой нибудь , чтобы я смогла сделать потом сама)

[Олвин]

Придумал на ходу качестве примера.

uses graph, crt; 
var 
d, m, i: Integer;
s : string;
begin
InitGraph(d, m, '');
SetColor(14);
for i := 1 to 15 do
 begin
 ellipse(320, 240 - i * 5, 0, 360, 150 - i * 5, 50 + i * 5);
 delay(10000);
 end;
SetColor(9);
for i := 165 to 220 do
 begin
 line(230, i, 410, i);
 delay(5000);
 end;
SetColor(0);
s := 'Microsoft_Corporation';
for i := 1 to length(s) do
 begin
 OutTextXY(238, 190, copy(s, 1, i));
 delay(4000);
 end;
SetColor(2);
for i := 0 to 48 do
 begin
 line(0, i * 10, 320, 480);
 line(640, i * 10, 320, 480);
 delay(5000);
 end;
SetColor(4);
OutTextXY(270, 0, 'PRESS_ANY_KEY');
readkey;
CloseGraph;
end.

[NitriNKa]

а как она работает?? Вот Run нажимаю, появляется чёрный экран, и опять потом поле с программой.

[OCTAGRAM]

А если написать
InitGraph(d, m, 'X:\BP');

то работает?

[Олвин]

А у меня работает и так...

[OCTAGRAM]

Сообщение от Олвин

А у меня работает и так...

Это зависит от версии Паскаля, его настроек и погоды на Марсе

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

И вдогонку: у меня программы, написанные с использованием graph (и написанные именно в TP 7), тоже не работают. Черный экран и выход по Ctrl+Alt+Del.

School Pak в этом плане более предсказуем.

[NitriNKa]

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

А если написать
InitGraph(d, m, 'X:\BP');

то работает?

Нет, вообще не реагирует на запуск

[ipaSoft]

и еще до кучи)

{Drawing gazprom. ipaSoft 2009}
uses graph, crt;
var gd, gm: integer;
    k: char;
procedure animation;
begin
repeat
delay(400);
setcolor(11);
setfillstyle(1, 11);
fillellipse(130, 77, 14, 26);
setcolor(9);
setfillstyle(1, 9);
fillellipse(130, 81, 10, 22);
setcolor(1);
setfillstyle(1, 1);
fillellipse(130, 85, 6, 18);
delay(400);
fillellipse(130, 77, 14, 26);
setcolor(11);
setfillstyle(1, 11);
fillellipse(130, 77, 11, 26);
setcolor(9);
setfillstyle(1, 9);
fillellipse(130, 81, 7, 22);
setcolor(1);
setfillstyle(1, 1);
fillellipse(130, 85, 3, 18);
if keypressed then exit;
until (k = chr(27));
end;

begin
gd := VGA;              {Video Graphic Adapter 16 colors}
gm := 2;                {Hi resolution 640x480}
initgraph(gd, gm, '');  {Open Graph port}
setfillstyle(1, 1);     {Ustanavlivaet stil' raskraski sploshoy siniy}
bar(50, 50, 150, 150);  {fon emblemy}
setcolor(11);           {Ustanovit goluboy cvet}
arc(100, 100, 90, 270, 50); {Levaya golubaya duga}
arc(100, 120, 90, 270, 30); {levaya malaya duga}
line(100, 50, 100, 90); {liniya levaya}
setcolor(9);            {Ustanovit siniy cvet}
setfillstyle(1, 9);     {>>}
arc(100, 80, 270, 315, 70); {pravaya duga 1}
arc(90, 90, 270, 320, 60); {pravaya duga 2}
bar(105, 105, 150, 130); {verhniy pryamougolnik}
setcolor(1);             {>>}
setfillstyle(1, 1);      {>>}
fillellipse(118,125,18,10); {verhniy ellips prozrachnyi}
outtextxy(50, 165, 'G A Z P R O M');
animation;
closegraph;             {close graphport}
end.                    {and exit =) }

[OCTAGRAM]

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

Нет, вообще не реагирует на запуск

Значит, надо School Pak надо пробовать. Я по такому описанию симптомов не скажу, в чём прикол.

[Олвин]

OCTAGRAM, на счёт погоды на Марсе - это точно! Turbo Pascal разными странностями обладает. А вот со SchoolPack - недавно попробовал - проблем возникать не должно.