Задание 3

ВАРИАНТ № 1, 7

Составить программу-заставку, перемещающую

п о экрану вашу фамилию, выведенную крупным векторным Фамилия

шрифтом. Перемещение циклическое до нажатия клавиши

по горизонтали. При достижении края экрана скорость меняется

на противоположную и случайным образом изменяется цвет.

--------------------------------------------------------------------------------------------------------

ВАРИАНТ № 2, 8

Составить программу-заставку, перемещающую

п о экрану вашу фамилию, выведенную крупным векторным Фамилия

шрифтом. Перемещение циклическое до нажатия клавиши

по вертикали. При достижении края экрана скорость меняется

на противоположную и случайным образом изменяется вид шрифта.

- -------------------------------------------------------------------------------------------------------

ВАРИАНТ № 3,9

Составить программу-заставку, перемещающую Фамилия

по краю экрана вашу фамилию, выведенную крупным векторным

шрифтом. Перемещение по часовой стрелке до нажатия клавиши.

На разных краях экрана различна скорость и случайным образом

изменяется цвет надписи.

- -------------------------------------------------------------------------------------------------------ВАРИАНТ № 4, 10

Составить программу-заставку, перемещающую Фамилия

по краю экрана вашу фамилию, выведенную крупным векторным

шрифтом. Перемещение против часовой стрелки до нажатия клавиши.

На разных краях экрана различен цвет и случайным образом

изменяется шрифт, которым выводится надпись.

--------------------------------------------------------------------------------------------------------

ВАРИАНТ № 5, 11

С оставить программу-заставку, циклически

выводящую в центре экрана вашу фамилию

векторным шрифтом с постепенным увеличением Фамилия

размера надписи до максимально возможного.

При достижении максимума процесс повторяется

с изменением цвета и вида шрифта, которыми выводится надпись.

--------------------------------------------------------------------------------------------------------

ВАРИАНТ № 6, 12

С оставить программу-заставку, циклически

выводящую в центре экрана вашу фамилию

векторным шрифтом с постепенным уменьшением Фамилия

размера надписи от максимального до минимального.

При достижении минимума процесс повторяется с изменением

цвета и вида шрифта, которыми выводится надпись.

Лабораторная работа № 9 Построение динамического рисунка.

Пример: Построить атом водорода.

Uses crt,graph;

Var

driver,regim:integer; x,y:integer;

i:real;

BEGIN

driver:=detect; initgraph(driver,regim,'c:\pascal\bgi');

SetBkColor(8);SetColor(3);SetFillStyle(1,11);

FillEllipse(320,240,50,50); {ядро}

i:=0; {угол поворота}

circle(320,240,100); {орбита}

repeat

SetColor(11);SetFillStyle(1,11); {устанавливаем цвета для рисования}

i:=i+0.05; {рассчитывается угол поворота,

по которому будут рассчитаны х и у}

x:=trunc(100*sin(i))+320; {рассчитывается значение х, где 100 это

масштаб по х, а 320 - смещение по х}

y:=trunc(100*cos(i))+240; {рассчитывается значение у, где 100 это

масштаб по у, а 240 - смещение по у}

FillEllipse(x,y,15,15); {рисуется закрашенный круг}

Delay(15000); {задержка выполнения}

SetColor(8);SetFillStyle(1,8); {переходим на цвета фона}

FillEllipse(x,y,15,15); {закрашиваем цветом фона круг}

SetColor(14);circle(320,240,100);{устанавливаем цвет и рисуем орбиту}

until KeyPressed; {выполнять до нажатия любой клавиши}

END.

Задания:

1. Построить модель атома азота.

2. Построить модель атома гелия.

3. Построить модель атома лития.

4. Построить модель Земля – Луна.

5. Построить модель Солнце – Земля – Луна.

6. Построить модель Солнце – Земля – комета.

7. Построить модель Солнце, Юпитер, Сатурн.

8. Построить модель Сатурна и его 4-х спутников.

9. Построить модель атома кислорода.

10. Построить модель Солнце – Марс – Фобос, Деймос (спутники Марса).

11. Построить модель атома бора.

12. Построить модель Солнечной системы.

13. Построить модель Солнечной системы, где у планет вращаются спутники.