Вычислять значение функции y=sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная функция возрастает

@Angelina2001 · Регистрация: 20.09.2018

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

Вычислять значение функции y=sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная функция возрастает

Напишите на паскале/делфи/си, пожалуйста

@Puporev · 21.09.2018, 10:14

Pascal

var x:integer;
    a,y:real;
begin
write('Введите коэффициент а=');
readln(a);
x:=1;
y:=sin(a);
writeln('x=1 y=',y:0:3);
while sin(a*(x+1))>y do
 begin
  x:=x+1;
  y:=sin(a*x);
  writeln('x=',x,' y=',y:0:3);
 end;
end.

@Angelina2001 0 / 0 / 0 Регистрация: 20.09.2018 Сообщений: 8
		1
	Вычислять значение функции y=sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная функция возрастает 20.09.2018, 18:53. Показов 1801. Ответов 1 Метки нет (Все метки) Вычислять значение функции y=sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная функция возрастает Напишите на паскале/делфи/си, пожалуйста 0

	21.09.2018, 10:14