Практическая работа по "Информатике"

Задание №1.

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

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

2. S1 := v1*t1.

3. S2 := v2*t2.

4. S3 := v3*t3.

5. S4 := v3*t4.

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

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

8. Конец.

Начальные данные

[pic 1]

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

Sub rasstojanie()

Dim v1, v2, v3, 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

[pic 2]

Результат работы программы.

[pic 3]

Задание №2.

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

1. Ввести х.

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

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

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

5. Вывести у.

6. Конец.

Начальные данные

[pic 4]

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

Sub uravnenie()

Dim x, y as Double

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

if x <= -10 Then

y = -x*x

ElseIf x > -10 And x<0 Then

y = x^4+1

Else

y = x+2

End If

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

End Sub

[pic 5]

Результат работы программы

[pic 6]

Задание №3

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

1. Ввести числа a, b, c, d. e

2. max := 0.

3. Сравнить a, b, c и d  Если a >= b и a >= c и a >= d то max := a.

4. Иначе, если b >= c и b >= d , то max := b.

5.Иначе, если с >= d , то max := с.

6. Иначе max := d.