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

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

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

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

@JuriiMW · 23.10.2015, 10:08

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

Pascal
1
2
3
4
5
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
1
2
3
4
5
6
7
8
9
10
11
12
{$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
1
2
3
4
5
6
7
8
9
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
1
2
3
4
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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера 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 с альфа-каналом (с прозрачным. . .

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422

	Циклический алгоритм вычисления произведения всех чисел от 25 до 40 22.10.2015, 17:10. Показов 8516. Ответов 11 Метки нет (Все метки) 2)составить циклический алгоритм вычисления произведения всех чисел от 25 до 40 0

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

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

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

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

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