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

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

09.05.2014, 16:39. Просмотров 441. Ответов 9
Метки нет (Все метки)

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program funk;
uses crt,graph;
function F(x:real):real;
begin
F:=cos(x)/sin(x)/sqrt(x);
end;
var gp,gm,l,i,x,y:integer;  a:array[1..30] of real;
procedure init;
begin
gp:=0; Gm:=0;
InitGraph(gp,Gm,'D:\Program\paskal\pak\BP');
end;
 
procedure ramka;
begin
{Головна}
Setcolor(2);
SetLinestyle(0,0,3);
SetFillStyle(3,12);
Bar(11,11,629,459);
Rectangle(10,10,630,460);
{Робоча полость}
Setcolor(3);
SetFillStyle(1,15);
Bar(27,27,499,379);
Rectangle(26,26,500,380);
{Коментари}
Setcolor(4);
SetFillStyle(1,21);
Bar(511,27,614,379);
Rectangle(510,26,615,380);
{Подпись}
Setcolor(5);
SetFillStyle(1,25);
Bar(26,400,614,439);
Rectangle(27,440,615,400);
end;
procedure text;
begin
setcolor(10);
settextstyle(7,0,1);
moveto(370,410);
OutText('ПС-27 Зичков Серг1й');
end;
procedure sis;
begin
setlinestyle(0,0,3);
setcolor(0);
line(263,27,263,378);
line(27,203,499,203);
 
l:=10;
x:=33;
y:=33;
 
for i:=1 to 45 do begin
x:=x+l;
line(x,209,x,198); end;
 
for i:=1 to 33 do begin
y:=y+l;
line(260,y,266,y);
end;
end;
begin
init;
ramka;
text;
sis; graf;
readkey;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2014, 16:39
Ответы с готовыми решениями:

Вывести график ctg(x^2)/sqrt(x)
помогите создать программу функции ctg(x^2)/sqrt(x) с выводом в модуле graph

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

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

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

Написать функцию (1-tg x)^(ctg x) + cos(x-y)
Нужна помощь! Нужно написать функцию (1-tg x)^(ctg x) + cos(x-y) в Turbo...

9
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,753
09.05.2014, 16:44 2
Цитата Сообщение от BassTim Посмотреть сообщение
что бы добавить функцию с ответа
Ни хрена не понял. А где процедура graf;?
0
BassTim
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 7
09.05.2014, 16:56  [ТС] 3
удалил

Добавлено через 1 минуту
нужно что бы та функция была на моей системе координат в табличке =(
0
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,753
09.05.2014, 17:01 4
Извини, не понимаю, да и программа не моя.
0
BassTim
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 7
09.05.2014, 17:08  [ТС] 5
Ну тогда можешь дать какой то шаблон по которому можно рисовать график в любой программе ?
0
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,753
09.05.2014, 17:18 6
Нет, не могу, у меня нет.
0
BassTim
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 7
09.05.2014, 17:48  [ТС] 7
Ладно буду что то думать спасибо )

Добавлено через 20 минут
Puporev, а как сделать что бы цикл остановился по нажатии на esc? :wall:
0
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,753
09.05.2014, 17:50 8
Pascal
1
2
3
4
5
6
7
uses crt;
var c:char;
...................
repeat
//что-то делаем
c:=readkey;
until c=#27;
0
BassTim
10.05.2014, 14:22  [ТС]
  #9

Не по теме:

Puporev, спс)

Добавлено через 20 часов 25 минут
Puporev, привет и снова я помоги привязать движения Rectangle(x1,y1,x2,y2); в лево по нажатии на стрелку в лево :-|

Добавлено через 4 минуты
все не нужно получилось
:yahoo:

0
Cyborg Drone
10.05.2014, 15:13     Вывести график ctg(x^2)/sqrt(x) , добавить функцию с ответа.
  #10
 Комментарий модератора 
BassTim, один вопрос - одна тема. Рекомендую ознакомиться с правилами форума.
0
10.05.2014, 15:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2014, 15:13
Привет! Вот еще темы с ответами:

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

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

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


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

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

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