0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 7
1

Вывести график ctg(x^2)/sqrt(x)

08.05.2014, 13:26. Показов 2432. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите создать программу функции ctg(x^2)/sqrt(x)
с выводом в модуле graph
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 13:26
Ответы с готовыми решениями:

Вывести график ctg(x^2)/sqrt(x) , добавить функцию с ответа.
program funk; uses crt,graph; function F(x:real):real; begin F:=cos(x)/sin(x)/sqrt(x); end;...

Построение графика функций y=tg(x) y=ctg(x) y=x*3, y=sqrt(x)
Добрый день,товарищи. помогите пожалуйста решит задачу построение графика функций y=tg(x) y=ctg(x)...

Даны натуральные числа n и k. Вычислить: sqrt(k+sqrt(2k+...+sqrt(k(n-1)+sqrt(kn))))
Даны натуральные числа n и k. Вычислить: sqrt(k+sqrt(2k+...+sqrt(k(n-1)+sqrt(kn))))

Дано целое положительное число n. Найти sqrt(n+ sqrt (n-1) + sqrt (n-2)+. sqrt (1)
Дано целое положительное число n. Найти sqrt(n+ sqrt ((n-1) + sqrt ((n-2)+... sqrt (1))))

2
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.05.2014, 16:02 2
Лучший ответ Сообщение было отмечено BassTim как решение

Решение

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses graph;
function F(x:real):real;
begin
F:=cos(x)/sin(x)/sqrt(x);
end;
var xn,xk,max,min,x,y,mx,my,dx:real;
    x0,y0,i,k:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=50;{начало координат на экране}
y0:=getmaxY div 2;
xn:=0;xk:=4*pi;{интервал по Х}
mx:=(getmaxX-2*x0)/xk;{масштаб по Х}
my:=(y0-20)/60;
line(x0,y0,getmaxX,y0);{оси}
line(x0,0,x0,getmaxY);
{разбиыка оси Y}
for i:=1 to 6 do{максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0+round(10*i*my),x0+3,y0+round(10*i*my));
  line(x0-3,y0-round(10*i*my),x0+3,y0-round(10*i*my));
  str(i*10,s);
  outtextXY(x0-35,y0+round(10*i*my),'-'+s);
  outtextXY(x0-35,y0-round(10*i*my),s);
 end;
{разбиыка оси Y}
for i:=1 to 8 do
 begin
  line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3);
  if i mod 2=0 then
   begin
    k:=i div 2;
    str(k,s);
    if i=2 then outtextXY(x0+round(i*pi*mx/2),y0+10,'pi')
    else outtextXY(x0+round(i*pi*mx/2),y0+10,s+'pi');
   end;
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
{график}
x:=xn;
dx:=0.0001;
while x<=xk do
 begin
  if x>0 then putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+dx; {наращиваем х}
 end;
readln
end.
0
BassTim
09.05.2014, 16:39  [ТС]     Вывести график ctg(x^2)/sqrt(x)
  #3

Не по теме:

Помоги переделать эту программу что бы добавить функцию с ответа Вывести график ctg(x^2)/sqrt(x) , добавить функцию с ответа.

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2014, 16:39

Вывести таблицу значений функций sqrt(x^2+1) и sqrt(x^2-1) с шагом h
Напишите функции в виде методов. Напишите тестирующую программу с выдачей результатов на экран. ...

Дано натуральное число n. Вычислить: sqrt(3+sqrt(6+.+sqrt(3*(n-1)+sqrt(3*n)
Что я делаю не так, подскажите пожалуйста. #include &lt;stdio.h&gt; #include &lt;math.h&gt; #include...

Вычислить значение выражения: sqrt(3+sqrt(6+.+sqrt(96+sqrt(99)
Пытаюсь решить данное выражение, но ответ выходит слишком большим, вот наработка: #include...

Цикл: Для числа N вычислить значение следующего выражения: sqrt((1) + sqrt((2) + ... + sqrt(2 * N)))
Как это решить? sqrt((1)+sqrt((2)+..+sqrt(2n)))


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru