составьте программу вычисления значения переменной по заданной расчетной формуле и набором исходных данных
Y=sin(x^2+a)-корень x/b A=1.1
Z = x^2/a+cos(x+b)^3 x=0.2
B=0.004
Ответы на вопрос
Ответил Giammy
0
begin
var (a,x,b):=ReadInteger3('Введите a,x,b');
Println('Y=',sin(abs(x)+a)-sqrt(x/b));
Println('Z=', abs(x)/a+abs(cos(x+b))*cos(x+b));
end.
P. S Написано на PacalABC. NET, проверьте на работоспособность, писал без компилятора.
var (a,x,b):=ReadInteger3('Введите a,x,b');
Println('Y=',sin(abs(x)+a)-sqrt(x/b));
Println('Z=', abs(x)/a+abs(cos(x+b))*cos(x+b));
end.
P. S Написано на PacalABC. NET, проверьте на работоспособность, писал без компилятора.
Ответил egorfilin
0
Простите что не написал на каком языке писать программу:Visual Basic
Ответил Giammy
0
Оу, я незнаю Визуал Бейсика
Ответил egorfilin
0
Жалко( но все равно спасибо
Ответил pacixor
0
' Basic консольное
Dim x As Double, y As Double, z As Double, a As Double, b As Double
a = 1.1
x = 0.2
b = 0.004
z = sin((x * x) + a) - sqr(x / b)
y = (x * x) / a + cos(x + b) ^ 3
Print "z = "; z
Print "y = "; y
' Visual Basic 2015 с формами
Dim x As Double, y As Double, z As Double, a As Double, b As Double
a = 1.1
x = 0.2
b = 0.004
z = Math.Sin((x * x) + a) - Math.Sqrt(x / b)
y = (x * x) / a + Math.Cos(x + b) ^ 3
Label1.Text = "z = " + z.ToString
Label2.Text = "y = " + y.ToString
Dim x As Double, y As Double, z As Double, a As Double, b As Double
a = 1.1
x = 0.2
b = 0.004
z = sin((x * x) + a) - sqr(x / b)
y = (x * x) / a + cos(x + b) ^ 3
Print "z = "; z
Print "y = "; y
' Visual Basic 2015 с формами
Dim x As Double, y As Double, z As Double, a As Double, b As Double
a = 1.1
x = 0.2
b = 0.004
z = Math.Sin((x * x) + a) - Math.Sqrt(x / b)
y = (x * x) / a + Math.Cos(x + b) ^ 3
Label1.Text = "z = " + z.ToString
Label2.Text = "y = " + y.ToString
Ответил egorfilin
0
Спасибо) но у меня вопрос вы знаете Visual Basic
Ответил pacixor
0
У тебя что-то не работает?
Новые вопросы