Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 1
Регистрация: 18.02.2012
Сообщений: 6

Составить программу для вычисления значения следующей функции, код работает некорректно

16.03.2012, 11:39. Показов 1221. Ответов 5
Метки нет (Все метки)

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

Как сделал я:
PureBasic
1
2
3
4
5
6
CLS
FOR x = -(.5) TO .5 STEP .025
y = ((1 - EXP(2 * x)) / (1 + EXP(2 * x))) * ((SIN(2 * x)) ^ 2)
PRINT "y("; x; ")="; y
NEXT x
END
Выдаёт он мне какую-то неадыкватену:

Походу я что-то с шагом намудрил...
Вот что у меня получилось в Exel'е:
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.03.2012, 11:39
Ответы с готовыми решениями:

Составить программу для вычисления значений следующей функции
Составить программу для вычисления значений следующей функции. Функция R=0,5x + 1/3 - (x+1)2 F=x2 + (x-2)2/2 + 5 ...

Выбрать алгоритм и составить его блок-схему для вычисления значения указанной функции.Составить программу вычисления
Пожалуйста,помогите!!!

Составить программу вычисления значения функции для вычисления и вывода на печать
Составить программу вычисления значения функции для вычисления и вывода на печать таблицы значений функции у при a=0,1; 0,2; ..., 1 с...

5
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
16.03.2012, 16:12
Так лучше?
PureBasic
1
2
3
4
5
6
WIDTH 80, 50
CLS
FOR x = -.5 TO .5 STEP .025
y = ((1 - EXP(2 * x)) / (1 + EXP(2 * x))) * ((SIN(2 * x)) ^ 2)
PRINT USING "y(###.###) = ###.###"; x, y
NEXT x
1
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
16.03.2012, 16:38
Просто числа в эспоненциальном виде и половина значений уходит выше экрана.
PureBasic
1
2
3
4
5
6
7
8
CLS
FOR x = -.5 TO .5001 STEP .025
y = (1 - EXP(2 * x)) / (1 + EXP(2 * x)) * SIN(2 * x) ^ 2
PRINT USING "y( +#.######  )= "; x;
PRINT USING " +#.######"; y
IF x > -.024 AND x < .024 THEN SLEEP 2
NEXT
END
1
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
16.03.2012, 16:42
уходит выше экрана
Разве? )))
0
0 / 0 / 1
Регистрация: 18.02.2012
Сообщений: 6
17.03.2012, 11:04  [ТС]
Спасибо большое за ответы, вот только меня интересует один вопрос! За что отвечает эта строчка?
PureBasic
1
IF x > -.024 AND x < .024 THEN SLEEP 2
0
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
17.03.2012, 19:00
За что отвечает эта строчка?
Эта строчка делает 2-х секундную паузу когда x входит в диапазон (-.024, 0.24)
чтобы вы видели, что там ещё значения есть, т.к. текстовый режим по умолчанию
отображает 25 строк.
Некоторые версии интерпретатора не поддерживают SLEEP и использовать такой
код не рекомендуется. Лучше остановить выполнение программы и переходить к
следующей странице значений по нажатию клавиши.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.03.2012, 19:00
Помогаю со студенческими работами здесь

Составить блок-схему, алгоритм вычисления и программу для вычисления значения кусочно заданной функции
помогите пожалуйста =) заранее благодарен =) П.5.19.Правил Запрещено создавать темы в виде ссылок на задания или коды программ,...

Составить блок-схему, алгоритм вычисления и программу для вычисления значения кусочно заданной функции
помогите решить

составить программу для вычисления значения функции в зависимости от значения аргумента

Составить программу вычисления значения функции для значения аргумента x, вводимого с клавиатуры
Формула f(x) = ln 3 ( x 2 +1 ) + arctg 2 ( x 2 + 1 ) Помогите, пожалуйста

Составить программу для вычисления значения функции
Доброго времени суток! По учебной программе начали изучать Паскаль. Пока не очень преуспел. Приведена задача: файл прикреплен....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru