Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.02.2015
Сообщений: 8

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

04.02.2015, 12:08. Показов 1888. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Скрин во вложении
 Комментарий модератора 
фотографии текста запрещены. Фотография текста заменена текстом.
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)}
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.02.2015, 12:08
Ответы с готовыми решениями:

Составить программу для вычисления значения функций f(x)
Заранее спасибо :)

Написать программу для вычисления значения
Вычислить значение: Z=S^2+\ln a a=\frac{28}{e^x};\ \ \ S=\sum_{i=1}^{6}\left(c_i+\sin x \right);\ \ \...

Написать программу для вычисления функции
R=\begin{cases}\max (a,\ x/a,\ \sin ^2a)&\text{, if }a>0\text{ and }x>1\\\\\min \left( a,\ ax+\sin b,\ \max ( a,\ b)\right)& \text{, if...

12
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
04.02.2015, 12:24
Это можно считать за издевательство?
0
0 / 0 / 0
Регистрация: 04.02.2015
Сообщений: 8
04.02.2015, 12:25  [ТС]
Почему? =)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33192 / 21478 / 8231
Регистрация: 22.10.2011
Сообщений: 36,846
Записей в блоге: 11
04.02.2015, 12:27
MOHTE23, после := самую первую открывающую скобку убери, или поставь в конце выражения еще одну закрывающую...
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
04.02.2015, 12:29
Как запостить тему, чтобы не получить ответ

Правила форума: https://www.cyberforum.ru/pasc... ment3.html
5.18 Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
Ручками переписываем (раз уж не умеете "копипастить") задание в тему.
И не забываем о:
4.9 Используйте тэги форматирования текста для удобства восприятия ваших сообщений другими пользователями.
1
0 / 0 / 0
Регистрация: 04.02.2015
Сообщений: 8
04.02.2015, 12:35  [ТС]
Понял, учту =) Простите уж, просто первый раз на этом форуме =)
А как записать lg? Пишет: "Неизвестное имя 'lg' "
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
04.02.2015, 12:38
Цитата Сообщение от MOHTE23 Посмотреть сообщение
А как записать lg?
Через ln
lg(x) = ln(x)/ln(10)
0
0 / 0 / 0
Регистрация: 04.02.2015
Сообщений: 8
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, не следует по каждому поводу плодить дублирующие темы. Тем более, что таким образом Вы разрываете контекст обсуждения.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33192 / 21478 / 8231
Регистрация: 22.10.2011
Сообщений: 36,846
Записей в блоге: 11
04.02.2015, 15:04
(Перенесено из дублирующей темы)
Pascal
11
b:=sqr(3-EXP(x*y))/0.5/Log10(1-x);
По поводу ошибки - интересно, какие ты значения вводил. X должно быть меньше 1-цы, иначе lg(1-x) выдаст ошибку...
0
0 / 0 / 0
Регистрация: 04.02.2015
Сообщений: 8
04.02.2015, 15:39  [ТС]
(Перенесено из дублирующей темы)
У меня по условию x=1,834, это получается ошибка преподавателя? =)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для 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
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
05.02.2015, 09:34
Цитата Сообщение от JuriiMW Посмотреть сообщение
в ABC.NET
Я конечно понимаю, что в .NET это может и есть, как и много чего другого, но это насажденные инструменты, в отличии от классической реализации Паскаля.

P.S.: Логарифмы логарифмами, но надо и понимать как можно перейти от одного к другому.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.02.2015, 09:34
Помогаю со студенческими работами здесь

Написать программу для машины с неограниченными регистрами для вычисления функции
Я в программировании вообще по нулям, так что прошу помощи. Нужно создать программу для следующих пунктов: 1) Написать программу для...

Написать программу для вычисления арифметического выражения...
Необходимо написать программу для решения следующей задачи.

Написать программу для вычисления суммы членов последовательности
1)Дана арифметическая прогрессия a1,a2,...,an. Написать программу для вычисления суммы членов этой последовательности. Пример ПРАВИЛЬНОЙ...

Написать программу для вычисления y, при введенном с консоли x
Не могу написать программу. Цикл не так задаю. Не знаю, как решить проблему.

Написать программу для вычисления суммы членов этой последовательности
1)Дана арифметическая прогрессия a1,a2,...,an. Написать программу для вычисления суммы членов этой последовательности. Пример ПРАВИЛЬНОЙ ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Музыка, написанная Искусственным Интеллектом
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\ А в самом низу файла-профиля. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru