Вычисление экспонента

@sentinel · Регистрация: 02.12.2009

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

Доброго времени суток.
Излагаю:

К примеру дана задача: написать программу, которая бы вычисляла y=e^x или y=expx с желаемой точностью и сверяла результат с тем, который выдаёт QBasic.

Отсюда следует решение:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
10 CLS
INPUT "ishem znachenie y=exp(x). vvedite x="; x
INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n%
DIM fkt(n% + 1) AS DOUBLE, sum AS DOUBLE, a AS DOUBLE
FOR i% = 0 TO n%
GOSUB swfkt
sum = sum + (x ^ i%) / fkt(i%)
NEXT i%
a = EXP(x)
PRINT "result="; sum
PRINT "calculate machine ="; a
INPUT "povtorim? da-1, net-2  ", ask
IF ask = 1 THEN GOTO 10
IF ask = 2 THEN GOTO 20
20 CLS
PRINT "Thank you for use the program"
END
swfkt:
fkt(i%) = 1
FOR j% = 1 TO i%
fkt(i%) = fkt(i%) * j%
NEXT j%
RETURN

1) Я столкнулся с одной проблемой. В конце условие (если вы хотите порешать ещё нажмите 1 и т.д) , а при использовании оператора DIM (массив) нельзя возвратятся к нему по ходу работы программы (пишет что повтор естественно) , т.е. оператором goto пользоваться нельзя, но если поставить вместо dim оператор redim (динамический массив), он возвращается и не ругается, но при каждом новом вычислении значение увеличивается в два раза, т.к. оператор redim хранит первое значение у себя в "коробке", тогда я решил вернуть на место dim и естественно убрать redim и написать ещё одну подпрограмму в программе которая решала бы тоже самое но с нуля, однако бейсик также ругается и говорит что тоже повтор. Дело в том что в задании (в билете) нужно чтоб прога спросила в конце это условие. Есть варианты это реализовать?

2) Ещё нужно написать программы, которые бы вычисляли sinx и cosx с требуемой точностью и выводили результат, который дают встроенные в QBasic подпрограммы вычисления этих функций.

Скоро сессия, прошу помощи...

@кот Бегемот · 03.12.2009, 01:16

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DO
CLS
INPUT "ishem znachenie y=exp(x). vvedite x="; x
INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n
FOR i = 0 TO n
f& = 1
FOR j = 1 TO i
f& = f& * j
NEXT
sum = sum + x ^ i / f&
NEXT
PRINT "result="; sum
PRINT "calculate machine ="; EXP(x)
INPUT "povtorim? da-1, net-2  ", ask
LOOP UNTIL ask = 2
PRINT "Thank you for use the program"

@sentinel · 03.12.2009, 01:18 **[ТС]**

спасибо, ещё бы второе решить

@кот Бегемот · 03.12.2009, 01:24

А формулы рядов?

@sentinel · 03.12.2009, 01:50 **[ТС]**

до по ним.
если они тебе нужно то они тут http://ru.wikipedia.org/wiki/Ряд_Тейлора (раздел Тригонометрические функции)

Добавлено через 20 минут
Overflow.....
переполнение походу из за того что нужно обязательно юзать подпрограмму. я без подпрограммы баллов меньше в 2 раза...
если есть вариант, то напиши пож-лста вариант с подпрограммой

@кот Бегемот · 03.12.2009, 02:26

синус

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DO
CLS
INPUT "ishem znachenie y=sin(x). vvedite x="; x
INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n
sum = 0
FOR i = 0 TO n
f= 1
FOR j = 1 TO i * 2 + 1
f = f/ j
NEXT
sum = sum + (-1) ^ i *f * x ^ (2 * i + 1)
NEXT
PRINT "result="; sum
PRINT "calculate machine ="; SIN(x)
INPUT "povtorim? da-1, net-2  ", ask
LOOP UNTIL ask = 2
PRINT "Thank you for use the program"

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

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DO
CLS
INPUT "ishem znachenie y=cos(x). vvedite x="; x
INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n
sum=0
FOR i = 0 TO n
f = 1
FOR j = 1 TO i * 2
f = f/ j
NEXT
sum = sum + (-1) ^ i *f * x ^ (2 * i)
NEXT
PRINT "result="; sum
PRINT "calculate machine ="; COS(x)
INPUT "povtorim? da-1, net-2  ", ask
LOOP UNTIL ask = 2
PRINT "Thank you for use the program"

Иcправленная 1 задача (чтобы не было переполнения)

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DO
CLS
sum=0
INPUT "ishem znachenie y=exp(x). vvedite x="; x
INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n
FOR i = 0 TO n
f = 1
FOR j = 1 TO i
f = f/ j
NEXT
sum = sum + x ^ i *f
NEXT
PRINT "result="; sum
PRINT "calculate machine ="; EXP(x)
INPUT "povtorim? da-1, net-2  ", ask
LOOP UNTIL ask = 2
PRINT "Thank you for use the program"

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@sentinel 7 / 7 / 0 Регистрация: 02.12.2009 Сообщений: 102
	03.12.2009, 01:18 [ТС]
	спасибо, ещё бы второе решить 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	03.12.2009, 01:24
	А формулы рядов? 0

@sentinel 7 / 7 / 0 Регистрация: 02.12.2009 Сообщений: 102
	03.12.2009, 01:50 [ТС]
	до по ним. если они тебе нужно то они тут http://ru.wikipedia.org/wiki/Ряд_Тейлора (раздел Тригонометрические функции) Добавлено через 20 минут Overflow..... переполнение походу из за того что нужно обязательно юзать подпрограмму. я без подпрограммы баллов меньше в 2 раза... если есть вариант, то напиши пож-лста вариант с подпрограммой 0