Написать программу вывода на экран значения функции

@TheVladislav · Регистрация: 28.10.2013

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

Помогите пожалуйста с заданием, сам не сильно умен в паскале, прошу помочь

Для заданной функции t=cos(x/2,3)+sin(x-2,4)-sqrt(x-1,2) вывести на экран значения функции,которые больше -1 и соответствующие им значения аргумента на отрезке xЄ[a;5] с шагом h.

@Mishania · 29.10.2013, 15:31

TheVladislav,

Pascal

var
    x,t,a,h: real;
begin
       Write('Введите значение a='); Readln(a);
       Write('Введите значение h=')  Readln(a);
       x:=a;
       While x<=5 do begin
               t:=cos(x/2.3)+sin(x-2.4)-(sqrt(x-1.2));
               if t >-1 then Writeln('x=',x:0:2,' ','t=',t:0:2);
               x:=x+h;
       end;
Readln;
end.

@TheVladislav 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 2
		1
	Написать программу вывода на экран значения функции 28.10.2013, 22:41. Показов 1474. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с заданием, сам не сильно умен в паскале, прошу помочь Для заданной функции t=cos(x/2,3)+sin(x-2,4)-sqrt(x-1,2) вывести на экран значения функции,которые больше -1 и соответствующие им значения аргумента на отрезке xЄ[a;5] с шагом h. 0

	29.10.2013, 15:31

Опции темы

Написать программу вывода на экран значения функции

Решение