|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.02.2009, 15:47 | #1 |
Пользователь
Регистрация: 27.01.2009
Сообщений: 43
|
Не сходится с ответом...
http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/
Вторая задача... program pr_123; var y,a,c,x,m : real; flag : boolean; begin write ('a= '); readln (a); write ('c= '); readln (c); write ('x= '); readln (x); flag:=false; if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then begin flag:=true; m:=4*sqr(cos(5*sqr(sin(x))))*cos(5* sqr(sin(x)))*co s(x)/ (5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))* sin(c)/cos(c)) end; if flag and (m>0) then y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c))) +sqrt(m); write ('a c x y'); writeln; write (a:0:1,' ',c:0:1,' ',x:0:1,' ',y:0:4); writeln; readln end. Где я допустил ошибку? Подскажите пож. |
16.02.2009, 15:48 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Условие какое?
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
16.02.2009, 15:50 | #3 |
Пользователь
Регистрация: 27.01.2009
Сообщений: 43
|
http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/
там вторая задачка... на паскале расписать... но ответ для проверки не сошёлся... |
16.02.2009, 15:52 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Ничего нет. Опишите словами или выложите картинку на форуме.
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
16.02.2009, 15:55 | #5 |
Пользователь
Регистрация: 27.01.2009
Сообщений: 43
|
http://s51.radikal.ru/i134/0902/74/96e0a37cbec7.jpg
Эта открылась? вторая задачка... |
16.02.2009, 16:06 | #6 |
Пользователь
Регистрация: 27.01.2009
Сообщений: 43
|
мб в задаче опечатка?
|