Пожалуйста решите задачки, я сама в этом ничего не понимаю...
1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.
2)Разработать модуль, содержащий следующие процедуры и функции для работы с двумерными массивами. Поменять местами строки или столбцы с заданными номерами.
3)В файле, содержащем одномерные массивы целых чисел, найти количество компонент, где сумма элементов больше 100.
Зараннее спасибки!!!!
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;
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.
Чужак, мне кажется, ты пропустил слово "постепенно" в условии..
Кроме того, не понимаю - зачем тебе задержка после стирания?
Посмотри прогу klem4 и разберись с ней.