Помогите вычислить (Паскаль) :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Помогите вычислить (Паскаль)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки

Black4Tech Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Помогите пожалуйста Срочно!!
	Всего записей: 1 \| Зарегистр. 07-07-2013 \| Отправлено: 23:35 16-09-2013

dimitriy7 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Black4Tech А специальная тема по Паскалю для кого была создана? http://forum.ru-board.com/topic.cgi?forum=33&topic=0812 Отпишись там, тогда получишь решение.
	Всего записей: 2946 \| Зарегистр. 09-10-2008 \| Отправлено: 23:54 16-09-2013

MGAlex Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Тут чистая математика. На Паскале написать не проблема, но нужно сначала математически решить.
	Всего записей: 1855 \| Зарегистр. 12-10-2007 \| Отправлено: 23:59 16-09-2013

A_V

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

MGAlex
да что-тут решать, все переменные даны
Black4Tech
возведение в степень на чистом pascal
- X^Y - это exp(ln(X) * Y)
- модуль - |X| - это abs(X)
- sin^2z - это sin(z)*sin(z)

остальные операции - обычная арифметка, скобки расставить - и все.

далее описываешь
function calcA(const x,y:real): real;
function calcB(const x,y,z:real): real;

вызываешь, и выводишь на экран через writeLn

Добавлено:
да, e^x - это exp(x)

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 00:28 17-09-2013 | Исправлено: A_V, 00:32 17-09-2013

dimitriy7

BANNED

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Тьфу, все-таки раздули тему...

Black4Tech

Код:

{$N+}
const
x: single=3.251;
y: single=0.325;
z: single=0.466;
var
a,b: single;
begin
a:=exp(y*ln(2))+(3*x)*(3*x);
b:=(abs(x-y)*(1+sin(z)*sin(z))/(x+y))/(exp(abs(x-y))+x/2);
writeln('a=',a:3:3);
writeln('b=',b:3:3);
readln;
end.

Всё.
Предлагаю больше сюда никому ничего не писать. Ибо есть уже тема по паскалю!

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 00:33 17-09-2013 | Исправлено: dimitriy7, 00:33 17-09-2013

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Помогите вычислить (Паскаль)

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC