Протабулировать функцию и вывести на печать результаты

06.10.2012, 12:24. **Показов** 1103. **Ответов** 3

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

Добрый День,дорогие форомучане.
Помогите написать код ,пожалуйста.

Протабулировать функцию и вывести на печать результаты при изменении x от 1 до 13 с шагом 1.83 и изменении y от 13 до 8 с шагом 0.87

F=SQR((x^2 + 1)/sin(y))

Помогите пожалуйста!
Заранее Спасибо,с ув. Александр!

@Апострофф · 06.10.2012, 14:11

NasyTrey, уточните единицы измерения для Y - радианы, грады, градусы или что-то ещё?

06.10.2012, 16:59

Там не указано единицы измерения

@gaw · 06.10.2012, 17:07

тогда в тысячных

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Tabl(ax!, bx!, dx!, zx%, ay!, by!, dy!, zy%)
Dim a!
a = ay
If ax * zx < bx * zx Then
  List1.AddItem Round(ax, 2)
    Do
        List1.AddItem vbTab & Round(ay, 2) & vbTab & f(ax, ay)
        ay = ay + dy * zy
    Loop While ay * zy < by * zy
  ax = ax + dx * zx
    Tabl ax, bx, dx, zx, a, by, dy, zy
End If
End Sub
 
Function f(x!, y!)
On Error GoTo er
f = Sqr((x ^ 2 + 1) / Sin(y))
Exit Function
er: f = "Error"
Err.Clear
End Function
 
Private Sub Command1_Click()
Tabl 1, 13, 1.83, 1, 13, 8, 0.87, -1
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

NasyTrey

	Протабулировать функцию и вывести на печать результаты 06.10.2012, 12:24. Показов 1103. Ответов 3 Метки нет (Все метки) Добрый День,дорогие форомучане. Помогите написать код ,пожалуйста. Протабулировать функцию и вывести на печать результаты при изменении x от 1 до 13 с шагом 1.83 и изменении y от 13 до 8 с шагом 0.87 F=SQR((x^2 + 1)/sin(y)) Помогите пожалуйста! Заранее Спасибо,с ув. Александр!

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	06.10.2012, 14:11
	NasyTrey, уточните единицы измерения для Y - радианы, грады, градусы или что-то ещё? 0

NasyTrey
	06.10.2012, 16:59
	Там не указано единицы измерения