практика по информатике. Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 кмч, в гору v2 кмч, под гору v3 кмч и в подъем v4 кмч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход

• Название: Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 кмч, в гору v2 кмч, под гору v3 кмч и в подъем v4 кмч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход
• Дата: 28.05.2022
• Размер: 20.68 Kb.
• Имя файла: практика по информатике.docx
• Тип: Документы; #553906

Автономная некоммерческая организация высшего образования «МОСКОВСКИЙ МЕЖДУНАРОДНЫЙ УНИВЕРСИТЕТ»

Кафедра экономики и управления Форма обучения: заочная

ВЫПОЛНЕНИЕ

ПРАКТИЧЕСКИХ ЗАДАНИЙ

ПО ДИСЦИПЛИНЕ

Информационные технологии в менеджменте
Группа Го21М571в

Студент
М.К. Исаева


МОСКВА 2022

Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору – v2 км/ч, под гору – v3 км/ч и в подъем – v4 км/ч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход?

Текстовый алгоритм:

1. Ввести v1, v2, v3, v4, t1, t2, t3, t4.

2. S1 := v1*t1.

3. S2 := v2*t2.

4. S3 := v3*t3.

4. S4 := v4*t4.

5. S := S1 + S2 + S3+S4.

6. Вывести значение S.

7. Конец.
Листинг программы:

Sub rasstojanie()

Dim v1, v2, v3, v4, t1, t2, t3, t4, s1, s2, s3, s4, s As Double

v1 = Worksheets("Лист1").Cells(1, 2)

v2 = Worksheets("Лист1").Cells(2, 2)

v3 = Worksheets("Лист1").Cells(3, 2)

v4 = Worksheets("Лист1").Cells(4, 2)

t1 = Worksheets("Лист1").Cells(1, 4)

t2 = Worksheets("Лист1").Cells(2, 4)

t3 = Worksheets("Лист1").Cells(3, 4)

t4 = Worksheets("Лист1").Cells(4, 4)

s1 = v1 * t1

s2 = v2 * t2

s3 = v3 * t3

s4 = v4 * v4

s = s1 + s2 + s3 + s4

Worksheets ("Лист1").Cells(6, 2) = s

End Sub
Вычислить значение функции:

Текстовый алгоритм:

1. Ввести х.

2. Если х <= -10, то у:= -х2.

3. Иначе, если x<0, то y:= x4.

4. Иначе y := x+2.

5. Вывести у.

6. Конец.
Листинг программы:

Sub uravnenie()

Dim x, y As Double

x = Worksheets("Лист1").Cells(8, 2)

If x <= -10 Then

y = -x * x

ElseIf x < 0 Then

y = x ^ 4

Else

y = x + 2

End If

Worksheets("Лист1").Cells(9, 2) = y

End Sub

Найти максимум из пяти введенных чисел

Текстовый алгоритм:

1. 
   
   Ввести числа a, b, c, d, e.
   
2. 
   
   max := 0.
   
3. 
   
   Сравнить a, b, c, d, e. Если a >= b и a >= c и a>=d и a>=e то max:= a.
   
4. 
   
   Иначе, если b >= c и b>=d и b>=e, то max:= b.
   
5. 
   
   Иначе, если c >= d и c>=e, то max:= c.
   
6. 
   
   Иначе, если d>=e, то max:= d.
   
7. 
   
   Иначе max:= e.
   
8. 
   
   Вывести max.
   
9. 
   
   Конец.
   

Листинг программы

Sub max()

Dim a, b, c, d, e, max As Double

a = Worksheets("Лист1").Cells(11, 2)

b = Worksheets("Лист1").Cells(11, 4)

c = Worksheets("Лист1").Cells(11, 6)

d = Worksheets("Лист1").Cells(11, 8)

e = Worksheets("Лист1").Cells(11, 10)

If a >= b And a >= c And a >= d And a >= e Then

max = a

ElseIf b >= c And b >= d And b >= e Then

max = b

ElseIf c >= d And c >= e Then

max = c

ElseIf d >= e Then

max = d

Else

max = e

End If

Worksheets("Лист1").Cells(12, 2) = max

End Sub