|
0 / 0 / 0
Регистрация: 09.10.2010
Сообщений: 24
|
|
| 1 | |
Линейные вычислительные процессы + развилки18.12.2010, 21:52. Показов 569. Ответов 0
Метки нет (Все метки)
вычислить: y:=exp(d)+sin(t)/cos(t);, t:=c/(1+sqrt(d*d+1)); Если у>0 то вычислить и отпечатать z:=c*y+d*y+c*d, Если y=0, напечатать "у=0". Иначе вычислить x:=arctan(y/sqrt(1-y*y)+sin((d/2)/cos(d/2))). Я написал код программы, но как сделать чтобы при у>0 паскаль не выдавал х=0 ??? program Pr1; uses crt; var x,z,t,y,c,d : real; begin writeln ('vvedite c,d'); readln(c,d); t:=c/(1+sqrt(d*d+1)); y:=exp(d)+sin(t)/cos(t); writeln('y=',y:6:2); if y>0 then begin z:=c*y+d*y+c*d; writeln('z=',z:6:2); end else if y=0 then begin writeln('"y=0"'); end else x:=arctan(y/sqrt(1-y*y)+sin((d/2)/cos(d/2))); writeln('x=',x); end. Ответьте пожалуйста... Добавлено через 11 минут А всё сам додумался) надо бегин и енд было вставить 
0
|
|
(| 18.12.2010, 21:52 | |
|
Ответы с готовыми решениями:
0
в чем ошибка(Циклические вычислительные процессы)? линейные вычислительные процессы Циклические вычислительные процессы Циклические вычислительные процессы. |
| 18.12.2010, 21:52 | |
| 18.12.2010, 21:52 | |
|
Помогаю со студенческими работами здесь
1
Циклические вычислительные процессы
Циклические вычислительные процессы Циклические вычислительные процессы Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
