Написать программу, которая определяет число n, при котором сумма не превысит величину k, введенную с клавиатуры

@Boris12341 · Регистрация: 22.11.2017

Написать программу, которая определяет число n, при котором сумма не привысит велечину k введенную с клавиатуры то есть s>k, где s= sinx/x+sin(в квадрате)x/x(в квадрате)+sin(в кубе)x/x(в кубе)+...+sin(в n-ной степени)x/x(в n-ной степени)

@Cyborg Drone · 17.12.2017, 22:17

Pascal

var
  s, k, x, a, b: real;
  n: integer;
 
begin
  write('k = ');
  readln(k);
  repeat
    write('x <> 0; x = ');
    readln(x)
  until x <> 0;
  b := sin(x) / x;
  a := b;
  s := a;
  n := 1;
  while (s <= k) and (a <> 0) do
    begin
      inc(n);
      a := a * b;
      s := s + a
    end;
  if a <> 0
    then write('n = ', n)
    else write('Сумма меньше k');
  readln
end.

@Boris12341 0 / 0 / 0 Регистрация: 22.11.2017 Сообщений: 9
		1
	Написать программу, которая определяет число n, при котором сумма не превысит величину k, введенную с клавиатуры 17.12.2017, 17:37. Показов 1191. Ответов 1 Метки нет (Все метки) Написать программу, которая определяет число n, при котором сумма не привысит велечину k введенную с клавиатуры то есть s>k, где s= sinx/x+sin(в квадрате)x/x(в квадрате)+sin(в кубе)x/x(в кубе)+...+sin(в n-ной степени)x/x(в n-ной степени) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать программу, которая определяет число n, при котором сумма не превысит величину k, введенную с клавиатуры

Решение