Задание: Написать алгоритм и программу.
Текстовый алгоритм:
1. Ввести v1, v2, v3, v4 t1, t2, t3, t4

2. S1 := v1*t1.

3. S2 := v2*t2.

4. S3 := v3*t3.

5. S4:=v4*t4.

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

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

8. Конец.
Листинг программы:
Sub rasstojanie()

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

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

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

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

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

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

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

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

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

s1 = v1 * t1

s2 = v2 * t2

s3 = v3 * t3

s4 = v4 * t4

s = s1 + s2 + s3 + s4

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

End Sub

---

Смотрите также файлы

• Обучающийся Родькина Алена Игоревна Преподаватель Наумова Ольга Викторовна Практическое занятие.rtf

• Блім лемді згерткен жаалытар Педагогты атыжні.docx

• План урока раздел долгосрочного планирования Казахское ханства в xvxvii вв.docx

• Реакцияа тсетін заттар Реакция нтижесінде тзілетін заттар.docx

• Вариант 11 класс ковер весом 200 н и площадью 4 м.docx