Вычислить значение функции

@Gulnaz1204 · Регистрация: 17.06.2025

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

Всем здравствуйте. Необходимо решить задание
Тема:
Простейшие вычисления на ЭВМ. Программирование линейных вычислительных процессов.

Вычислить и напечатать значения заданной функции:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?b= -0,485{z}^{215}, z=\frac{{e}^{a}\times ln\frac{a}{x}}{\sqrt{\frac{x}{a}}}; a=1,78; x=2,35$

Примечание(весь код нужен)

@udmurt2024 · 17.06.2025, 16:36

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

весь код нужен

кому?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var b,a,x,z:real;
    f:boolean;
begin
    a:=1.78;
    x:=2.35;
    z:=exp(a)*ln(a/x)/sqrt(x/a);
    writeln('z=',z);
    f:=z<0;
    if f then
        z:=-z;
    b:=-0.485*exp(215*ln(z));
    if f then
        b:=-b;
    writeln('b=',b);
    readln;
end.

или так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var b,a,x,z:real;
        i:integer;
begin
    a:=1.78;
    x:=2.35;
    z:=exp(a)*ln(a/x)/sqrt(x/a);
    writeln('z=',z);
    b:=-0.485;
    for i:=1 to 215 do
        b:=b*z;
    writeln('b=',b);
    readln;
end.

@Angry Old Man · 18.08.2025, 18:28

udmurt2024, первый вариант верен только для нечетной степени (здесь получим правильный результат, так как 215 нечетное). Ради развлечения:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Const b1 = -0.485; z1 = 215; a = 1.78;  x = 2.35;
 
Function z(a :Real; x :Real) :Real;
    Begin
        z := Exp(a) * Ln(a / x) / Sqrt(x / a);
    End;
 
Function b(b1 :Real; z1 :Integer; a :Real; x :Real) :Real;
    Var zz, bb : Real;
    Begin
        zz := z(a, x);
        bb := b1 * Exp(Ln(Abs(zz)) * z1);
        If (zz < 0) And (z1 Mod 2 <> 0) Then bb := -bb;
        b := bb;
    End;
 
Begin
     WriteLn; WriteLn('b1 = ', b1:7:3, ';  z1 = ', z1:5, ';  a = ', a:5:2, '  x = ', x:5:2);
     WriteLn('b = ', b(b1, z1, a, x));
End.

@Cyborg Drone · 18.08.2025, 20:10

С быстрым возведением в степень (8 итераций вместо 215):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  a = 1.78;
  x = 2.35;
  k = -0.485;
  p: byte = 215;
var
  z, b: real;
begin
  b := k;
  z := exp(a) * ln(a / x) / sqrt(x / a);
  writeln('z = ', z);
  repeat
    if p and 1 = 1 then b := b * z;
    z := z * z;
    p := p shr 1
  until p = 0;
  writeln('b = ', b);
  readln
end.

@Storm Screamer · 18.08.2025, 21:09

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program CalculateFunction;
uses Crt;
 
var
  a, x, z, b: real;
 
begin
  ClrScr;
  a := 1.78;
  x := 2.35;
  z := x / sqrt(2 * a);
  b := -0.485 * exp(215 * ln(z));
  writeln('Значение b = ', b:15:5);
end.

@Angry Old Man · 19.08.2025, 08:08

Storm Screamer, У Вас z вычисляется неверно, возможно, Вы преобразовали исходную формулу, но неверно. По любому, если a/x<1, то Ln от этого будет <0, и, как не преобразовывай, при остальных множителях в выражении >0 при указанных данных z обязательно будет <0.
Еще вариант, если не оформлять z и b как функции

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Const b1 = -0.485; z1 = 215; a = 1.78;  x = 2.35;
Var z, b :Real;
 
Begin
    z := Exp(a) * Ln(a / x) / Sqrt(x / a);
    b := b1 * Exp(Ln(Abs(z)) * z1);
    If (z < 0) And (z1 Mod 2 <> 0) Then b := -b;
 
    WriteLn; WriteLn('b1 = ', b1:7:3, ';  z1 = ', z1:5, ';  a = ', a:5:2, '  x = ', x:5:2);
    WriteLn('z = ', z);
    WriteLn('b = ', b);
End.

@andrey_f · 19.08.2025, 09:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
program calc_func;
uses Math;
var
  a, x, z, y: Real;
begin
  a := 1.78;
  x := 2.35;
  z := (Exp(a) * Ln(a / x)) / Sqrt(x / a);
  y := -0.485 * Power(z, 215);
  WriteLn('Значение функции: ', y:0:6);
end.

@volvo · 19.08.2025, 12:09

andrey_f, какой Math в Турбо-Паскале?

@SmallEvil · 20.08.2025, 15:54

volvo, наверное попутал с freepascal

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .	Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .
Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .	Последние результаты исследования от команды MCM (октябрь 2025 г.) Programma_Boinc 29.10.2025 Последние результаты исследования от команды MCM (октябрь 2025 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .

@Gulnaz1204 0 / 0 / 0 Регистрация: 17.06.2025 Сообщений: 3

	Вычислить значение функции 17.06.2025, 15:30. Показов 1880. Ответов 8 Метки pascal (Все метки) Всем здравствуйте. Необходимо решить задание Тема: Простейшие вычисления на ЭВМ. Программирование линейных вычислительных процессов. Вычислить и напечатать значения заданной функции: $https://www.cyberforum.ru/cgi-bin/latex.cgi?b= -0,485{z}^{215}, z=\frac{{e}^{a}\times ln\frac{a}{x}}{\sqrt{\frac{x}{a}}}; a=1,78; x=2,35$ Примечание(весь код нужен) 0

@volvo Супер-модератор 33169 / 21461 / 8224 Регистрация: 22.10.2011 Сообщений: 36,816 Записей в блоге: 10
	19.08.2025, 12:09
	andrey_f, какой Math в Турбо-Паскале? 0

@SmallEvil Нарушитель 4083 / 2972 / 813 Регистрация: 29.06.2020 Сообщений: 10,986
	20.08.2025, 15:54
	volvo, наверное попутал с freepascal 0

Опции темы

Вычислить значение функции

Решение