Вычислить значение выражения

@Slay · Регистрация: 23.10.2009

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

Дано натуральное число n , действительное число х. вычислить sin x +sin x^2 + ....+ sin x^n
Вроде набросал а считает не правильно

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
CLS
PRINT "VVEDITE N"
INPUT "N=", N
PRINT "VVEDITE X"
INPUT "X=", X
A = X
FOR i = 1 TO N
S = S + SIN(A)
S = A* X
NEXT i
END

@Казанский · 25.09.2012, 21:45

10 A = A * X
...
12 PRINT S

не проверял

@Slay · 25.09.2012, 22:06 **[ТС]**

Да так и было это я не правильно переписал с программы сюда

Добавлено через 7 минут
Так что вопрос остается тем же

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
PRINT "VVEDITE N"
INPUT "N=", N
PRINT "VVEDITE X"
INPUT "X=", X
A = X
FOR i = 1 TO N
S = S + SIN(A)
A = A* X
NEXT i
PRINT S
END

@Казанский · 25.09.2012, 22:18

А почему неправильно-то? Все правильно, сравнил в Excel:

@Slay · 26.09.2012, 00:14 **[ТС]**

Fuuuuck не ну это надо так лоханутся, написал правильно а правило забыл sin от 1 до -1
нужно в школу возвращаться, и как дибил поставляю значение х 4 , 8 и другие))
Спасибо ребят)

@Казанский · 26.09.2012, 12:08

Да, школьный курс не вредно вспомнить

ЗНАЧЕНИЯ sin от 1 до -1, а АРГУМЕНТ может быть любой.
Вот сравнение при X=5, N=4:

@Slay · 26.09.2012, 13:53 **[ТС]**

Да я вот тут проверял x=4 n=2
http://www.wolframalpha.com/in... )%2Bsin(16)
тут ответ 0.345
а в проге -1.044
Вот это меня и ввело в сомнение

Добавлено через 30 минут
и еще один вопрос
такая задача дано действительное число a вычислите f(a) если f(x) тут система дальше
cos|x|, при -1.57<x<=0
sin(-x), при 0<x<=1.57
arctn(x^2), в остальных случаях
вот как о так получил

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
CLS
PRINT "vvedite znachenie x"
INPUT "x=",x
IF x > (-1.57) AND x=< 0 THEN f = COS(ABS(x)) ELSE
IF x > 0 AND x =< 1.57 THEN f = SIN(-x) ELSE
f = atan (x^2)
PRINT f
END

Правильно по коду?

Добавлено через 20 минут
Вот подправил маленько

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
CLS
PRINT "vvedite znachenie x"
INPUT "x=",x
IF x > (-1.57) AND x<= 0 THEN f = COS(ABS(x)) ELSE
IF x > 0 AND x <= 1.57 THEN f = SIN(-x) ELSE
f = ATN (x^2)
PRINT f
END

@Казанский · 26.09.2012, 15:46

Неправильно, т.к. строка 7 выполняется в любом случае, и f вычисляется по ней.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
PRINT "vvedite znachenie x"
INPUT "x=",x
IF x > -1.57 AND x <= 0 THEN
    f = COS(ABS(x))
ELSEIF x > 0 AND x <= 1.57 THEN
    f = SIN(-x)
ELSE
    f = ATN(x ^ 2)
END IF
PRINT f
END

@Slay · 26.09.2012, 16:01 **[ТС]**

Пишет END IF without bllock IF

Добавлено через 2 минуты
А должно быть обязательно ELSEIF слитно?

Добавлено через 2 минуты
А ну да если как у тебя то работает, а что это значит когда слитно написано, и почему мой вариант не подходит решения?(почему не правильно)

@Казанский · 26.09.2012, 16:17

Поставь курсор в слово IF и нажми F1. Или букварь почитай.
В твоем варианте два отдельных однострочных оператора IF, они выполняются оба в любом случае, и строка 7 тоже всегда выполняется.

@Slay · 26.09.2012, 16:28 **[ТС]**

А понятно, если у 3 примера было б тоже условие, то надо было бы тоже написать elseif ?
И вот еще хотел узнать как работает paint в графике
вот я велик нарисовал хочу закрасить колесо , оно же замкнуто (по крайне мере визуально), закрашиваю и весь экран в выбраный цвет уходит
файл добавил
если допустим дописать в конце paint(399,200),9,9

@Quiet Snow · 26.09.2012, 17:31

Slay, на будущее, НАМНОГО удобнее, когда код не заархивирован и в добавок не
в бинарном формате QuickBasic, используем опцию сохранения в текстовый формат.
Оператор PAINT не является аналогом закраски программы Paint т.к. данный оператор
закрашивает область, замкнутую одним цветом, а не несколькими. И ещё, если есть хоть
1 пиксель не замыкающий область, закрасит и снаружи.

@Slay · 26.09.2012, 17:45 **[ТС]**

но у меня же одноцветная область колеса, а он мне все заливает

Добавлено через 2 минуты
а какой текстовый формат? если я например сохраняю в txt каракули какието
и какая версия в вируал бокс работает с русским хелпингом а то одну скачал тоже какракули но в самой программе

@Quiet Snow · 26.09.2012, 18:17

и какая версия в вируал бокс работает с русским хелпингом

Virtual Box тут не при чём, у вас не установлена требуемая таблица символов или
попросту - шрифт системы. Установите русификатор системы DOS. Подойдёт keyrus.
И тогда "крякозябры" станут русским текстом. Keyrus - это резидентник, прописываем
его в Autoexec.bat.

а какой текстовый формат?

Смотрите скриншот. В поле File Name пишем имя файла. Можно написать Test.Bas или
Test.Txt, *.Txt* файл мы сможем открыть любым текстовым редактором, поддерживающим
866-ю кодировку. Из текстового редактора, выделив участок текста мышкой, мы можем
скопировать(CTRL+C) код в буфер обмена и вставить(CTRL+V) его на форум.
Привыкайте, так нагляднее давать код людям, с форума его удобнее читать.

@Slay · 26.09.2012, 18:46 **[ТС]**

Ага получилось все
У меня dosbox перепутал)
вот если я в конце допишу paint (399,200),9,9 все закрасится то ль двойной круг нужен толи не поймешь)

QBasic/QuickBASIC
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
26
27
CLS
SCREEN 12
LINE (350, 25)-(375, 25)
LINE (375, 25)-(325, 75)
LINE (300, 75)-(325, 75)
LINE (350, 50)-(400, 200)
 
 
LINE (216, 100)-(365, 100)
LINE (200, 75)-(275, 200)
LINE (175, 75)-(225, 50), 15, B
LINE (216, 100)-(175, 200)
LINE (175, 200)-(275, 200)
LINE (150, 125)-(175, 200)
LINE (125, 125)-(205, 125)
LINE (275, 200)-(375, 125)
LINE (175, 200)-(115, 175)
CIRCLE (275, 200), 25, 15
CIRCLE (275, 200), 13, 15
CIRCLE (400, 200), 55, 15
CIRCLE (400, 200), 13, 15
CIRCLE (175, 200), 55, 15
CIRCLE (175, 200), 13, 15
CIRCLE (175, 200), 65, 14, 0, 3.14
CIRCLE (400, 200), 65, 14, 1, 3.14
 
END

@Quiet Snow · 26.09.2012, 18:53

Вот посмотрите.

QBasic/QuickBASIC
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
26
27
28
SCREEN 9
    LINE (386, 43)-(411, 43), 15 
    LINE (411, 43)-(361, 93), 15 
    LINE (336, 93)-(361, 93), 15 
    LINE (386, 68)-(436, 218), 15 
    LINE (252, 118)-(401, 118), 15 
    LINE (236, 93)-(311, 218), 15 
    LINE (211, 93)-(261, 68), 15, B
    LINE (252, 118)-(211, 218), 15 
    LINE (211, 218)-(311, 218), 15 
    LINE (186, 143)-(211, 218), 15 
    LINE (161, 143)-(241, 143), 15 
    LINE (311, 218)-(411, 143), 15 
    LINE (211, 218)-(151, 193), 15 
    CIRCLE (311, 218), 25, 15 
    CIRCLE (311, 218), 13, 15 
    CIRCLE (436, 218), 55, 15 
    CIRCLE (436, 218), 13, 15 
    CIRCLE (211, 218), 55, 15 
    CIRCLE (211, 218), 13, 15 
    CIRCLE (211, 218), 65, 14, 0, 3.139892578125, .73
    CIRCLE (436, 218), 65, 14, 1, 3.139892578125, .73
    PAINT (239, 202), 8, 15 
    PAINT (211, 192), 8, 15 
    PAINT (190, 197), 8, 15 
    PAINT (206, 240), 8, 15 
    PAINT (415, 231), 8, 15 
WHILE INKEY$ = "": WEND

Да я воспользовался своей утилитой

...

@Slay · 26.09.2012, 19:05 **[ТС]**

Отлично) а почему у меня не получалось

Добавлено через 6 минут
А я кокраз искал эту утилиту) там рисуешь вроде и она тебе код выдает да?) скинешь

@Quiet Snow · 26.09.2012, 20:29

Сообщение от Slay

А я кокраз искал эту утилиту) там рисуешь вроде и она тебе код выдает да?) скинешь

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

Топик: Рисовалка для ленивых
На другом форуме я выложил версию постарше с пофиксенными багами и расширенными
возможностями, т.к. по правилам ссылки на др. форумы запрещены, то найдёте в гугле
по запросу "Утилита Redact v1.4".

@Slay · 26.09.2012, 20:55 **[ТС]**

Ха точно она) а я её искал в начале потом пришлось на листочке рисовать и строить как не нашел

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.09.2012, 21:45
	10 A = A * X ... 12 PRINT S не проверял 0

@Slay 0 / 0 / 1 Регистрация: 23.10.2009 Сообщений: 102
	26.09.2012, 00:14 [ТС]
	Fuuuuck не ну это надо так лоханутся, написал правильно а правило забыл sin от 1 до -1 нужно в школу возвращаться, и как дибил поставляю значение х 4 , 8 и другие)) Спасибо ребят) 0

@Slay 0 / 0 / 1 Регистрация: 23.10.2009 Сообщений: 102
	26.09.2012, 16:01 [ТС]
	Пишет END IF without bllock IF Добавлено через 2 минуты А должно быть обязательно ELSEIF слитно? Добавлено через 2 минуты А ну да если как у тебя то работает, а что это значит когда слитно написано, и почему мой вариант не подходит решения?(почему не правильно) 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.09.2012, 16:17
	Поставь курсор в слово IF и нажми F1. Или букварь почитай. В твоем варианте два отдельных однострочных оператора IF, они выполняются оба в любом случае, и строка 7 тоже всегда выполняется. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	26.09.2012, 17:31
	Slay, на будущее, НАМНОГО удобнее, когда код не заархивирован и в добавок не в бинарном формате QuickBasic, используем опцию сохранения в текстовый формат. Оператор PAINT не является аналогом закраски программы Paint т.к. данный оператор закрашивает область, замкнутую одним цветом, а не несколькими. И ещё, если есть хоть 1 пиксель не замыкающий область, закрасит и снаружи. 0

@Slay 0 / 0 / 1 Регистрация: 23.10.2009 Сообщений: 102
	26.09.2012, 17:45 [ТС]
	но у меня же одноцветная область колеса, а он мне все заливает Добавлено через 2 минуты а какой текстовый формат? если я например сохраняю в txt каракули какието и какая версия в вируал бокс работает с русским хелпингом а то одну скачал тоже какракули но в самой программе 0

@Slay 0 / 0 / 1 Регистрация: 23.10.2009 Сообщений: 102
	26.09.2012, 19:05 [ТС]
	Отлично) а почему у меня не получалось Добавлено через 6 минут А я кокраз искал эту утилиту) там рисуешь вроде и она тебе код выдает да?) скинешь 0

@Slay 0 / 0 / 1 Регистрация: 23.10.2009 Сообщений: 102
	26.09.2012, 20:55 [ТС]
	Ха точно она) а я её искал в начале потом пришлось на листочке рисовать и строить как не нашел 0