Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.02.2009, 19:19   #1
Dialon
Пользователь
 
Регистрация: 02.02.2009
Сообщений: 34
По умолчанию Проверте пожалуйсто верна ли задача!

Проверте пожалуйсто верна ли задача!
Составить блок-схему и программу для вычисления значения функции при заданных значениях аргумента. Ввод аргументов осуществить через Const.
Program F;
const x=-2,4;
var x,y: Real;
Begin
y:=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln((x*x*x*x*x-5)/(pi+x)));
writeln (y);
End;
End.
Вложения
Тип файла: doc Формула,блок-схема.doc (18.5 Кб, 14 просмотров)
Dialon вне форума
Старый 03.02.2009, 19:31   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Во-первых, 2.4
Во-вторых, x- const поэтому удаляйте ее из var
В-третьих, ругается на ln((x*x*x*x*x-5) - логарифм отрицательного числа???
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 03.02.2009, 19:47   #3
Dialon
Пользователь
 
Регистрация: 02.02.2009
Сообщений: 34
По умолчанию

а может тогда вот так
y=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln((exp(5*ln(x)-5)/(Pi+x)))
Dialon вне форума
Старый 03.02.2009, 19:58   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от Dialon Посмотреть сообщение
а может тогда вот так
y=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln((exp(5*ln(x)-5)/(Pi+x)))
ln(x) - область определения x>0, поэтому x под знаком логарифма должен быть в четной степени(если x=-2.4)


Выложите свою формулу
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 03.02.2009, 20:17   #5
Dialon
Пользователь
 
Регистрация: 02.02.2009
Сообщений: 34
По умолчанию формула

вот она здесь
Вложения
Тип файла: doc Формула,блок-схема.doc (18.5 Кб, 8 просмотров)
Dialon вне форума
Старый 03.02.2009, 20:20   #6
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
const x=-2.4;
var y: Real;
Begin
y:=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln(abs(x*x*x*x*x-5)/(pi+x)));
writeln (y);
End.
Вы забыли про модуль(если все остальное правильно)
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 03.02.2009, 20:23   #7
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

У тебя же в формуле корень 4й степени из МОДУЛЯ выражения, куда его девал?
y:=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln(abs((x*x*x*x*x-5)/(pi+x))));
puporev вне форума
Старый 03.02.2009, 20:31   #8
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Кстати, на блок-схеме чего это в начале начало и в конце тоже начало?
puporev вне форума
Старый 03.02.2009, 20:35   #9
Dialon
Пользователь
 
Регистрация: 02.02.2009
Сообщений: 34
По умолчанию

Огрооооомная Вам благодарность, а в блок схеме это я копировал да забыл поменять начало на конец
Dialon вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверте пожайлуста написания програмы АлександрFRONT Паскаль, Turbo Pascal, PascalABC.NET 5 09.12.2008 08:27
Проверте сайт niva622 HTML и CSS 10 23.08.2007 18:26