|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2007, 00:28 | #1 |
Пользователь
Регистрация: 30.10.2007
Сообщений: 30
|
паскаль. уравнение.
задачка в документе...Написать программу вычисления S по формулам.
Заранее спасибо. Последний раз редактировалось Jodu; 20.03.2008 в 22:29. |
23.12.2007, 04:24 | #2 |
Новичок
Джуниор
Регистрация: 23.12.2007
Сообщений: 1
|
If x>0 then
S=x*x*x*sqr(tg(sqr(x+5)))+(0.11*x)/(5*sqrt(abs(x-3))) If X<>0 then S=(3*x*x-cos(x))/(???*x - 1)+ ln 7 |
23.12.2007, 11:27 | #3 |
Пользователь
Регистрация: 30.10.2007
Сообщений: 30
|
Исправьте...При вводе некоторых х (например 66, 55 и других
возникает ошибка 709. Заранее спасибо Program zadanie; const e=2.7; Var s:Real; x:integer; Begin ; Writeln ('vvedite x'); Readln(x); If (x>0) then begin S:=x*x*x*exp(2*(sin(exp(2*(x+5))))/(cos(exp(2*(x+5)))))+(0.11*x)/(5*sqr(abs(x-3))) ; writeln('s=',s:8:3, 'peshenue 1 yraBneniya'); End Else Writeln('net reweniya dlya 1 uravniniya'); If (x<>0) then begin s:=(3*x*x-cos(x))/(e*e*e*x-1)+ ln(7); writeln('s=',s:8:2,'pesheHue 2 uravnenuia'); End Else Writeln('net reweniya dlya 2 uravneniya'); Readln; End. |
23.12.2007, 11:29 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
1. uses Math -> функция TAN
2. if X<>0 then S:=(3*sqr(x)-cos(x)) / (exp(3)*x-1) + ln(7);
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 23.12.2007 в 11:31. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите написать уравнение... | Altera | Свободное общение | 8 | 11.04.2008 19:57 |
Уравнение метода итераций | SPQR | Помощь студентам | 2 | 12.11.2007 01:26 |
Квадратное уравнение на Assembler | PLETNEFF | Помощь студентам | 3 | 10.10.2007 09:06 |