Вывести на экран отрицательные значения функции и соответствующие им значения аргумента на отрезке

@Hardwell · Регистрация: 20.10.2013

Author24 — интернет-сервис помощи студентам

Для заданной функции y=ln(m\2,3)-tg(корень(m-1,2) вывести на экран отрицательные значения функции и соответствующие им значения аргумента на отрезке mε[a,5] с шагом h.

@Kam_1995 · 20.10.2013, 22:29

Pascal

uses crt;
var m,h,a,y: real;
 
function tg(x:real):real;
begin
tg:=sin(x)/cos(x);
end;
 
BEGIN
clrscr;
write('Vvedite vershinu inteervala [a,5]: (a>1.2) a=');
readln(a);
write('Vvedite shag: h=');
readln(h);
m:=a;
 
while m<5 do begin
y:=ln(m/2.3)-tg(sqrt(m-1.2));
if y<0 then writeln('pri m=',m,' funkciya rovna: ',y:5:2);
m:=m+h;
end;
 
repeat until keypressed;
END.

@Hardwell 0 / 0 / 0 Регистрация: 20.10.2013 Сообщений: 2
		1
	Вывести на экран отрицательные значения функции и соответствующие им значения аргумента на отрезке 20.10.2013, 21:47. Показов 2357. Ответов 1 Метки нет (Все метки) Для заданной функции y=ln(m\2,3)-tg(корень(m-1,2) вывести на экран отрицательные значения функции и соответствующие им значения аргумента на отрезке mε[a,5] с шагом h. 0

	20.10.2013, 22:29

Вывести на экран отрицательные значения функции и соответствующие им значения аргумента на отрезке

Решение