Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
kap0
0 / 0 / 0
Регистрация: 09.12.2015
Сообщений: 5
#1

задание в паскале - Turbo Pascal

10.12.2015, 17:46. Просмотров 217. Ответов 1

Для заданной функции составить программу для построения графика функции в заданном интервале и с заданным шагом. Предусмотреть вывод осей координат, а также построить таблицу значений для аргумента и функций на заданном интервале. Таблица должна содержат заголовок и шапку. При составлении программы использовать подпрограмму вывода горизонтальной линии.
Y=x2+4x
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 17:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос задание в паскале (Turbo Pascal):

задание на паскале - Pascal
народ задали 20 прог на паскальз! вот некоторые я не могу решить! 4: Даны числовой ряд и некоторое число ε. Найти наименьший...

Школьное задание на ПАСКАЛЕ - Pascal
Вообщем попросили сделать задание на паскале, а я не шарю вообще в нем. Короч кому не трудно, сделайте? Если что, как вознаграждение -...

Экзаменационное задание на Паскале - Pascal
Составить тесты программ для проверки программы, используя метод эквивалентного разбиения. Сформировать список ошибок, которые могут быть...

Задание по файлам в паскале - Pascal
1. В заданном предложении в конце каждого слова поставить многоточие. Напечатать исходный и преобразованный тексты, а также длину...

задание на двумерный массив в Паскале. - Pascal
Здравствуйте!Помогите,пожалуйста!Не получается решить следующую задачку в паскале!Условие: известно количество сделанных столов тремя...

задание, походу, легкое, но я в паскале полный ноль - Pascal
y=ln(x), если x<(a-1) y=cos(x-a), если x>=(a-1) x Є ;x] x=x+(дельта)x

1
Puporev
Модератор
52992 / 40803 / 14054
Регистрация: 18.05.2008
Сообщений: 94,890
10.12.2015, 18:47 #2
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
uses graph;
function F(x:real):real;
begin
F:=x*x+4*x;
end;
const h=0.25;
      xn=-7;
      xk=3;
var x,ymx,mx,my:real;
    x1,y1:array[1..100] of real;
    n,i,gd,gm,x0,y0,px,py:integer;
    st:string;
begin
{заполнение таблицы значений и нахождение максимального для масштаба по оси Y}
ymx:=F(xn);
x:=xn;
n:=0;
while x<=xk+h/2 do
 begin
  n:=n+1;
  x1[n]:=x;
  y1[n]:=F(x1[n]);
  if y1[n]>ymx then ymx:=y1[n];
  x:=x+h;
 end;
{переход в графический режим}
gd:=0;
initgraph(gd,gm,'');
{начало координат}
x0:=getmaxX-round((getmaxX-250)*xk/(xk-xn));
y0:=getmaxY-120;
{масштаб по осям}
mx:=(getmaxX-280)/(xk-xn);
my:=(y0-30)/ymx;
{координатная сетка}
line(x0-round(-xn*mx),y0,x0+round(xk*mx),y0);
outtextXY(getmaxX-15,y0-15,'X');
line(x0,getmaxY,x0,0);
outtextXY(x0+5,5,'Y');
for i:=1 to 11 do
 begin
  line(x0+round(mx*i),y0+3,x0+round(mx*i),y0-3);
  str(i,st);
  outtextXY(x0+round(mx*i),y0+10,st);
  if i<8 then
   begin
    line(x0-round(mx*i),y0+3,x0-round(mx*i),y0-3);
    outtextXY(x0-round(mx*i),y0+10,'-'+st);
   end;
  str(i*2,st);
  line(x0+3,y0-round(my*i*2),x0-3,y0-round(my*i*2));
  outtextXY(x0-20,y0-round(my*i*2),st);
  line(x0+3,y0+round(my*i*2),x0-3,y0+round(my*i*2));
  outtextXY(x0-25,y0+round(my*i*2),'-'+st);
  end;
{график}
x:=xn;
setcolor(12);
while x<=xk+h/2 do
 begin
  px:=x0+round(x*mx);
  py:=y0-round(F(x)*my);
  circle(px,py,2);
  x:=x+h;
 end;
{построение таблицы}
setcolor(15);
settextstyle(0,0,1);
outtextXY(45,5,'Znachenia argumenta i');
outtextXY(65,25,'functii y=x^2+4x');
outtextXY(45,45,'na int. [-7;3] h=0.25');
line(40,60,40,60+(n div 2+2)*15);
line(75,60,75,60+(n div 2+2)*15);
line(120,60,120,60+(n div 2+2)*15);
line(155,60,155,60+(n div 2+2)*15);
line(200,60,200,60+(n div 2+2)*15);
for i:=0 to n div 2+2 do
line(40,60+i*15,200,60+i*15);
outtextXY(55,65,'X');
outtextXY(95,65,'Y');
outtextXY(135,65,'X');
outtextXY(170,65,'Y');
settextstyle(2,0,4);
for i:=1 to n div 2+1 do
 begin
  str(x1[i]:0:2,st);
  outtextXY(45,65+15*i,st);
  str(y1[i]:6:2,st);
  if st='-1000.00' then outtextXY(80,65+15*i,'  -  ')
  else outtextXY(80,65+15*i,st);
 end;
for i:=1 to n div 2 do
 begin
  str(x1[i+n div 2+1]:0:2,st);
  outtextXY(125,65+15*i,st);
  str(y1[i+n div 2+1]:6:2,st);
  outtextXY(160,65+15*i,st);
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 18:47
Привет! Вот еще темы с ответами:

составить программу на паскале . Программирование циклических алгоритмов (задание во вложении) - Pascal
условие

Задание в паскале "While", "цикл FOR" и массивы - Pascal
1. Дана последовательность целых чисел, ограниченная нулем. Используя цикл с предусловием While, найти наибольшее число из чисел, попавших...

БД на Паскале - Pascal
Пожалуйста помогите разработать базу данных на паскале. Вот задание: ОПИСАНИЕ Программный проект моделирует работу отдела банка...

в паскале - Pascal
Дано натуральное число N (10&lt;N&lt;99). Найти целое число, которое нужно прибавить к нему, чтобы получилось число, состоящее из тех же цифр,...


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

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

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