Всего на сайте:
248 тыс. 773 статей

Главная | Литература

Задачи по программированию, Текст программы и результат  Просмотрен 7

Задачи по программированию

СОДЕРЖАНИЕ

 

ЗАДАНИЕ 1

Даны числа X и Y.Вычислить Z= f(T,P) (Линейный алгоритм)

T= x+ ; P=e Z=

 

Блок-схема

 

Текст программы и результат

Sub zadanie1()

Dim X, Y, T, P, Z As Single

X = InputBox("Введите значение Х ", "Окно ввода")

Y = InputBox("Введите значение Y ", "Окно ввода")

T = X + (X ^ 2 + Y ^ 2) ^ (1 / 3)

P = Exp(X) + Exp(Y)

Z = P / T

T = Format(T, "###0.0")

P = Format(P, "###0.0")

Z = Format(Z, "###0.0")

MsgBox "X=" & X & ", Y=" & Y & (Chr(10) & Chr(13)) & _

"T =" & T & ", P = " & P & ", Z = " & Z, _

vblnformation, "Расчет по формулам: " & Date

End Sub

 

Предыдущая статья:Відмінності в манері поведінки і життєвому досвіді. Следующая статья:Текст программы и результат
page speed (0.0119 sec, direct)