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

Построить график функции

06.02.2012, 20:57. Просмотров 567. Ответов 1
Метки нет (Все метки)

Доброго времени суток!
Задание дали нам такое: "Разработать алгоритм программы, протабулировать функцию в заданных пределах и построить график функции"
Y=sin(x+3Pi/4), XЄ[0..Pi]
Думаю сам бы разобрался, но в лекции дан пример:
"Вывести на экран монитора график функции sin(x) с параметрами х=0, dx=0.155 nx=42 пикселя."
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
uses graph,crt;
var gd,gm,gr,i,kn:integer;
x,dx:real;
a:array[1..100] of integer;
begin
clrscr;
writeln('Введите x,dx,kn');
readln(x,dx,kn);
for i:=1 to kn do
begin
a[i]:=-round(sin(x*42)+42);
writeln(x:4:1,'',a[i]:4);
x:=x+dx;
end;
readln;
gd:=detect;
initgraph(gd,gm,'');
if gr <> grok then halt(1);
line(0,0,getmaxx,getmaxy);
line(0,0,getmaxx,getmaxy);
readln;
outtextxy(150,100,'График sin(x)');
line(20,262,450,262);
line(20,20,20,500);
outtextxy(449,260,'>');
outtextxy(450,270,'x');
outtextxy(415,270,'6.28');
outtextxy(0,20,'y');
outtextxy(0,262,'0');
outtextxy(17,20,'^');
outtextxy(0,220,'1-');
outtextxy(0,304,'-1-');
for i:=2 to kn do
line((i-1)*10+10,220+a[i-1],i*10+10,220+a[i]);
readln;
closegraph;
end.
В итоге получается - см. вложение. Где-то ошибка? Помогите ее, пожалуйста, найти, а дальше м.б. сам разберусь
0
Миниатюры
Построить график функции  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 20:57
Ответы с готовыми решениями:

Построить график функции, на этом же графике построить графики первой и второй производных функции
построить график функции,на этом же графике построить графики первой и второй производных...

Построить график функции и отметить точки пересечения функции с осями координат
Построить график функции при значении коэффициентов: а = 2, b = 3. Отметить точки пересечения...

Построить график функции f (x) таким образом, чтобы были видны все корни функции
1. Построить график функции f(x) таким образом, чтобы были видны все корни функции. 2. Графически...

Построить график функции f (x) таким образом, чтобы были видны все корни функции
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Построить график функции f(x) таким образом, чтобы были...

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

1
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
07.02.2012, 12:53 2
Это идиотский пример, вообще с отключенным мозгом написано.
Уж лучше сам разбирайся, свое дороже ценится.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 12:53

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

Построить график функции
Построить график функции y=4.95+\begin{cases}\cos 3x- \sin x &amp; \text{, } x\leq -3.5\\ \arcsin...

Построить график функции y=x3 +3x+3
Написать программу построения графика функции y=x3 +3x+3 на отрезке ; Пример. Написать...


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

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

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