VPF::[VB] Написание программы с использованием циклов.

Azetoniwe

Дата 1.5.2007, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

Привет, народ!
Заренее извиняюсь, если что не так. 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

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

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

Это сообщение отредактировал(а) Alexeis - 3.5.2007, 09:39

Присоединённый файл ( Кол-во скачиваний: 2 )

sanchesnew.rar 1,35 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »