Найти наименьшее натуральное число М, кратное 5

@Irisha07 · Регистрация: 09.02.2011

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

QBasic/QuickBASIC

CLS
INPUT "Введите X =", x
e = .01
M = 5
n = 1
s = 0
DO
M = M + 5
LOOP UNTIL ((M MOD 5) = 0) AND sqrt(1 + ABS(x)) / M(e)
PRINT "M="; M
f = 1
FOR i = 1 TO k
f = f * i
NEXT i
FOR n = 1 TO M
s = s + (1 / f)
NEXT n
PRINT "s="; s

При запуске выдает переполнение, не пойму в чем дело.Подскажите.Полное задание во вложении

@Good-Morning · 21.09.2013, 15:29

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

sqrt(1 + ABS(x)) / M(e)

Здесь, по-моему, нет выражения.

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

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

FOR i = 1 TO k

И переменной k я раньше в программе не видел...

@vodav · 21.09.2013, 15:31

Стр. 9:

QBasic/QuickBASIC

1	LOOP UNTIL (sqrt(1 + ABS(x)) / M)<e

@Good-Morning · 21.09.2013, 15:32

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

f = 1
FOR i = 1 TO k
f = f * i
NEXT i
FOR n = 1 TO M
s = s + (1 / f)
NEXT n

Вот здесь вообще что-то странное... Вы один раз вычисляете факториал при том для какого-то непонятного числа...

Добавлено через 46 секунд

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

LOOP UNTIL (sqrt(1 + ABS(x)) / M)<e

Так лучше.

@vodav · 21.09.2013, 15:34

Стр.12:

QBasic/QuickBASIC

1	FOR i = 1 TO M

Это неверно, там в задании формула сложнее.
Сщасс Good-Morning, разберется

@Good-Morning · 21.09.2013, 15:42

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

FOR i = 1 TO M

Видимо нет - там вообще лучше, наверно, факториал как функцию/процедуру заявлять, т.к. он (как я понял) должен быть выполнен много раз.

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

QBasic/QuickBASIC

FOR n=1 TO M
CALL fact(n,nn)
S=S+1/nn
NEXT n
 
SUB fact(n,nn)
nn=n!   'конечно не так, но, для ппростоты
END SUB

Я так себе это представляю.

Добавлено через 48 секунд

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

При запуске выдает переполнение

Кстати, а где выдает переполнение? На какой строке?

Не по теме:

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

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

Сщасс Good-Morning, разберется

:D:yes:

@Irisha07 · 21.09.2013, 18:31 **[ТС]**

LOOP UNTIL ((M MOD 5) = 0) AND sqrt(1 + ABS(x)) / M(e)
в этой строке переполнение выдает

@Good-Morning · 21.09.2013, 18:35

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

в этой строке переполнение выдает

Вот, vodav упомянул эту строку.

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	21.09.2013, 15:29	2
	Сообщение от Irisha07 sqrt(1 + ABS(x)) / M(e) Здесь, по-моему, нет выражения. Добавлено через 1 минуту Сообщение от Irisha07 FOR i = 1 TO k И переменной k я раньше в программе не видел... 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	21.09.2013, 15:32	4
	Сообщение от Irisha07 f = 1 FOR i = 1 TO k f = f * i NEXT i FOR n = 1 TO M s = s + (1 / f) NEXT n Вот здесь вообще что-то странное... Вы один раз вычисляете факториал при том для какого-то непонятного числа... Добавлено через 46 секунд Сообщение от vodav LOOP UNTIL (sqrt(1 + ABS(x)) / M)<e Так лучше. 0

@Irisha07 0 / 0 / 0 Регистрация: 09.02.2011 Сообщений: 25
	21.09.2013, 18:31 [ТС]	7
	LOOP UNTIL ((M MOD 5) = 0) AND sqrt(1 + ABS(x)) / M(e) в этой строке переполнение выдает 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	21.09.2013, 18:35	8
	Сообщение от Irisha07 в этой строке переполнение выдает Вот, vodav упомянул эту строку. 0

Опции темы