Файл: Практическая работа арм экономиста. Задание Составить и изобразить организационнофункциональную.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 05.12.2023
Просмотров: 34
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Текстовый алгоритм:
1.Ввести х.
2.Если х <= -10, то у := -х2.
3.Иначе, если x<0, то y := x4+1.
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+1
Else
y = x+2
End If
WorkSheets("Лист1").Cells(9,2) = y
End Sub
Задание 3
Найти максимум из пяти введенных чисел
Задание:
Написать алгоритм и программу.
Текстовый алгоритм:
1.Ввести числа a, b, c, d, e.
2.max := 0.
3.Сравнить a, b, c, d и e. Если a >= b и a >= c и a >= d и a >= t, то 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.
Вывести max.
Конец.
Листинг программы
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 Sub0>