a008888
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
CaSiLLaS
Цитата: Нет, память не короткая, просто там же iso, а тут app
и каким образом его самому написать? |
Страшно извиняюсь. Да-да. Этот модуль входит в состав Паскаля. Находится в папке J:\TP.RAR\TP\UNITS (это для версии в шапке). Просто перекиньте его (а лучше все модули) в одну директорию ...TP\BIN\.
Добавлено:
svga
Цитата:
Код:
Program MyProg;
Uses Crt;
Const
X=-0.0871;
y=0.0023e3;
Var
A,A1,A2,B,B1,B2,C,C1,Z:Real;
Begin
ClrScr;
Z:=Exp(Pi*Ln(2));
A1:=Exp(Sin(Z)*Ln(Exp(1)));
A2:=5*x+y;
A:=Exp(A2*Ln(Exp(1)))*SQR(Cos(A1)/Sin(A1));
B1:=SQR(Cos(A));
B2:=Exp(3*Ln(X+Y-Z/3));
B:=B1/B2;
C1:=SQR(A)-Exp(3*Ln(B));
C:=Ln(C1)/Ln(3);
WriteLn('Rezultat = ',C);
End.
|
|
•Это лишнее, поскольку равно единице.
•Подлогарифмическое выражение не может быть отрицательным, не говоря уже , что должно быть так:
Код:
...
B2:=Exp( 3*Ln( Cos(X+Y-Z/3) ) );
...
|
•У Вас в задании выражение по модулю. Попробуйте такой маневр:
Код: |
Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 12:19 17-11-2008 | Исправлено: a008888, 13:00 17-11-2008 |
|
и что дальше с этим файлом делать, когда его скачаю.
