Составить блок-схему и вычислить значение функции F по соответствующему выражению.

@Artem_Markovich · Регистрация: 03.04.2014

Author24 — интернет-сервис помощи студентам

F= max(x,y,z)+x/min(x,z,y)+y

@~~Апострофф~~ · 15.04.2014, 10:07

Visual Basic

Sub Artem_Markovich()
Dim F#, x#, y#, z#
x = InputBox("x =", , 1)
y = InputBox("y =", , 2)
z = InputBox("z =", , 3)
F = Max(x, y, z) + x / Min(x, z, y) + y
MsgBox "F = " & F, , "Ðåçóëüòàò"
End Sub
 
Function Max#(x#, y#, z#)
Max = x
If y > Max Then Max = y
If z > Max Then Max = z
End Function
 
Function Min#(x#, y#, z#)
Min = x
If y < Min Then Min = y
If z < Min Then Min = z
End Function

OldFedor · 15.04.2014, 10:11

Сообщение от Artem_Markovich

Составить блок-схему

А как искать min/max?
Диапазон нужен.

@OLEGOFF · 15.04.2014, 15:48

Блок схема,мне кажется, это что-то другое

@OLEGOFF · 15.04.2014, 17:13

Что не понятно?Всё работает. Какой диапазон вы ищите

?

OldFedor · 15.04.2014, 17:18

Не по теме:

Сообщение от OLEGOFF

Какой диапазон вы ищите?

Обознался.

@Artem_Markovich 0 / 0 / 0 Регистрация: 03.04.2014 Сообщений: 4
		1
	Составить блок-схему и вычислить значение функции F по соответствующему выражению. 15.04.2014, 08:53. Показов 2429. Ответов 5 Метки нет (Все метки) F= max(x,y,z)+x/min(x,z,y)+y 0

OldFedor 7484 / 4148 / 474 Регистрация: 25.08.2012 Сообщений: 11,529 Записей в блоге: 11
	15.04.2014, 10:11	3
	Сообщение от Artem_Markovich Составить блок-схему А как искать min/max? Диапазон нужен. 0

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,501
	15.04.2014, 15:48	4
	Блок схема,мне кажется, это что-то другое Миниатюры 0

OldFedor
	15.04.2014, 17:18 Составить блок-схему и вычислить значение функции F по соответствующему выражению. #6
	Не по теме: Сообщение от OLEGOFF Какой диапазон вы ищите? Обознался. 0