Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
The Black Angel
1 / 1 / 0
Регистрация: 21.01.2014
Сообщений: 17
1

Вычислить значение косинуса квадрата заданного аргумента

25.04.2014, 22:31. Просмотров 703. Ответов 2
Метки нет (Все метки)

Вычислить значение косинуса квадрата заданного аргумента.


Входные данные:
Во входном потоке заданно единственное вещественное число по модулю не превышающее 30000.

Выходные данные:
В выходной поток вывести единственное вещественное число с точностью три знака после запятой.


Пример входного файла (input.txt):5.8
Пример выходного файла (output.txt):-0.608
Pascal
1
2
3
4
5
6
7
8
9
10
Var m,y:real;
    f,g:text;
Begin
    Assign(f,'input.txt');Reset(f);
    Assign(g,'output.txt');Rewrite(g);
    read(f,m);
    y:=cos(abs(m))/sin(abs(m));
    write(g,y:0:3);
    Close(f);Close(g);
End.
подскажити что не правильно и справте пожалуста напишити полностю програму
за рание спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2014, 22:31
Ответы с готовыми решениями:

Вычислить значение квадрата синуса для заданного аргумента
Входные данные: Во входном потоке заданно единственное вещественное число А...

Вычислить корень кубический квадрата тангенса заданного аргумента a
Вычислить корень кубический квадрата тангенса заданного аргумента a. Входные...

Вычислить значение котангенса модуля заданного аргумента
Вычислить значение котангенса модуля заданного аргумента. Входные данные:...

Вычислить значение натурального логорифма для заданного положительного аргумента
Вычислить значение натурального логорифма для заданного положительного...

Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента
Необходимо составить блок-схему и программу табулирования и исследования...

2
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
26.04.2014, 01:44 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var f,g:text;
    x,y:real;
begin
 clrscr;
  assign(f,'in.txt');
   assign(g,'out.txt');
   reset(f);
  while not eof(f) do
   begin
    readln(f,x);
     writeln('X = ',x);
   end;
    y:=sqr(cos(x));
   rewrite(g);
    write(g,y:0:3);
   reset(g);
    while not eof(g) do
     begin
      read(g,y);
       write('Y = ',y:0:3);
     end;
    close(g);
  close(f);
 readkey;
end.
0
Cyborg Drone
Модератор
5290 / 3169 / 2441
Регистрация: 17.08.2012
Сообщений: 10,178
26.04.2014, 04:08 3
Цитата Сообщение от The Black Angel Посмотреть сообщение
подскажити что не правильно
неправильно то, что программа для tg(|x|), а Вам нужно для cos(x^2). Формулу в 7 строке измените.

Не по теме:

Но, судя по тому, что Вы вообще задали вопрос, подозреваю, что Вы не понимаете, о чём это я говорю.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2014, 04:08

Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента
Составить программу табулирования и исследования функции f(x) на заданном...

Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно
Значение аргумента выбрать самостоятельно.

Вычислить значение аргумента и значение функции
В каждом задании задан параметр и диапазон его значений, из каждого значения...


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

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

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