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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 14

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

Дневного отделения

Факультет ЭСУ

Группы

.

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

2004

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

1. Словесное описание задачи. В конус с углом при вершине осевого сечения 2L вписан шар. Площадь большого круга шара равна S. Определить объем конуса по формуле: если S=314см²; L=27⁰.

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

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

1. Р

   0

   35

   46

   57

   1

   Начало

   V

   S, L

   V=1/3*S*sqr(S/pi)*(1/tan(pi/4-L*pi/180/2)^3)*(1/tan(L*pi/180))

   Конец

   

   25

   pi=3.1416

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

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

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

Dim S As Single, L As Single, V As Single

Const pi As Single = 3.1416

S = Text1

L = Text2

V = 1 / 3 * S * Sqr(S / pi) * (1 / Tan(pi / 4 - L * pi / 180 / 2) ^ 3) * (1 / Tan(L * pi / 180))

Print "Объем V=" & V

End Sub

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

Задание №2

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

I=200/2 Pmax=1.2E9 L=-1/8

z=x+y^(-3) t=2*r*Sin(a/2)^2 y=Exp(x)*log(x+1)

4