|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.04.2010, 16:41 | #1 |
Пользователь
Регистрация: 09.01.2009
Сообщений: 50
|
найти ошибку
y= ((x[i]+1.5)/abs(x[i]+1.5)*exp(1/3*ln(abs(x[i]+1.5))))/exp(x[i]),если x<0
y= ln(x[i]+exp(x[i]*ln(2))-3) , если 0<x<5.25 y=sin(x[i])/cos(x[i]), если x>5.25 X [-12,5…10,75] шаг=0.25 считает первый у,остальные не хочет( uses Crt; var a,x,y:array [1..93] of real; flag,i:byte; Begin ClrScr; For i:=1 to 93 do begin x[i]:=-12.5; While x[i]<=10.75 do begin if x[i]<0 then if exp(x[i])=0 then flag:=0 else begin y[i]:=((x[i]+1.5)/abs(x[i]+1.5)*exp(1/3*ln(abs(x[i]+1.5))))/exp(x[i]); flag:=1; end else if x[i]<5.25 then begin a[i]:=x[i]+exp(x[i]*ln(2))-3; if a[i]<0 then flag:=0 else begin y[i]:=ln(a[i]); flag:=1; end end else begin if x[i]=2*PI then writeln('x[i]-osobaya tochka') else begin if x[i]>5.25 then if cos(x[i])=0 then flag:=0 else begin y[i]:=sin(x[i])/cos(x[i]); flag:=1; end; end end; if flag=0 then writeln ('x[i]=', 'fynkcia ne sywestvyet') else writeln ('x[i]=',x[i]:2:2, ' y[i]=',y[i]:2:2); x[i]:=x[i]+0.25; readln; end; end; end. Последний раз редактировалось Яська; 04.04.2010 в 16:48. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти ошибку | stanBRY | Общие вопросы C/C++ | 17 | 29.03.2010 23:16 |
Найти ошибку | Uvaroff | Помощь студентам | 3 | 13.01.2010 01:45 |
Помогите найти ошибку! | frantic150 | Microsoft Office Excel | 0 | 26.06.2009 18:23 |
найти ошибку | rUs_LAN | Общие вопросы C/C++ | 8 | 14.05.2009 12:02 |