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

«СТРУКТУРА ЦИКЛ»

ВАРИАНТ 20

1.1) Словесное описание задачи:

Определить число зон пригородного пассажиропотока при составлении расписаний движения поездов по формуле:

где П – общее число остановочных пунктов на участке; A – среднечасовой пассажиропоток на остановочном пункте; τ – время на разгон, замедление и стоянку поезда; M – рассчётная населённость поезда.

Для отладки принять: П=12; 1000≤M≤2000 чел; τ=0,5 ч; A=3,0 тыс.чел; ΔM=100 чел.

1.2) Описание постановки задачи: Состав входных и выходных данных: Входные данные: P – переменная целого типа,

M1 – перменная целого типа,

Mk – переменная целого типа,

dM – переменная целого типа,

tau – переменная вещественного типа,

A – переменная вещественного типа.

Выходные данные:

Z – переменная вещественного типа.

1.3) Математическое описание задачи:

где M₁≤M≤M_k с шагом ΔM.

1.4) Схема алгоритма решения задачи:

1.5) Листинг кода программы:

Private Sub Command1_Click()

Dim P As Integer, M As Integer, M1 As Integer, Mk As Integer, dM As Integer, tau As Single, A As Single

P = InputBox("P=")

M1 = InputBox("M1=")

Mk = InputBox("Mk=")

dM = InputBox("dM=")

tau = InputBox("Tau=")

A = InputBox("A=")

Print "P=" & P & " M1=" & M1 & " Mk=" & Mk & " dM=" & dM & " Tau=" & tau & " A=" & A

M = M1

Do While M <= Mk

Z = P * A * tau / M

Print "Z=" & Z & " при M=" & M

M = M + dM

Loop

End Sub

1.6) Выполнение проекта:

2.1) Словесное описание задачи:

Вычислить значения функции по формуле:

где постоянная π=3,1415; переменные: x, y – вещественного типа.

На печать выдать значения: а) входных данных; б) аргументов x, изменяющегося в пределах x₁≤x≤x_k с шагом Δx, и y, изменяющегося в пределах y₁≤y≤y_k с шагом Δy; в) функции z с точностью до десятитысячных для соответствующих x и y.

При решении контрольного примера принять: x₁=2,15; x_k=2,19; Δx=0,02; y₁=1,1; y_k=1,3; Δy=0,1.

2.2) Описание постановки задачи

Состав входных и выходных данных:

Входные данные:

x1 – переменная вещественного типа, xk – переменная вещественного типа, dx – переменная вещественного типа, y1 – переменная вещественного типа, yk – переменная вещественного типа, yR – переменная вещественного типа.

Выходные данные:

Z – переменная вещественного типа.

2.3) Математическое описание задачи:

где постоянная π=3,1415; x₁≤x≤x_k с шагом Δx; y₁≤y≤y_k с шагом Δy.

2.4) Схема алгоритма решения задачи:

2.5) Листинг кода программы:

Private Sub Command1_Click()

Dim x As Single, x1 As Single, xk As Single, dx As Single, y As Single, y1 As Single, yk As Single, dy As Single

Const pi As Single = 3.1415

x1 = InputBox("x1=")

xk = InputBox("xk=")

dx = InputBox("dx=")

y1 = InputBox("y1=")

yk = InputBox("yk=")

dy = InputBox("yx=")

Print "x1=" & x1 & " xk=" & xk & " dx=" & dx

Print "y1=" & y1 & " yk=" & yk & " dy=" & dy

x = x1

Do While x <= xk

y = y1

Do While y <= yk

Z = (Cos(pi + x ^ 2) + Sin(y / 2) ^ 2 + Tan(y / 4) ^ 2) ^ (2 / 3)

Print "Z=" & Format(Z, "0.0000") & " при x=" & x & " y=" & y

y = y + dy

Loop

x = x + dx

Loop

End Sub

2.6) Выполнение проекта: