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

Автор работы: Пользователь скрыл имя, 21 Марта 2011 в 18:20, лабораторная работа

Описание работы

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

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

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

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

Файлы: 1 файл

Лабораторная работа 3.doc

— 35.50 Кб (Скачать файл)

Лабораторная  работа №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

Информация о работе Структура цикл