Реферат: Структура цикл - Refy.ru - Сайт рефератов, докладов, сочинений, дипломных и курсовых работ

Структура цикл

Рефераты по физике » Структура цикл

Лабораторная работа №3

Структура цикл.


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

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

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

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

;

Блок схема.


начало


Код программы


Private Sub Command1_Click()

Dim v As Single

v=InputBox("v=")

For a=0.4 To 1 Step 0.1

a=0.4

Do

t=v/a

s=a*t^2/2

Print "t="; Format(t, "0.0"), "s=";Format(s, "0.0")

a=a+0.1

Loop While a<=1

Next

End Sub


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


F =


где 4,2

6,4 c шагом 2 см


Блок схема


Код программы


Private Sub Command1_Click()

Dim x As Single, r1 As Single, r2 As Single, F As Single, m As Single

F=InputBox("F=")

For r1=4.2 To 12.2 Step 2

For r2=6.4 To 24.4 Step 2


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

Print Format (F, "0.0") & " ";

Next

Print

Next


End Sub