Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 10
1

Вычислить sin(a)*sin(b) при условии,что a и b принадлежат отрезку [cd]

10.03.2014, 17:01. Показов 1941. Ответов 3
Метки нет (Все метки)

Даны два числа A и B. Если оба значения принадлежат отрезку [c;d],то вычислить R=sin(a)*sin(b). В противном случае вывести ответ 'нет решения'.
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2014, 17:01
Ответы с готовыми решениями:

Циклом «пока» вычислить сумму ряда 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

Для заданного числа 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>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(1)+sin(2)+sin(3)+...sin(n)
1.Длинная последовательность двузначных чисел вводится клавиатуры. Признаком конца ввода является...

3
58 / 40 / 41
Регистрация: 26.09.2013
Сообщений: 340
Записей в блоге: 1
10.03.2014, 17:17 2
Pascal
1
2
3
4
5
6
7
8
9
var a,b,c,d,r:real;
begin
     writeln('Введите A и B:');
     readln(a,b);
     writeln('Введите c,d:');
     readln(c,d);
     if (a>=c) and (b<=d) then begin r:=sin(a)*sin(b); writeln('R=',r) end else writeln('Нет решения');
     readln;
end.
1
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
10.03.2014, 17:21 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const c=1;d=10;
var a,b:integer;
    r:real;
BEGIN
 clrscr;
 
    write('a=');
    readln(a);
     write('b=');
      readln(b);
 
    if (a in [c..d]) and (b in [c..d]) then
     begin
      r:=sin(a)*sin(b);
       writeln('R = ',r:0:2);
     end
    else
     writeln('Нет решений .');
 readkey;
END.
1
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 10
10.03.2014, 20:51  [ТС] 4
Благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2014, 20:51

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

Вычислить тремя видами (if , for , while)уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1))
Вычислить тремя видами (if , for , while) уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1)). ...

Вычислить N=sin(a)+sin(2a)+sin(3a)+.+sin(17a)
Вычислить N=sin(a)+sin(2a)+sin(3a)+...+sin(17a)

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

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


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

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

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