Написать программу для вычисления функций

@MOHTE23 · Регистрация: 04.02.2015

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

Скрин во вложении

Комментарий модератора

фотографии текста запрещены. Фотография текста заменена текстом.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Prog1;
Uses crt;
VAR
  m,n: integer;
  b,x,y: real;
Begin
  clrscr;
Writeln ('Введите числа x и y (для разделения чисел используйте пробел, для подтверждения ввода – Enter):');
ReadLn (x,y);   
b:=((3-EXP(xy))*(3-EXP(xy))/(0.5*lg(1-x));
m:=round(b);
n:=trunc(b);
WriteLn ('**************************************');
WriteLn ('*   x=',x:6:3,'              y=',y:6:3,'   *');
WriteLn ('*             b=',b:6:3,'             *');
WriteLn ('*     m=',m,'                   n=',n,'    *');
WriteLn ('**************************************');
WriteLn ('Для завершения работы программы нажмите Enter ');
ReadLn;
End.

Написать программу для вычисления следующих функций:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?b=\frac{(3-e^{xy})^{2}}{0.5\cdot \lg(1-x)}$

@APALoff · 04.02.2015, 12:24

Это можно считать за издевательство?

@MOHTE23 · 04.02.2015, 12:25 **[ТС]**

Почему? =)

@volvo · 04.02.2015, 12:27

MOHTE23, после := самую первую открывающую скобку убери, или поставь в конце выражения еще одну закрывающую...

@APALoff · 04.02.2015, 12:29

Как запостить тему, чтобы не получить ответ

Правила форума: https://www.cyberforum.ru/pasc... ment3.html

5.18 Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.

Ручками переписываем (раз уж не умеете "копипастить") задание в тему.
И не забываем о:

4.9 Используйте тэги форматирования текста для удобства восприятия ваших сообщений другими пользователями.

@MOHTE23 · 04.02.2015, 12:35 **[ТС]**

Понял, учту =) Простите уж, просто первый раз на этом форуме =)
А как записать lg? Пишет: "Неизвестное имя 'lg' "

@APALoff · 04.02.2015, 12:38

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

А как записать lg?

Через ln
lg(x) = ln(x)/ln(10)

@MOHTE23 · 04.02.2015, 13:54 **[ТС]**

(Перенесено из дублирующей темы)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Prog1;
Uses crt;
VAR
  m,n: integer;
  b,x,y: real;
Begin
  clrscr;
Writeln ('Введите числа x и y (для разделения чисел используйте пробел, для подтверждения ввода – Enter):');
ReadLn (x,y);   
 
b:=(3-EXP(x*y))*(3-EXP(x*y))/0.5*ln(1-x)/ln(10);
m:=round(b);
n:=trunc(b);
WriteLn ('*****************************************');
WriteLn ('*   x=',x:6:3,'              y=',y:6:3,'   *');
WriteLn ('*             b=',b:6:3,'             *');
WriteLn ('*     m=',m,'                   n=',n,'    *');
WriteLn ('*****************************************');
WriteLn ('Для завершения работы программы нажмите Enter ');
ReadLn;
End.

Что теперь не так? =(

После ввода данных x и y выдает такое сообщение: значение было недопустимо малым или недопустимо большим для int32

Комментарий модератора

MOHTE23, не следует по каждому поводу плодить дублирующие темы. Тем более, что таким образом Вы разрываете контекст обсуждения.

@volvo · 04.02.2015, 15:04

(Перенесено из дублирующей темы)

Pascal
11
b:=sqr(3-EXP(x*y))/0.5/Log10(1-x);

По поводу ошибки - интересно, какие ты значения вводил. X должно быть меньше 1-цы, иначе lg(1-x) выдаст ошибку...

@MOHTE23 · 04.02.2015, 15:39 **[ТС]**

(Перенесено из дублирующей темы)
У меня по условию x=1,834, это получается ошибка преподавателя? =)

@volvo · 04.02.2015, 16:21

(Перенесено из дублирующей темы)
Да, область определения логарифмической функции: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left(0;+\infty \right)$ , а при x = 1.834 получается логарифм отрицательного числа. Ошибка в задании однозначно...

@JuriiMW · 05.02.2015, 06:33

APALoff, в ABC.NET:

function Ln(x: real): real; — Возвращает натуральный логарифм числа x
function Log2(x: real): real; — Возвращает логарифм числа x по основанию 2
function Log10(x: real): real; — Возвращает десятичный логарифм числа x
function LogN(base,x: real): real; — Возвращает логарифм числа x по основанию base

@APALoff · 05.02.2015, 09:34

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

в ABC.NET

Я конечно понимаю, что в .NET это может и есть, как и много чего другого, но это насажденные инструменты, в отличии от классической реализации Паскаля.

P.S.: Логарифмы логарифмами, но надо и понимать как можно перейти от одного к другому.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	04.02.2015, 12:24
	Это можно считать за издевательство? 0

@MOHTE23 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 8
	04.02.2015, 12:25 [ТС]
	Почему? =) 0

@volvo Супер-модератор 33192 / 21478 / 8231 Регистрация: 22.10.2011 Сообщений: 36,846 Записей в блоге: 11
	04.02.2015, 12:27
	MOHTE23, после := самую первую открывающую скобку убери, или поставь в конце выражения еще одну закрывающую... 0

@MOHTE23 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 8
	04.02.2015, 12:35 [ТС]
	Понял, учту =) Простите уж, просто первый раз на этом форуме =) А как записать lg? Пишет: "Неизвестное имя 'lg' " 0

@MOHTE23 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 8
	04.02.2015, 15:39 [ТС]
	(Перенесено из дублирующей темы) У меня по условию x=1,834, это получается ошибка преподавателя? =) 0

@volvo Супер-модератор 33192 / 21478 / 8231 Регистрация: 22.10.2011 Сообщений: 36,846 Записей в блоге: 11
	04.02.2015, 16:21
	(Перенесено из дублирующей темы) Да, область определения логарифмической функции: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left(0;+\infty \right)$ , а при x = 1.834 получается логарифм отрицательного числа. Ошибка в задании однозначно... 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	05.02.2015, 06:33
	APALoff, в ABC.NET: function Ln(x: real): real; — Возвращает натуральный логарифм числа x function Log2(x: real): real; — Возвращает логарифм числа x по основанию 2 function Log10(x: real): real; — Возвращает десятичный логарифм числа x function LogN(base,x: real): real; — Возвращает логарифм числа x по основанию base 1