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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 26

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

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

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

Группы

.

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

2004

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

1. Словесное описание задачи. В шар радиуса R вписан усеченный конус. Основания усеченного конуса отсекают от шара два сегмента с дугами в осевом сечении соответственно равны L и . Найти боковую поверхность отсеченного конуса: если =0,15рад; =0,75рад; R=15см.

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

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

1. Р

   0

   3

   4

   5

   1

   Начало

   S

   R, L, B

   S=2*pi*R^2*sin((L+B)/2)*sos((L-B)/4)

   Конец

   

   2

   pi=3.1416

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

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

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

Dim R As Single, L As Single, B As Single, S As Single

Const pi As Single = 3.1416

R = Text1

L = Text2

B = Text3

S = 2 * pi * R ^ 2 * Sin((L + B) / 2) * Cos((L - B) / 4)

Print "Боковая поверхность S=” & S

End Sub

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

Задание №2

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

lx=256 a10=(-0.3)^(-3) f=4.7E4

m=abs((x+a)/a) f=sin(a)+2*cos(b) y=a^(x+1)*sqr(x)+exp(r)

4