Процедура. Рекурсия

@RanDY4k · Регистрация: 04.03.2019

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

Составьте программу и вычислите значение функции z. Вычисление выражений,
совпадают выполните по процедуре.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> z=\frac{9\cos a^2+\operatorname{tg}b^2+0.9}{\sqrt{9\cos c^2+\operatorname{tg}d^2+0.9}}-\frac{2\ln (k+1)}{9\cos k^2+\operatorname{tg}l^2+0.9}<br />$

при a=1; b=2; c=4; d=4; k=0; l=3.

@Cyborg Drone · 24.06.2019, 02:17

При чём здесь рекурсия?

@ValentinNemo · 24.06.2019, 04:06

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Project1;
uses
  Math;
var
  a,b,c,d,k,i: double; // Переменные для хранения значений аргументов.
  tmp1,tmp2: double;      // Промежуточные переменные.
  Z: double;     //  Переменная для хранения значения результата вычислений.
begin
  a:= 1;
  b:= 2;
  c:= 4;
  d:= 4;
  k:= 0;
  i:= 3;
  tmp1:= 9*cos(c*c) + tan(d*d) + 0.9;
  tmp2:= 9*cos(k*k) + tan(i*i) + 0.9;
  if (tmp1 < 0) or (tmp2 = 0) or (k > -1) then
    begin
      Writeln('При данных значениях аргументов, это выражение не вычислимо.');
      Readln;
      Exit;
    end;
  z:= tmp1/sqrt(tmp1) - 2*ln(k+1)/tmp2;
  writeln('Результат вычислений: ',z:0:6);
  Readln;
end.

@Cyborg Drone · 24.06.2019, 08:12

ValentinNemo, в Вашей программе ошибка, должно быть

Pascal
17
  if (tmp1 <= 0) or (tmp2 = 0) or (k <= -1) then

И Вы не вычислили 9*cos(a²)+tg(b²)+0.9. Должно быть

Pascal
23
  z := (9 * cos(a * a) + tan(b * b) + 0.9) / sqrt(tmp1) - 2 * ln(k + 1) / tmp2;

И ещё. Судя по косноязычному и кое-как написанному вопросу, а также по показаниям моего хрустального шара, значение выражения вида 9*cos(x²)+tg(z²)+0.9 требуется выполнить с помощью процедуры.

И ещё. ValentinNemo, а где в Вашей программе рекурсия? По заданию она должна быть.

@ValentinNemo · 24.06.2019, 16:31

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program Project1;
uses
  Math;
 
function uravnenie (x1,x2: double): double;
begin
  uravnenie:= 9*cos(x1*x1) + tan(x2*x2) + 0.9;
end;
 
var
  a,b,c,d,k,i: double; // Переменные для хранения значений аргументов.
  tmp1,tmp2,tmp3: double;      // Промежуточные переменные.
  Z: double;     //  Переменная для хранения значения результата вычислений.
begin
  a:= 1;
  b:= 2;
  c:= 4;
  d:= 4;
  k:= 0;
  i:= 3;
  tmp1:= uravnenie(a,b);
  tmp2:= uravnenie(c,d);
  tmp3:= uravnenie(k,i);
  if (tmp2 <= 0) or (tmp3 = 0) or (k <= -1) then
    begin
      Writeln('При данных значениях аргументов, это выражение не вычислимо.');
      Readln;
      Exit;
    end;
  z:= tmp1/sqrt(tmp2) - 2*ln(k+1)/tmp3;
  writeln('Результат вычислений: ',z:0:6);
  Readln;
end.

Cyborg Drone, спасибо огромное за вашу внимательность! Вы очень помогаете!
Но программа все равно без рекурсии.

@Cyborg Drone · 26.06.2019, 10:20

Естественно, без рекурсии. Подозреваю, что RanDY4k всё перепутал, а что такое рекурсия - ему вообще неизвестно.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@RanDY4k 0 / 0 / 0 Регистрация: 04.03.2019 Сообщений: 75

	Процедура. Рекурсия 19.06.2019, 22:27. Показов 811. Ответов 5 Метки нет (Все метки) Составьте программу и вычислите значение функции z. Вычисление выражений, совпадают выполните по процедуре. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> z=\frac{9\cos a^2+\operatorname{tg}b^2+0.9}{\sqrt{9\cos c^2+\operatorname{tg}d^2+0.9}}-\frac{2\ln (k+1)}{9\cos k^2+\operatorname{tg}l^2+0.9}<br />$ при a=1; b=2; c=4; d=4; k=0; l=3. 0

@Cyborg Drone Модератор 10451 / 5741 / 3409 Регистрация: 17.08.2012 Сообщений: 17,474
	24.06.2019, 02:17
	При чём здесь рекурсия? 0

@Cyborg Drone Модератор 10451 / 5741 / 3409 Регистрация: 17.08.2012 Сообщений: 17,474
	26.06.2019, 10:20
	Естественно, без рекурсии. Подозреваю, что RanDY4k всё перепутал, а что такое рекурсия - ему вообще неизвестно. 0