23.12.2012, 23:44 | #1 (permalink) |
Banned
Регистрация: 23.12.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачи на Турбо Паскале
2) Задание 7. Построить таблицу значений функции “y” на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и соответствующие им значения аргумента “x”.y(x)=cos(x)/1lxl , a=-5,b=5,h=0,2,N=10. 3)Вычислить:T=ln2/2*ln22/3*ln42/4*...*ln182/11. |
23.12.2012, 23:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Иногда для успешного решения проблемы стоит лишь обратить внимание на схожие топики Помогите решить задачи в Паскале Помогите, пожалуйста, решить задачи в Паскале |
24.12.2012, 10:41 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так Вы явно и не пытаетесь: задачки - детские, ничего сложного. Покажите, пожалуйста, результат Ваших попыток, ежели таковые были. Кроме того, когда я вижу такое:
где явно в знаменателе пропущен знак (скорее всего, "+"), я это понимаю так, что товарищ скинул кое-как задание на форум, не потрудившись даже толком прочитать написанное. Ну а при таком отношении желания "помогать" как-то, знаете ли, не возникает. |
24.12.2012, 15:23 | #4 (permalink) |
Banned
Регистрация: 23.12.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1)R=TG(17+TG(15+TG(13+...+TG(3+tg(1)))))
2) Задание 7. Построить таблицу значений функции “y” на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и соответствующие им значения аргумента “x”.y(x)=cos(x)/1+lxl , a=-5,b=5,h=0,2,N=10. 3)Вычислить:T=ln2/2*ln22/3*ln42/4*...*ln182/11. |
24.12.2012, 15:39 | #5 (permalink) | |
Мастер-ломастер
Регистрация: 26.02.2012
Сообщений: 596
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1958
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
24.12.2012, 16:29 | #10 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const a=-5; b=5; h=0.2; N=10; Var x,Xmin,Xmax,Ymin,Ymax:real; i:Byte; Function y(z:real):real; begin y:=Cos(z)/(1+Abs(z)); end; Begin Xmin:=a; Ymin:=y(a); Xmax:=a; Ymax:=y(a); x:=a-h; Repeat i:=0; repeat i:=i+1; x:=x+h; If y(x)>Ymax then begin Xmax:=x; Ymax:=y(x); end; If y(x)<Ymin then begin Xmin:=x; Ymin:=y(x); end; Writeln('x= ',x:4:1,' y= ',y(x):8:5); until (i=N) or (x>b-h/2); If x<b-h/2 then Readln; Until x>b-h/2; Writeln; Writeln('Maximum: x= ',Xmax:4:1,' y= ',Ymax:8:5); Writeln('Minimum: x= ',Xmin:4:1,' y= ',Ymin:8:5); Readln; End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|