Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 17.09.2018, 23:55   #1 (permalink)
MyMemory
Новичок
 
Регистрация: 17.09.2018
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Перевести в язык Pascal

b=4*y^2*e^3sin2/3*z^3+ln*x
MyMemory вне форума   Ответить с цитированием

Старый 17.09.2018, 23:55
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Данные темы вам очень помогут

Помогите перевести блок-схему в алгоритмический язык
Язык Pascal
Перевести на русский язык документ с сохранением форматирования.
VHS перевести в DVD
Как перевести HDD из PIO в UDMA

Старый 18.09.2018, 00:06   #2 (permalink)
derba
Member
 
Аватар для derba
 
Регистрация: 19.07.2017
Адрес: Украииа
Сообщений: 3,599
Сказал(а) спасибо: 50
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация: 23905
По умолчанию

Exp(3*Ln(cos(3*x))

Если надо возвести в дробную степень, или отрицательную? Например, -3.15, тогда:
Exp(-3.15*Ln(cos(3*x))
derba вне форума   Ответить с цитированием
Старый 18.09.2018, 00:16   #3 (permalink)
derba
Member
 
Аватар для derba
 
Регистрация: 19.07.2017
Адрес: Украииа
Сообщений: 3,599
Сказал(а) спасибо: 50
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация: 23905
По умолчанию

Цитата:
Сообщение от MyMemory Посмотреть сообщение
b=4*y^2*e^3sin2/3*z^3+ln*x
На паскале:
4*sqr(y)*exp(3*sin(2/3)*exp(3*Ln(z))+Ln(x)

PS

Кстати, я установил Windows 7, теперь паскаль не запускается, есть версии паскаля, работающие на 64 разрядной 7? У меня куча калькуляторов прописана. А на железо даже 32 разрядная семерка виндовса не становится.
Что паскаль, делфи не становится. (Тут написана 7 версия делфи, у меня 6 версия)
Миниатюры
1.png  

Последний раз редактировалось derba; 18.09.2018 в 00:22
derba вне форума   Ответить с цитированием
Старый 18.09.2018, 05:24   #4 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

FreePascal рабтает, скачайте версию под x64 с официального сайта проекта
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 18.09.2018, 09:55   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от MyMemory Посмотреть сообщение
b=4*y^2*e^3sin2/3*z^3+ln*x
Дорогие коллеги, полагаю, что пока в исходном выражении не расставлены скобки, причём в изрядном количестве, строить какие бы то ни было переводы на Паскаль абсолютно бессмысленно. Скобками должны быть выделены:
1. Степень переменной у.
2. Показатель экспоненты.
3. Аргумент синуса.
4. Числитель и знаменатель дроби.
Пока это не сделано — гадание на кофейной гуще.
MyMemory, можно, если неохота со скобками путаться, сфотографировать и выложить формулу в естественном виде, без "шапочек", с многоэтажными дробями и т.п. Хоть от руки написанную.

P.S. И не цепляйтесь к чужим темам — у нас это не принято. Создавайте свои.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 18.09.2018, 11:28   #6 (permalink)
MyMemory
Новичок
 
Регистрация: 17.09.2018
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Cool Перевести в язык Pascal

img_20180912_092617.jpgВариант 26 и 25
MyMemory вне форума   Ответить с цитированием
Старый 18.09.2018, 14:01   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от MyMemory Посмотреть сообщение
Вариант 26 и 25
Легко.
Вар. 25:
b := Sqrt(Abs(y)*Exp(-(y+x/2)));
Вар. 26:
b := (Sqr(y)*4*Exp(Sin(2)*3))/(z*Sqr(z)*3+Ln(x));
Vladimir_S вне форума   Ответить с цитированием
Старый 18.09.2018, 14:46   #8 (permalink)
MyMemory
Новичок
 
Регистрация: 17.09.2018
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Возможно ли написание формулы следующим образом:

b:=(sqr(y)*4*exp(sin(2)*3))/exp(3+ln(z)*3))+ln(x));
MyMemory вне форума   Ответить с цитированием
Старый 18.09.2018, 15:50   #9 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от MyMemory Посмотреть сообщение
Возможно ли написание формулы следующим образом:
Нет. НЕ возможно.
1. При написании ЛЮБЫХ выражений со скобками, первое, что Вы должны сделать — это проверить совпадение количества открывающих и закрывающих скобок. Ваша формула с треском проваливает этот тест.
2. Если Вам (уж не ведаю, зачем) неймётся выразить 3z³ через логарифмы и экспоненты, то делать это нужно грамотно, а не абы как. Это, знаете ли, математика, а не философия.
3z³ = Exp(Ln(3z³)) = Exp(Ln(3)+Ln(z³)) = Exp(Ln(3)+3Ln(z)) = Exp(Ln(3))*Exp(3Ln(z)) = 3Exp(3Ln(z));
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
exp(3+ln(z)*3+ln))


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:17.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.