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

Написать программу, которая выводит на экран график одной или несколько функций

12.05.2014, 23:46. Просмотров 1055. Ответов 2
Метки нет (Все метки)

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

1)Функцию, график которой нужно вывести. Программа может содержать несколько таких функций.

2)Функцию или процедуру, которая выводит график на экран. Эта подпрограмма должна получать в качестве аргументов координаты области, которая будет отображена на экране и функцию, график которой нужно отобразить (аргумент процедурного типа).

Прошу пожалуйста хотя бы с минимальным объяснением, хочется вникнуть в тему.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2014, 23:46
Ответы с готовыми решениями:

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

Написать программу, которая запрашивает ввод целого числа и выводит на экран сообщение, положительное это число или нет
Написать программу, которая запрашивает ввод целого числа и выводит на экран...

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

Составить программу, которая выводит на экран дисплея значение одной из выбранной единицы веса
В общем, никак не получается написать программу, которая выводит на экран...

Написать программу, которая выводит на экран узор
Написать программу, которая выводит на экран узор, изображенный ниже. Контур...

2
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,636
13.05.2014, 09:37 2
Лучший ответ Сообщение было отмечено leWire как решение

Решение

Вот пример
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
uses graph;
{описание функций}
type func=function(x:real):real;
{$F+}
function F1(x:real):real;
begin
F1:=sin(x);
end;
function F2(x:real):real;
begin
F2:=cos(x);
end;
{$F-}
{процедура рисования графиков}
procedure grafik(f:func;x1,y1,x2,y2:integer);
var x0,y0:integer;
    xn,xk,mx,my,x,dx:real;
begin
setcolor(14);
setfillstyle(1,14);
bar(x1,y1,x2,y2);
x0:=(x2+x1) div 2;{центр окна}
y0:=(y2+y1) div 2;
xn:=-pi;xk:=pi;{интервал по Х}
mx:=(x2-x1)/(xk-xn);{масштаб по Х}
my:=y0-y1-5;{по У}
setcolor(8);{цвет линий}
line(x1,y0,x2,y0);{оси}
line(x0,y1,x0,y2);
x:=xn;{график}
dx:=0.001;
while x<=xk do
 begin
  putpixel(x0+round(x*mx),y0-round(f(x)*my),8);
  x:=x+dx;
 end;
end;
 
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
grafik(F1,100,100,300,200);
grafik(F2,400,100,600,200);
readln
end.
А чтобы вникнуть, прочитайте про функциональный (процедурный) тип в Турбо Паскале и про построение графиков. Никакие комментарии не заменят учебники.
Про графики например эта книга
http://www.cyberforum.ru/attachments/3834d1241779566
0
leWire
1 / 1 / 1
Регистрация: 02.03.2014
Сообщений: 34
13.05.2014, 20:38  [ТС] 3
Большое спасибо, как за программу, так и за книгу!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2014, 20:38

Написать программу, которая выводит на экран узор
Написать программу, которая выводит на экран узор, изображенный ниже...

Написать программу, которая выводит круг на экран
Нужно написать программу,которая выводит круг на экран.Его цвет,размер и...

Написать программу, которая выводит на экран цифры числа.
Дано 3-значное число n, n&lt;=5. Написать программу, которая выводит на экран...


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

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

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