Помогите решить задачу про круг, Круг растягивается в эллипс, и опять стягивается. Опции

[SpikyGirl]

Пожалуйста решите задачки, я сама в этом ничего не понимаю...

1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.

2)Разработать модуль, содержащий следующие процедуры и функции для работы с двумерными массивами. Поменять местами строки или столбцы с заданными номерами.

3)В файле, содержащем одномерные массивы целых чисел, найти количество компонент, где сумма элементов больше 100.

Зараннее спасибки!!!!

[klem4]

1)

i := 0;

  repeat
    Ellipse(cx, cy, 0, 360, rx + i, ry);
    Delay(100);
    ClearDevice;
    if i = 30 then sign := -1
     else if i = 0 then sign := 1;
    inc(i, sign)
  until keypressed;

Где cx, cy - центр, rx, ry - радиусы эллипса (изначально должны быть равны)

2) Поиск +Массивы. Матрицы. Типичные задачи: Как задать матрицу, чтобы ...

3) Реализация будет немного отличаться от того какой файл (типизированный/текстовый) и если текстовый, то как в нем разделяются элементы массивов в строках, а вообще сходи для начала сюда: Файлы

[Чужак]

1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.

Первая задача. /Самый простой вариант/.

program Ellips;
  Uses Crt,Graph;
  Var gd, gm: Integer;
 Begin
  InitGraph(gd,gm,'');
  repeat
  SetColor(15);
  circle(320,240,100);
  Delay(9000);
  SetColor(0);
  circle(320,240,100);
  Delay(1000);
  SetColor(15);
  ellipse(320,240,1,0,120,95);
  Delay(9000);
  SetColor(0);
  ellipse(320,240,1,0,120,95);
  Delay(1000)
  until KeyPressed;
  CloseGraph
 End.

[Lapp]

Чужак, мне кажется, ты пропустил слово "постепенно" в условии..
Кроме того, не понимаю - зачем тебе задержка после стирания?

Посмотри прогу klem4 и разберись с ней.