Версия для печати темы

Автор: kaz14 13.6.2007, 20:39

Добрый день уважаемые форумчане.
Передо мной стоит задача решить интеграл (1/(4+x^2)) методом трапеций.
Я попробывал и вот что получилось

Print “Nujno vvesti a,b,n,e”
Print “Vvedite a ” ;
Input a
Print “Vvedite b ” ;
Input b
Print “Vvedite n ” ;
Input n
Print “Vvedite e ” ;
Input e
h=(b-a)/n
Do
s=0
x=a
Do
s=s+((1/(4+x^2))+(1/(4+(x+h)^2)))·h/2
x =x+h
Loop While x<=b
h=h/2
s2=0
x=a
Do
s2=s2+((1/(4+x^2))+(1/(4+(x+h)^2)))·h/2
x=x+h
Loop While x<b
Loop While ABS|s-s2|>e
PRINT “Otvet” ; s2
END

Если найдёте ошибку пжлста срочно о ней сообщите!

Срочно?! Может быть вы сначала подумаете еще раз над тем, что просите. А потом уже задачу Вашу обсуждать будем.

Автор: Ботаник 13.6.2007, 20:52

Последнее предложени я бы так написал: "сообщите, если будет время и желание" Хотя тут свой модератор

Я уж думал на QBasic ни кто не пишет. Это вроде как письмена острова Пасхи.

Автор: kaz14 13.6.2007, 20:57

Т.К. я очень плохо ориентируюсь в бейсике,то хотел бы спосить у вас как решаются подобные задачи :

Вот как находить сумму элементов одномерного массива я знаю.Это вот так

S=0
FOR I=1 TO N
S=S+A(I)
NEXT I

А вот как находить сумму двумерного массива,например A(N.M) ???

Кто знает,подскажите пожалуйста!

Автор: kaz14 13.6.2007, 21:25

Посидел подумал про двумерный массив и вот что пришло в голову

S=0
FOR I=1 TO N
FOR J=1 TO M
S=S+A(I.J)
NEXT J
NEXT I

Как вы думаете?Правильно?

Уважаемый,Ботаник,Вы жестоко ошибаетесь.Даже в институтах продолжают преподавать.Правда какой толк от него я не знаю.

А на счёт времени,дык это само сабой у кого есть время и желание тот и ответит.У кого нету тот и не ответит.Простая логика

Автор: Ботаник 13.6.2007, 22:03

Млин, уважаемый kaz14, у вас что, часы сломались? в моём часовом поясе все спят давно

Автор: rehsebnik 5.12.2007, 7:21

Братья, помогите! Надо определить в заданном тексте количество одинаковых рядом стоящих символов: нн,лл,пп,сс,тт,кк.

Автор: Julia 5.12.2007, 13:53

Текст в файле или в строковой переменной?
Что конкретно у вас не получается?

Автор: Ботаник 6.12.2007, 7:48

вот программа на VBA, которая подсчитывает количество цепочек повторяющийхся символов:

Sub a()
Const str = "абвввгдеежзззз"
Dim n As Integer, i As Integer
Dim ch As String, check As String

'беру первый символ в качестве образца
ch = Mid(str, 1, 1)
For i = 2 To Len(str)
'сравниваю текущий символ с образцом
If (ch = Mid(str, i, 1)) Then
'они совпали.
'эта цепочка символов уже учтена?
If (check <> ch) Then n = n + 1
check = ch
Else
'символы не совпали. беру текущий в
'качестве нового образца.
ch = Mid(str, i, 1)
check = ""
End If
Next i
Debug.Print "Количество повторений ", n
End Sub