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

[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) Реализация будет немного отличаться от того какой файл (типизированный/текстовый) и если текстовый, то как в нем разделяются элементы массивов в строках, а вообще сходи для начала сюда: Файлы