Составить циклический алгоритм вычисления произведения всех чисел от 25 до 40

@Анютка98 · Регистрация: 30.09.2015

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

2)составить циклический алгоритм вычисления произведения всех чисел от 25 до 40

@JuriiMW · 23.10.2015, 10:08

Вот код для PascalABC.NET :

Pascal

begin
  var P : Biginteger := 1;
  for var i := 25 to 40 do P *= i;
  WriteLn(P);
end.

P.S. Для других паскалей либо код будет гораздо больше, либо результат — приблизительный.

@volvo · 23.10.2015, 13:16

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

Для других паскалей либо код будет гораздо больше

Правда?

Pascal

{$mode objfpc}
uses gmp;
 
var
  p, q : mpz_t;
  i : integer;
begin
  mpz_init_set_si(p, 1);
  for i := 25 to 40 do
    mpz_mul_si(p, p, i);
  mp_printf('%Zd', [@p]);
end.

(FPC, если что)

@Анютка98 · 24.10.2015, 19:50 **[ТС]**

а что это за строчка?var P : Biginteger := 1; можно сделать проще?

Добавлено через 41 секунду
можно проще сделать программу чтоб var был один и тип был integer?

Добавлено через 5 минут
А для просто абс паскаль ,можно сделать проще?
можно проще сделать программу чтоб var был один и тип был integer?

@ZX Spectrum-128 · 24.10.2015, 19:57

Сообщение от Анютка98

тип был integer?

Нельзя.
Ответ в вашей программе:
9825315561599598592 (pabc.net тип uint64)
что много больше диапазона integer

@Анютка98 · 24.10.2015, 19:59 **[ТС]**

а как сделать по-другому,не подскажите?

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

var P : Biginteger := 1;

полегче немного ,вот в этом

@JokeR.BY · 24.10.2015, 20:43

Сообщение от ZX Spectrum-128

9825315561599598592

что, правда чтоль? при умножении на даже конечную 40?

Pascal

var
    i: 25..40;
    mult: Real;
begin
    mult := 1;
    for i := 25 to 40 do
        mult := mult * i;
    Write('Result=', mult:0:0);
end.

@ZX Spectrum-128 · 25.10.2015, 09:40

JokeR.BY, ну, значит и диапазона uint64 не хватает.

@bormant · 25.10.2015, 10:21

Так точного произведения никто и не требовал

Pascal

var p: Real; i: Integer;
begin
  p:=1; for i:=40 downto 25 do p:=p*i; WriteLn(p);
end.

@ZX Spectrum-128 · 25.10.2015, 10:23

bormant, сейчас придет тс и скажет "и тип был integer".

@bormant · 25.10.2015, 10:28

ZX Spectrum-128,

Не по теме:

ТС может говорить всё, что ему вздумается, до тех пор, пока в пределах правил...
Но в этой, да в других его темах, это вряд ли будет мне сколько-нибудь интересно.

@Анютка98 · 25.10.2015, 11:03 **[ТС]**

спасибо за решение

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
		1
	Составить циклический алгоритм вычисления произведения всех чисел от 25 до 40 22.10.2015, 17:10. Показов 8103. Ответов 11 Метки нет (Все метки) 2)составить циклический алгоритм вычисления произведения всех чисел от 25 до 40 0

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
	24.10.2015, 19:50 [ТС]	4
	а что это за строчка?var P : Biginteger := 1; можно сделать проще? Добавлено через 41 секунду можно проще сделать программу чтоб var был один и тип был integer? Добавлено через 5 минут А для просто абс паскаль ,можно сделать проще? можно проще сделать программу чтоб var был один и тип был integer? 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	24.10.2015, 19:57	5
	Сообщение от Анютка98 тип был integer? Нельзя. Ответ в вашей программе: 9825315561599598592 (pabc.net тип uint64) что много больше диапазона integer 0

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
	24.10.2015, 19:59 [ТС]	6
	а как сделать по-другому,не подскажите? Сообщение от JuriiMW var P : Biginteger := 1; полегче немного ,вот в этом 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	25.10.2015, 09:40	8
	JokeR.BY, ну, значит и диапазона uint64 не хватает. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	25.10.2015, 10:23	10
	bormant, сейчас придет тс и скажет "и тип был integer". 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	25.10.2015, 10:28	11
	ZX Spectrum-128, Не по теме: ТС может говорить всё, что ему вздумается, до тех пор, пока в пределах правил... Но в этой, да в других его темах, это вряд ли будет мне сколько-нибудь интересно. 0

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
	25.10.2015, 11:03 [ТС]	12
	спасибо за решение 0