Ошибка "Type-declaration character does not match declared data type"

@crococos · Регистрация: 24.12.2014

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

Снова я.
Запускаю программу, а у меня выскакивает "Type-declaration character does not match declared data type" ошибка, выделяя x^(2).
Пожалуйста, объясните, в чем дело.

Visual Basic

1
2
3

Function f(ByVal x As Double) As Double
f = x^(2) * Log(x) * Exp(x)
End Function

shanemac51 · 28.12.2014, 18:23

не годится

Visual Basic

1	dim x,y,z,a,b as double

надо объявить

Visual Basic

dim x as double
dim y as double
dim z as double
dim a as double
dim b as double

это не дельфи, а vba

@crococos · 28.12.2014, 18:43 **[ТС]**

сделала, как Вы сказали, ошибка все равно вылетает :/

Добавлено через 52 секунды
да и ошибка не в sub, а в function появляется

shanemac51 · 28.12.2014, 20:31

параметр в функции (ByVal x As Double)
значит и в sub должно быть (Double)

(х) не может быть нулем или очень большим

======выложите и процедуру и функцию
с рисунка мне неудобно перебивать

=====
и какие значения вы набираете при вызове процедуры

@crococos · 28.12.2014, 20:37 **[ТС]**

я переписала программу вообще, убрала функцию. но он продолжает бузить. может, я неправильно саму формулу составила?

Visual Basic

Sub integral()
 
Worksheets("Лист5").Activate
Cells.Clear
ActiveSheet.ChartObjects.Delete
 
    Do
      prom = InputBox("Введите начальную границу интеграла a = ")
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    a = prom
    Dim t As Double
    t = a
    
    Do
        prom = InputBox("Введите конечную границу интеграла b = ")
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    b = prom
    Dim k As Double
    k = b
    
    Do
        prom = InputBox("Введите погрешность вычисления e = ")
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    e = prom
    Dim l As Double
    l = e
    
    Range("d1") = "Лабораторная №9"
    Range("c2") = "Вычисление определенного интеграла y = x^(2) * Log(x) * Exp(x)"
    Range("e3") = "Исходные данные"
    Range("d4") = "Нижний предел интегрирования а = " & CSng(a)
    Range("d5") = "Верхний предел интегрирования b" & CSng(b)
    Range("d6") = "Погрешность вычисления е = " & CSng(e)
 
n = 8
s = 0
 
 
    Do
        s0 = s
        h = (k - t) / n
        s = 0
        x = t + h / 2
            
            Do
            s = s + (x^2 * Log(x) * Exp(x)) * h
            x = x + h
            Loop Until x >= k
            
        n = n * 2
    Loop Until Abs(s - s0) < e
    
    Cells(8, 4).Value = "Значение интеграла S = " & CSng(s)
    
    
End Sub

@crococos · 28.12.2014, 20:43 **[ТС]**

значения следующие:
a = 0,5
b = 1,5
e = 0,01

SoftIce · 28.12.2014, 20:46

Visual Basic

1	(x^2)log(x)exp(1)^x

shanemac51 · 28.12.2014, 20:51

подправила процедуру

Visual Basic

Sub integral()
''объявила переменные
 Dim prom, a, b, e, n, s, s0, h, x
Worksheets("Лист5").Activate
Cells.Clear
''заблокировала удаление несуществующего объекта
''ActiveSheet.ChartObjects.Delete
 
    Do
''жестко присвоила значение
      'prom = InputBox("Введите начальную границу интеграла a = ")
      prom = 2
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    a = prom
    Dim t As Double
    t = a
    
    Do
        'prom = InputBox("Введите конечную границу интеграла b = ")
        prom = 3
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    b = prom
    Dim k As Double
    k = b
    
    Do
        'prom = InputBox("Введите погрешность вычисления e = ")
        prom = 0.001
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    e = prom
    Dim l As Double
    l = e
    
    Range("d1") = "Лабораторная №9"
    Range("c2") = "Вычисление определенного интеграла y = x^(2) * Log(x) * Exp(x)"
    Range("e3") = "Исходные данные"
    Range("d4") = "Нижний предел интегрирования а = " & CSng(a)
    Range("d5") = "Верхний предел интегрирования b" & CSng(b)
    Range("d6") = "Погрешность вычисления е = " & CSng(e)
 
n = 8
s = 0
 
 
    Do
        s0 = s
        h = (k - t) / n
        s = 0
        x = t + h / 2
            
            Do
            s = s + (x ^ 2 * Log(x) * Exp(x)) * h
            x = x + h
            Loop Until x >= k
            
        n = n * 2
    Loop Until Abs(s - s0) < e
    
    Cells(8, 4).Value = "Значение интеграла S = " & CSng(s)
    
    
End Sub

@crococos · 28.12.2014, 20:57 **[ТС]**

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

(x^2)*log(x)*exp(1)^x

когда я пыталась x возводить в степень, не беря в скобку 2, он требовал доставить скобочки

shanemac51 · 28.12.2014, 20:59

в ваших значениях

Visual Basic

Sub integral()
''объявила переменные
 Dim prom, a, b, e, n, s, s0, h, x
Worksheets("Лист5").Activate
Cells.Clear
''жестко присвоила значение
 
a = 0.5
b = 1.5
e = 0.01
''заблокировала удаление несуществующего объекта
''ActiveSheet.ChartObjects.Delete
 
    Do
prom = a
      prom = InputBox("Введите начальную границу интеграла a = ", , prom)
      
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    a = prom
    Dim t As Double
    t = a
    
    Do
     prom = b
        prom = InputBox("Введите конечную границу интеграла b = ", , prom)
       
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    b = prom
    Dim k As Double
    k = b
    
    Do
     prom = e
        prom = InputBox("Введите погрешность вычисления e = ", , prom)
       
        If Not IsNumeric(prom) Then MsgBox ("Некорретные данные! Пожалуйста, повторите ввод!")
    Loop Until IsNumeric(prom)
    e = prom
    Dim l As Double
    l = e
    
    Range("d1") = "Лабораторная №9"
    Range("c2") = "Вычисление определенного интеграла y = x^(2) * Log(x) * Exp(x)"
    Range("e3") = "Исходные данные"
    Range("d4") = "Нижний предел интегрирования а = " & CSng(a)
    Range("d5") = "Верхний предел интегрирования b=" & CSng(b)
    Range("d6") = "Погрешность вычисления е = " & CSng(e)
 
n = 8
s = 0
 
 
    Do
        s0 = s
        h = (k - t) / n
        s = 0
        x = t + h / 2
            
            Do
            s = s + (x ^ 2 * Log(x) * Exp(x)) * h
            x = x + h
            Loop Until x >= k
            
        n = n * 2
    Loop Until Abs(s - s0) < e
    
    Cells(8, 4).Value = "Значение интеграла S = " & CSng(s)
    
    
End Sub

@crococos · 28.12.2014, 20:59 **[ТС]**

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

''жестко присвоила значение

мне по заданию нужно обязательно осуществлять ввод с клавиатуры этих значений. нельзя так?

shanemac51 · 28.12.2014, 21:15

вводите, какие хотите значения
жесткие -- служат как шаблон

@Qwertyuiiop · 14.10.2018, 17:45

Просто знак возведения в степень используется в vba еще и в других смыслах, поэтому при возведении в степень может потребоваться отделить его от буквы пробелом

@crococos 0 / 0 / 0 Регистрация: 24.12.2014 Сообщений: 15
	28.12.2014, 20:59 [ТС]	11
	Сообщение от shanemac51 ''жестко присвоила значение мне по заданию нужно обязательно осуществлять ввод с клавиатуры этих значений. нельзя так? 0

@Qwertyuiiop 0 / 0 / 0 Регистрация: 22.11.2016 Сообщений: 2
	14.10.2018, 17:45	13
	Просто знак возведения в степень используется в vba еще и в других смыслах, поэтому при возведении в степень может потребоваться отделить его от буквы пробелом 0

@crococos 0 / 0 / 0 Регистрация: 24.12.2014 Сообщений: 15
	28.12.2014, 18:43 [ТС]	3
	сделала, как Вы сказали, ошибка все равно вылетает :/ Добавлено через 52 секунды да и ошибка не в sub, а в function появляется 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	28.12.2014, 20:31	4
	параметр в функции (ByVal x As Double) значит и в sub должно быть (Double) (х) не может быть нулем или очень большим ======выложите и процедуру и функцию с рисунка мне неудобно перебивать ===== и какие значения вы набираете при вызове процедуры 0

@crococos 0 / 0 / 0 Регистрация: 24.12.2014 Сообщений: 15
	28.12.2014, 20:43 [ТС]	6
	значения следующие: a = 0,5 b = 1,5 e = 0,01 0

@crococos 0 / 0 / 0 Регистрация: 24.12.2014 Сообщений: 15
	28.12.2014, 20:57 [ТС]	9
	Сообщение от SoftIce (x^2)log(x)exp(1)^x когда я пыталась x возводить в степень, не беря в скобку 2, он требовал доставить скобочки 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	28.12.2014, 21:15	12
	вводите, какие хотите значения жесткие -- служат как шаблон 0

Ошибка "Type-declaration character does not match declared data type"

Решение