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

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

Новые блоги и статьи Все статьи Все блоги /
Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .

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

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

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

Опции темы

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

Решение