Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 10.10.2013
Сообщений: 21
1

Цикл с предусловием и постусловием. Вычислить: sin(x)+sin(x)^2+...sin(x)^n

16.01.2014, 19:43. Показов 2140. Ответов 1
Метки нет (Все метки)

что в ней не так,ребят помогите
Даны натуральное число n и вещественная число x. Вычислить:sin(x)+sin(x)^2+...sin(x)^n

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
    var a,x,n:integer;
        t,s:real;
begin
a:=0;
writeln('vvedite n');
 readln(n);
 writeln('vedite x');
 readln(x);
 
 while a<=n do begin
  s:=sin(x)*sin(x);
  a:=a+1;
  writeln('s= ');
 
  end;
  readln;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2014, 19:43
Ответы с готовыми решениями:

Найти значение выражения: sin(sin(…sin(x))), где функция sin используется n раз
uses SysUtils; function sin1(x:real; n:integer):real; var a:real; i:integer; begin...

Вычислить сумму ряда s=sin(1)+sin(2)+…+sin(n)
Вычислите сумму ряда s=sin(1)+sin(2)+…+sin(n), для n введенного с клавиатуры. Не могу понять,...

Вычислить sin(1+sin(1+…sin(1+sin 1))…)
Вычислить sin(1+sin(1+…sin(1+sin 1))…)

Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ., меньшее по модулю 10-4
Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4 Видел...

__________________
1
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
17.01.2014, 08:36 2
sereja_3,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var s,si,x:real;
    i,n:integer;
Begin
  Write('n = ');readln(n);
  Write('x = ');readln(x);
  s:=0;si:=1;i:=0;
  While i<=n do
    Begin
      Inc(i);
      si:=si*sin(x);
      s:=s+si;
    End;
  Write('s = ',s:0:4);
  readln;
End.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,si,x:real;
    i,n:integer;
Begin
  Write('n = ');readln(n);
  Write('x = ');readln(x);
  s:=0;si:=1;i:=0;
  Repeat
    Inc(i);
    si:=si*sin(x);
    s:=s+si;
  until i>=n;
  Write('s = ',s:0:4);
  readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2014, 08:36

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 ...

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n
1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и...

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y&gt;0.01 do begin ...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Цикл: Вычислить значение контрольной суммы sin(x)/1 + sin(2x)/2 + ... + sin(n*x)/n...
Задача вычислить значение контрольной суммы sin(x)/1 + sin(2x)/2 + ... + sin(n*x)/n Код получился...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.