МИНИСТЕРСТВО образования и науки РОССИЙСКОЙ ФЕДЕРАЦИИ

Государственное образовательное учреждение высшего профессионального образования

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

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

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

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

УДК 681.3.06

Отчет

о выполненной учебной исследовательской работе

на тему:

«Исследование текстового документа»

Вариант 24

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

факультета МТ

группы МТ-602 ______________/Соловьев И.С./

подпись, дата

/номер зачетной книжки /

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

2006

2. Задания по visual basic 6.0

Задание 1

1. Разработать информационную технологию, позволяющую вычислять поверхность и объем шарового сегмента, если заданы радиус шара, высота и радиус основания шарового сегмента.

1) Постановка задачи

Вычислить поверхность и объем шарового сегмента, если заданы радиус шара, высота и радиус основания шарового сегмента.

2) Входные и выходные данные

Входные данные
Имя	Тип	Примечание
R	Вещественный	Радиус шара
H	Вещественный	Высота шарового сегмента
R1	Вещественный	Радиус основания шарового сегмента

Выходные данные
Имя	Тип	Примечание
V	Вещественный	Объем шарового сегмента
S	Вещественный	Поверхность шарового сегмента

3) Математическая модель

.

.

4) Алгоритм

5) Код приложения

Private Sub Command1_Click()

Dim R As Double

Dim H As Double

Dim R1 As Double

Dim V As Double

Dim S As Double

Const pi = 3.14159

R = InputBox("R-?")

H = InputBox("H-?")

R1 = InputBox("R1- ?")

V = 2 * pi / 3 * R ^ 2 * H

S = pi * R * (R1 + 2 * H)

MsgBox "V =" & V & vbNewLine & "S =" & " =" & Format(S, "0,0")

End Sub

6) Пример выполнения

Задание 2

F = (a * Sqr(x) + b ^ 2 * x * Log(a / b) / Log(2)) / (Exp (a * x) - 3800#)

5