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

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

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

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

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

ОТЧЕТ

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

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

Структура «Цикл»

Вариант 2

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

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

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

Группы

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

2004

Задание №1

1. Словесное описание задачи. Двигаясь равноускоренно с ускорением a поезд достигает скорости

Vt=60 км/ч. За какое время эта скорость достигнута и какой путь пройден за это время ?

Искомые величины получить для всех а , принимающих значения от 0,4 м/c²

до 1,0 м/c² c шагом 0,1 м/c²

1. Определение состава входных и выходных данных. Входные данные: - расчетная скорость поезда V - начальное ускорение an - конечное ускорение ak - шаг ускорения da Выходные данные: - время достижения расчетной скорости t - путь пройденный за найденное время S

2. Математическое описание. 0,4a1,0, da=0,1

1. Р

   0

   35

   46

   1

   Начало

   V, an, ak, da

   S=a*t^2/2

   Конец

   

   a<=ak

   

   нет

   да

   t,S

   67

   

   8

   

   a=a+da

   

   26

   a=an

   

   56

   t=V/a

   7

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

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

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

Dim V As Single, an As Single, ak As Single, a As Single, da As Single, t As Single, S As Single

V = Text1

an = Text2

ak = Text3

da = Text4

For a = an To ak Step da

t = V / a

S = a * t ^ 2 / 2

Print "При t=" & t & " S=" & S

Next

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

Задание №2

1. Словесное описание задачи. Определить зависимость фокусного рассстояния двояковыпуклой стеклянной линзы от радиусов ее сферических поверхностей, если показатель преломления стекла m=1,5; где 4,2 6,4 c шагом 2 см

2. Определение состава входных и выходных данных. Входные данные: - показатель преломления стекла m - начальный радиус первой сферической поверхности r1n - конечный радиус первой сферической поверхности r1k - начальный радиус второй сферической поверхности r2n - конечный радиус второй сферической поверхности r2k - шаг изменения радиусов dr Выходные данные: - фокусное расстояние F

3. Математическое описание. 4,2r₁8,2 6,4r₂12,4, dr=2

2. Р

   0

   45

   1

   Начало

   m, r1n, r1k, r2n, r2k,dr

   Конец

   

   r1<=r1k

   

   нет

   да

   

   10

   

   r1=r1+dr

   

   26

   r1=r1n

   

   97

   

   36

   r2=r2n

   r2<=r2k

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

86

F=1/((m-1)*(1/r1+1/r2))

r1, r2, F

77

66

r2=r2+dr

55

нет

да

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

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

Dim m As Single, r1n As Single, r1k As Single, r2n As Single, r2k As Single, dr As Single, r1 As Single, r2 As Single, F As Single

m = Text1

r1n = Text2

r1k = Text3

r2n = Text4

r2k = Text5

dr = Text6

For r1 = r1n To r1k Step dr

For j = r2n To r2k Step dr

F = 1 / ((m - 1) * (1 / r1 + 1 / r2))

Print "При r1=" & r1 & " и r2=" & r2 & " F=" & F

Next

Next

End Sub

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

9