Курсовая работа: Программирование на Delphi с алгоритмами и кодами

for j:=1 to n+2 do

stringgrid2.Cells[j,i]:=inttostr(mas2[i,j]); // выводимвтаблицуконечныймассив

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

form4.close; // закрывает форму задания №2

end;

end.

Результат выполнения программы

Задание № 3

Движение закрашенного круга по кромке экрана с изменением цвета при изменении направления движения.

Алгоритм третьей программы

Псевдокод:

Начало Движение (i,j)

цел i, j

Цикл для i от одного до конца ширин экрана

Задаем цвет круга

Двигаем круг

Задержка времени

Все цикл

Цикл для j от одного до конца высоты экрана

Задаем цвет круга

Двигаем круг

Задержка времени

Все цикл

Цикл для i от одного до начала ширин экрана

Задаем цвет круга

Двигаем круг

Задержка времени

Все цикл

Цикл для j от одного до начала высоты экрана