Практика. Чесалов. Вариант-13 / отчет

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

(МИНТРАНС РОССИИ)

ФЕДЕРАЛЬНОЕ АГЕНСТВО ВОЗДУШНОГО ТРАНСПОРТА

(РОСАВИАЦИИ)

ФГОУ ВПО

«САНКТ-ПЕРЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ГРАЖДАНСКОЙ АВИАЦИИ»

Отчёт

по дисциплине ИНФОРМАТИКА

летняя практика

Специализация: ОРТОП

Факультет: Инженерно-технический

Выполнил: Чесалов.С.А.

Проверил: Барышников. В.Ф.

Санкт-Петербург

2013 г.

Графика. Visual Basic

Задание 1

1. Условие задачи.

Решить задачу построения на экране компьютера графика функции

2. Алгоритм решения задачи.

Задаем координатную плоскость и проводим в ней построения графика.

3. Текст программы.

Private Sub Command1_Click()

Picture1.Line (0, -2)-(0, 2), QBColor(1)

Picture1.Line (-2, 0)-(2, 0), QBColor(1)

For t = 0 To 1 Step 0.01

n = Val(Text1.Text)

Y = (1 + t) ^ n * Exp(-t) * Sin(t)

X = Cos(t)

Picture1.PSet (X, Y), QBColor(12)

Next t

Text1.Text = Clear

End Sub

Private Sub Form_Load()

Picture1.Scale (-2, 2)-(2, -2)

End Sub

Задание 2

1. Условие задачи.

Решить задачу воспроизведения на экране компьютера плоского изображения, состоящего из нескольких геометрических фигур

2. Алгоритм решения задачи.

По-порядку создаем фигуры

3. Текст программы.

Private Sub Form_Load()

ScaleMode = vbPixels

AutoRedraw = True

DrawWidth = 3

ForeColor = vbGreen

Circle (200, 120), 10

Line (200, 120)-(300, 120)

Line (300, 120)-(320, 180)

Circle (320, 180), 10

Line (220, 180)-(320, 180)

Line (200, 120)-(220, 180)

Line (270, 140)-(330, 140)

Line (270, 140)-(300, 90)

Line (300, 90)-(330, 140)

End Sub

Графика. DraftSight. SketchUp 8.

Задание 2.

Задание 3.

Задание 4.

GR8.

GR9.

GR10.

GR10_1.

GR10_2.