Старые отчёты / ФЫР / информатика!!!!!!!!! / 1.19

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

ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

ОТЧЕТ

о выполненной лабораторной работе № 1

по дисциплине «Информатика»:

Структура «Следование»

Вариант 19

Выполнил студент

Электротехнического

Факультета

Группы НК-413

Прохоров Д.В.

.

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

2004

Задание №1 1 Постановка задачи.

1. Словесное описание задачи. Вычислить объем конуса, зная радиус r шара, вписанного в конус, и угол L, под которым из центра видна образующая конуса:

2. Определение состава входных и выходных данных. Входные данные: - радиус шара r - угол L Выходные данные: - объем конуса V

3. Математическое описание.

1. Р

   1

   35

   46

   57

   2

   Начало

   V

   r, L

   V=(-1/3)*3,1416*r^3*(tan(L))^3*tan(2*L)

   Конец

   азработка схемы алгоритма.

2. Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim r As Single, L As Single, V As Single

Const pi As Single = 3.1416

r = Text1

L = Text2

V = (-1 / 3) * pi * (r ^ 3) * ((Tan(L)) ^ 3) * Tan(2 * L)

Text3 = V

End Sub

5 Отладочный пример.

Задание №2

Предложенные формулы записать в виде операторов присваивания. Числа представить в виде констант языка программирования, переменные по необходимости переобозначить.

λ=2/25 q=0.0981*10^2 W=((-f )^3)*5

z=SQR(x+2)/(y+4) t=((x^2+y^2)^2)*l y=(b-a)/(b+a ) - log(a^2)

4