PROGRAM6197.PAS

{* Графический режим *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Астроида (график)' : Uses asteroid.pas; { параметрическое уравнение астроиды x = R cos^3(u) y = R sin^3(u) ... }
  •  'Бегущая строка' : Uses begstr.pas; { На экране появляется бегущая строка. ... }
  •  'Движение круга' : Uses krugobj.pas; { Круг движется сам, стрелками Вы только указываете направление движения. Задействован графический режим. ... }
  •  'Заполнение стакана водой' : Uses fuss.pas; { В графическом режиме изображается заполнение водой стакана из бутылки ... }
  •  'Заставка' : Uses zastavk.pas; { Небольшая заставка в графическом режиме ... }
  •  'Изображение из повторяющейся фигуры' : Uses izo_2.pas; { Изображение, состоящее из одной повторяющейся геометрической фигуры. ... }
  •  'Открытка ' : Uses otkr.pas; { Открытка - поздравление с днем рождения ... }
  •  'Паутина' : Uses pautin.pas; { Паутину с центром в заданной точке экрана, с заданным числом лучей. Координаты центра и число лучей считывать из текстового файла. ... }
  •  'Перекатывающийся кубик' : Uses crt_graph.pas; { Для изменения движения кубика требуется нажать на "p". Для выхода жмем "e" ... }
  •  'Песочные часы' : Uses peschclock.pas; { Песочные часы с высыпающимся песком ... }
  •  'Полет ракеты ' : Uses raketa.pas; { Полет ракеты ... }
  •  'Прямоугольник движется с помощью стрелок' : Uses graphobj.pas; { Прямоугольник движется с помощью стрелок. При перемещении за край экрана прямоугольник появляется с другой стороны.Выполнена с использованием визуальных объектов в графич ... }
  •  'Пульсирующий эллипс ' : Uses p12_8.pas; { Пульсирующий эллипс (увеличивается и уменьшается) ... }
  •  'Радуга' : Uses radug.pas; { Программа в графическом режиме рисует радугу ... }
  •  'Рисование домика' : Uses gr_1.pas; { Рисование домика ... }
  •  'Рисование звезды' : Uses gr_4.pas; { Рисование звезды ... }
  •  'Рисование Корабля' : Uses gr_2.pas; { Рисование Корабля ... }
  •  'Треугольники' : Uses treug.pas; { В графическом режиме с помощью рекурсии выводится треугольники. В большой треугольник вписываются треугольники меньшего размера. ... }
  •  'Фонарь' : Uses fonar.pas; { Дорожный знак на столбе со светофором. У светофора должен гореть один фонарь ... }
Else
 writeln('Ничего не выбрано!');
End;
Program pas614;
Program pas614..