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

@aydin · Регистрация: 28.06.2014

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

Добрый вечер,

Вот собственно выражение

ЗаданиеСоставить процедуру вычисления следующего выражения:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\sqrt{n!\,}+(m!)^2+(n+m)!<br />$

(N, M ≤ 10⁴)

Написать программу.

Давно не писал на Pascal'e. Написал "упрощенную" версию программы, а она не работает

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Zadacha;
var
   a, b,  y,y1,y2,y3,i: real;
procedure find(n, m: real; var y: real); 
 
begin
   y1:=sqrt(n);
     for i:=2 to n do 
        y1:=y1*i;
        
   y2:=sqrt(n);
     for i:=2 to n do
        y2:=y2*i; 
   y:=y1+y2;
end;  
 
begin
   writeln(' Enter two numbers: ');
   readln( a, b);
   find(a, b, y);
   writeln(' Otvet: ', y:3:2);
end.

Заранее Спасибо!

@JuriiMW · 11.09.2015, 05:49

Лучше вынести в отдельную функцию вычисление факториала:

Pascal
1
2
3
4
5
6
7
8
9
function fact(N : Integer) : Double;
var
  i : Integer;
  f : Double;
begin
  f := 1;
  for i := 2 to N do f := f * i;
  fact := f;
end;

Теперь для вычисления выражения не нужны промежуточные переменные:

Pascal
1
y := sqrt(fact(n)) + sqr(fact(m)) + fact(n + m);

Ну и теперь вся программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  i : Integer;
  f : Double;
begin
  if N < 1 then f := 0 else f := 1;
  for i := 2 to N do f := f * i;
  fact := f;
end;
 
var n, m : Integer;
begin
  Write('n = '); ReadLn(n);
  Write('m = '); ReadLn(m);
  WriteLn('y = ', sqrt(fact(n)) + sqr(fact(m)) + fact(n + m));
end.

P.S. У вас ещё и вместо $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n!}$ считается $https://www.cyberforum.ru/cgi-bin/latex.cgi?(\sqrt{n})!$ , где $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n}$ не целое (ну или не всегда целое ;–).
А вместо $https://www.cyberforum.ru/cgi-bin/latex.cgi?{(m!)}^{2}$ считается $https://www.cyberforum.ru/cgi-bin/latex.cgi?({m}^{2})!$ , что не соответствует истине!
Ибо, к примеру $https://www.cyberforum.ru/cgi-bin/latex.cgi?{(3!)}^{2} = {6}^{2} = 36$ , а не $https://www.cyberforum.ru/cgi-bin/latex.cgi?({3}^{2})! = 6! = 720$ …
А если m больше 3, то разница ещё больше.

Ну и $https://www.cyberforum.ru/cgi-bin/latex.cgi?(n + m)!$ вообще не вычисляется!

ФедосеевПавел · 11.09.2015, 08:01

Там в условии ещё есть N, M<=10^4. Это уже не умещается в double.
Так что уточнение от ТС - какую тему изучаете?

@aydin · 11.09.2015, 08:59 **[ТС]**

Сообщение от ФедосеевПавел

Там в условии ещё есть N, M<=10^4. Это уже не умещается в double.
Так что уточнение от ТС - какую тему изучаете?

Да как-то без темы. Просто преподаватель дал решить такое задание.

ФедосеевПавел · 11.09.2015, 10:16

Ну тогда и так пойдёт...

@Cyborg Drone · 12.09.2015, 10:29

Не по теме:

aydin, рекомендую Вам ознакомиться с правилами форума. Ссылки на сторонние ресурсы с пользовательским контентом запрещены. Задания и ответы на задания в виде ссылок запрещены. Фотографии текста запрещены, формулы, по всем канонам, являются текстом, и для их написания есть встроенный в форум редактор формул. Будете нарушать правила форума (любые, а не только перечисленные) - я с Вами поступлю нехорошо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь 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. На борту пять. . .	Камера 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. Пошагово создадим проект для загрузки изображения. . .

ФедосеевПавел Модератор 8659 / 4495 / 1669 Регистрация: 01.02.2015 Сообщений: 13,906 Записей в блоге: 12
	11.09.2015, 08:01
	Там в условии ещё есть N, M<=10^4. Это уже не умещается в double. Так что уточнение от ТС - какую тему изучаете? 0

ФедосеевПавел Модератор 8659 / 4495 / 1669 Регистрация: 01.02.2015 Сообщений: 13,906 Записей в блоге: 12
	11.09.2015, 10:16
	Ну тогда и так пойдёт... 1

@Cyborg Drone
	12.09.2015, 10:29
	Не по теме: aydin, рекомендую Вам ознакомиться с правилами форума. Ссылки на сторонние ресурсы с пользовательским контентом запрещены. Задания и ответы на задания в виде ссылок запрещены. Фотографии текста запрещены, формулы, по всем канонам, являются текстом, и для их написания есть встроенный в форум редактор формул. Будете нарушать правила форума (любые, а не только перечисленные) - я с Вами поступлю нехорошо. 0

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

Решение