С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
BassTim
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 7
1

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

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

помогите создать программу функции ctg(x^2)/sqrt(x)
с выводом в модуле graph
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.05.2014, 13:26
Ответы с готовыми решениями:

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

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

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

Вычислить выражение: S= 1+sqrt(2)+sqrt(3)+sqrt(4)+...+sqrt(N)
Составить программу вычисления значения выражения S=...

Построить график фукции y=x*sqrt(2-x)
построить график фукции y=x*sqrt(2-x) ; -15<=x<=15

2
Puporev
Модератор
55490 / 42586 / 29434
Регистрация: 18.05.2008
Сообщений: 100,740
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2014, 16:39
Привет! Вот еще темы с ответами:

Вычислить значение выражения: Sqrt(x+sqrt(x+...sqrt(x)))
Для данного натурального N и вещественного x(x&gt;0) вычислить значение выражения:...

Вычислить сумму S=sqrt(1+sqrt(2+sqrt(3+.+sqrt(50)
Всем доброго времени суток! Прошу помочь с данной задачей: 1. Вычислить сумму...

Задав функцию F(x)=3*sin(sqrt(x), построить на символьном экране дисплея ее график
Задав конкретную функцию F(x), построить на символьном экране дисплея ее график...


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

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

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