Вычисление функции

@Buzunenok · Регистрация: 01.04.2014

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

столкнулась с вычислением несложных функций в Basic. прошу помочь, потому что к сожалению почти не помню синтаксиса(

@vodav · 21.04.2014, 06:16

QBasic/QuickBASIC

DEFSNG A-Z
CLS
a = 3.745
b = .73
c = 12
z = (COS(a) + (b / c) ^ (1 / 3)) * TAN(b)
PRINT "z = "; z
END

Добавлено через 19 минут

QBasic/QuickBASIC

DEFSNG A-Z
DECLARE FUNCTION ixa (ax, betax, bx)
CONST pi = 3.14159
CLS
a = .98
b = 3.687
beta = -1.642
ix = ixa(a, beta, b)
SELECT CASE ix
  CASE IS > pi
    y = 1 - EXP(-a * ix) * SIN(a * ix + beta)
  CASE IS < pi
    y = 1 - (EXP(-a * ix) + EXP(-beta * ix)) * SIN(a * ix)
  CASE ELSE
    y = 1 - EXP(-a * ix) * (a * ix + b)
END SELECT
PRINT "y = "; y
END
 
FUNCTION ixa (ax, betax, bx)
  ixa = ax * bx ^ 2 - SIN(betax ^ 2) + betax * bx
END FUNCTION

@~~gehh~~ · 21.04.2014, 07:51

У вас одна опечатка.
При втором CASE pi должно стоять со знаком минус.

@vodav · 21.04.2014, 08:24

Не по теме:

gehh, виноват, засмотрелся на фото. Уж больно похоже на Catstail, только кота не хватает.

@Buzunenok 11 / 10 / 2 Регистрация: 01.04.2014 Сообщений: 115
		1
	Вычисление функции 20.04.2014, 23:26. Показов 523. Ответов 3 Метки нет (Все метки) столкнулась с вычислением несложных функций в Basic. прошу помочь, потому что к сожалению почти не помню синтаксиса( 0

@~~gehh~~ Заблокирован
	21.04.2014, 07:51	3
	У вас одна опечатка. При втором CASE pi должно стоять со знаком минус. 1

@vodav
	21.04.2014, 08:24 Вычисление функции #4
	Не по теме: gehh, виноват, засмотрелся на фото. Уж больно похоже на Catstail, только кота не хватает. 0