Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите разобраться с экспонентой. 
V
    Опции темы
KPEHDEL
  Дата 18.9.2010, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет
Вот изображение: 
user posted image

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


Пишу:


Код

Var x,y,c:real;
Begin
 Writeln('a и b');
 Readln(x,y);
 c:=(3+exp(y-1))/(1+sqr(x)abs(y-tg x));
 Writeln(c);
 Readln(c);
End.



Подскажите в чём ошибка в экспаненте и как правильно записать.
PM MAIL WWW ICQ   Вверх
DarkProg
Дата 18.9.2010, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
Ну судя по всему вы не знаете английски, потому что паскаль обязан ругаться на такую форму записи вашего выражения

У вас
Цитата(KPEHDEL @  18.9.2010,  22:25 Найти цитируемый пост)
c:=(3+exp(y-1))/(1+sqr(x)abs(y-tg x));


А нужно так
Цитата(KPEHDEL @  18.9.2010,  22:25 Найти цитируемый пост)
c:=(3+exp(y-1))/(1+sqr(x)*abs(y-tg (x)));



P.S. набирал прям здесь так что может со скобками чуток промахнулся, но вроде порядок


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Фантом
Дата 18.9.2010, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Вы это прекратите!
***


Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 2
Всего: 49
Цитата(DarkProg @  18.9.2010,  23:04 Найти цитируемый пост)
P.S. набирал прям здесь так что может со скобками чуток промахнулся, но вроде порядок 

Только еще одна поправка - функция вычисления тангенса называется tan, а не tg.
PM   Вверх
KPEHDEL
  Дата 19.9.2010, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет
Ввожу вот так...
Код

Var x,y,c:real;
Begin
 Writeln('a и b');
 Readln(x,y);
 c:=(3+exp(y-1))/(1+sqr(x)*abs(y-tan(x)));
 Writeln(c);
 Readln(c);
End.



Всё равно не компилит, бросает курсор на tan. Не пойму в чём дело...
PM MAIL WWW ICQ   Вверх
DarkProg
Дата 19.9.2010, 13:58 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
Цитата(KPEHDEL @  19.9.2010,  12:21 Найти цитируемый пост)
Всё равно не компилит, бросает курсор на tan. Не пойму в чём дело... 

Если мне память не изменяет то надо модуль math подцепить к проекту и читайте что вам пишет компилятор - он там чисто серым по синему выводит в достаточно понятной форме.


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
KPEHDEL
Дата 19.9.2010, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет
Прикрепил модуль math
Код выгледит так:
Код

Program Z1 (Input, Output,math);
Var x,y,c:real;
Begin
 Writeln('a и b');
 Readln(x,y);
 c:=(3+exp(y-1))/(1+sqr(x)*abs(y-tan(x)));
 Writeln(c);
 Readln(c);
End.



Не компилируется. В ошибке пишет: Error: Identifier not found "tan"
PM MAIL WWW ICQ   Вверх
Фантом
Дата 19.9.2010, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Вы это прекратите!
***


Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 2
Всего: 49
Цитата(KPEHDEL @  19.9.2010,  14:19 Найти цитируемый пост)
Прикрепил модуль math

Ой ли?
Цитата(KPEHDEL @  19.9.2010,  14:19 Найти цитируемый пост)
Код выгледит так:

А надо
Код

program Z1;
uses math;
var ...

и т.д.
PM   Вверх
KPEHDEL
Дата 19.9.2010, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет
Спасибо, работает.
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0450 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.