Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

[nadyaH]

VAR
A,B,O,I:integer;
begin
A:=STRTOint(EDIT1.Text);
B:=STRTOint(EDIT2.TEXT);
O:=1;
FOR I:=A TO B DO O:=O*I;
EDIT3.TEXT:=INTTOSTR(O)

КОГДА ВВОЖУ БОЛЬШИЕ ЧИСЛА ТО ВЫХОДИТ 0 ЛИБО ОТРИЦАТЕЛЬНОЕ ЧИСЛО. ЧТО МНЕ НУЖНО ИЗМЕНИТЬ В ПРОГРАММЕ?

[Stilet]

БОЛЬШИЕ ЧИСЛА

Насколько большие? У integer есть ограничение.
P.S. ПрЕкРаШаЙ ПиССаттть КАПСЛОКОМ

[BDA]

Замените integer на int64 - это немного расширит ограничения.

[ViktorR]

Ситуацию можно улучшить, если использовать другой тип данных, например, Longint.
В ситуации похуже - Real, Extended (точность вычисления другая).
Ну или совсем что-то свое придумать. Например, когда числа представляются строками.
В общем то выход есть. Просто не надо на больших цислах комп мучить.
Кстати, а как можно объяснить появление отрицательных чисел?
Мне конежно же можно не отвечать. Просто подумай.


Как-то так, ...

[nadyaH]

думаю числа отрицательные,т.к. памяти на отведёное кол-во символ(цифр), не хватет отведёного места,поэтому в минус уходит(моё мнение). А вот почему нуль получается - безпонятия..

сори.язык делфи 7.

[BDA]

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

сори.язык делфи 7.

1) Дельфи 7 - не язык.
2) Не нужно отвечать на мою подпись

[ViktorR]

думаю числа отрицательные,т.к. памяти на отведёное кол-во символ(цифр), не хватет отведёного места,поэтому в минус уходит(моё мнение). А вот почему нуль получается - безпонятия..

Дело в том, число типа integer хранится в слове (два байта) так, что за знак овечает самый старший бит.
При сложении или умножении даже не очень больших чисел (ну что там 32000) возникает переполнение в младших (0-14) битах, в результате которого (переполнения) в знаковый разряд попадает единица, которая и интерпретируется как знак числа: 0 - положительные числа, 1 - отрицательные.
Достаточно появлению одного нулевого значения, из-за переполнения, как все остальные произведения будут только нулями.

сори.язык делфи 7.

Ну да. Это важно. Только вот и в этом случае от замены типа данных не уйти. Почитайте, какой там есть тип для хранения очень больших чисел подходящего формата: целые, вещественные.


Как-то так, ...

[nadyaH]

даже не знаю за какой тип переменной обозначить. просто если тип меняется то и ввод и вывод числа меняется.

[Stilet]

за какой тип переменной обозначить

Да не за какой. Все равно не хватит. Если бы суммировала то да, а так умножение...
И вообще с чего ты взяла что обязательно большие числа вводить?

[Poma][a]

Если уж очень приспичело, то есть длинная арифметика