Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB] Написание программы с использованием циклов.

Автор: Azetoniwe 1.5.2007, 12:22

Привет, народ!
Заренее извиняюсь, если что не так. smile

В общем, задали РГР по информатике.

Цитата

Задание звучит так:
Задано:
f(x)=1/(3+sin(3,6*x))-x ,
g(x)=x*f(x),
h(x)=x^2*f(x),
задан отрезок от 0 до 0,85.
Требуется:
1) Средствами макрорекордера разработать макрос для расчета этих 3 функций не менее чем в 10 точках отрезка включая 0 и 0,85.
2) Рассчитать указанные значения с помощью макроса.
3) Построить диаграмму с помощью мастера диаграмм изображая 3 зависимости
4) Написать программу на V.B для расчета значений (с использованием циклов).
5) Рассчитать указанные значения с помощью программы. Ответ должен выводиться в текстовый файл.

Предварительно все значения х забиваются в таблицу эксель:
В строке А идут значения х.
В строке B - f;
В строке C - g;
В строке D - h.

Таким образом, строки B, C, D нужно расчитать.

К сообщению прикрепил архивчик с готовой таблицей smile

Вот. Я сделал первую часть, а с пунктами 4 и 5 возникли трудности.
Подскажите пожалуйста, как программу написать?
Однокурсник сделал, она у него имеет такой вид (только у него формула и значения другие):

Код

Dim FName As String
Dim FNum As Integer
Dim x As Currency
Dim f As Single
Dim g As Single
Dim h As Single
Dim k As Single

MkDir ("C:\сюда\alex")
FName = "C:\сюда\alex\Задание.txt"
FNum = FreeFile

Open FName For Output As FNum
Print #FNum, "x     f     g     h"

For x = 0.4 To 1 Step 0.05
f = 2 * x * Sin(x) - Cos(x)
g = f * x
h = g * x ^ 2
k = Int(x * 10) / 10

Print #FNum, Str(k) & "     "; Str(f) & "     "; Str(g) & "     "; Str(h)
Next x

Close FNum
End Sub

У меня она почему-то наотрез отказывается работать. Даже папку для вывода рез-та создавать отказывается.

Если можно, хотя бы объясните, что в этой программе какой оператор выполняет. Может, я тогда сам всё поправлю smile

В общем, очень надеюсь на вашу помощь!

Спасибо заранее.