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

@Ywep6 · Регистрация: 25.11.2017

Студворк — интернет-сервис помощи студентам

построения функции с шагом 0.25 и вывод значений функции.

Помогите прошу буду очень благодарен!

@Puporev · 25.11.2017, 21:13

Паскаль АВС.NET.

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 graphABC;
//функция определения значений y(x)
function f(x:real):real;
begin
if(trunc(x))mod 4 <2 then f:=trunc(-x) mod 4-frac(x)+2
else f:=-sqrt(4-sqr(trunc(x) mod 4+frac(x)-2))+2
end;
 
var x0,y0,n,h,y1,y2:integer;
    x1,m:real;
    x,y:array of real;
    sx,sy:string;
begin
setwindowsize(900,600);
centerwindow;
x0:=30;
y0:=120;
m:=(windowwidth-x0-30)/20;
//оси координат
line(x0,y0,windowwidth-20,y0);
line(x0,y0-round(2*m)-10,x0,y0+round(m));
line(x0-5,y0-round(2*m)-10,x0+5,y0-round(2*m)-10);
line(x0-5,y0-round(2*m)-10,x0,y0-round(2*m)-20);
line(x0+5,y0-round(2*m)-10,x0,y0-round(2*m)-20);
floodfill(x0,y0-round(2*m)-15,clBlack);
setfontstyle(fsBold);
textout(x0+10,y0-round(2*m)-20,'Y');
line(windowwidth-20,y0-5,windowwidth-20,y0+5);
line(windowwidth-20,y0-5,windowwidth-10,y0);
line(windowwidth-20,y0+5,windowwidth-10,y0);
floodfill(windowwidth-15,y0,clBlack);
textout(windowwidth-15,y0-20,'X');
setpencolor(clSkyBlue);
setpenwidth(2);
line(x0,y0-round(2*m),windowwidth-30,y0-round(2*m));
line(x0,y0-round(m),windowwidth-30,y0-round(m));
line(x0,y0+round(m),windowwidth-30,y0+round(m));
for var i:=1 to 20 do
line(x0+round(i*m),y0-round(2*m),x0+round(i*m),y0+round(m));
setpencolor(clBlack);
//линия графика
x1:=0;
while x1<=20 do
begin
 if x1=0 then moveto(x0+round(x1*m),y0-round(f(x1)*m))
 else lineto(x0+round(x1*m),y0-round(f(x1)*m));
 x1:=x1+0.01;
end;
//подписи на осях
setfontstyle(fsNormal);
setfontsize(8);
for var i:=1 to 20 do
if i mod 2=0 then textout(x0+round(i*m),y0+5,inttostr(i));
textout(x0-10,y0-round(2*m)-5,'2');
textout(x0-10,y0-round(m)-5,'1');
textout(x0-10,y0-5,'0');
textout(x0-15,y0+round(m)-5,'-1');
//составим массивы х и f(x)
x1:=0.25;
n:=0;
while x1<=20.00 do
 begin
  n:=n+1;
  setlength(x,n);
  setlength(y,n);
  x[n-1]:=x1;
  y[n-1]:=f(x1);
  x1:=x1+0.25;
 end; 
setfontsize(10);
setfontstyle(fsBold);
//заголовок таблицы
textout(x0+150,y0+round(m)+50,'Значения функции в диапазоне [0.25..20.00] с шагом 0.25');
//таблица
setpenwidth(1);
h:=round((windowwidth-2*x0)/17);
for var i:=1 to 11 do
line(x0,y0+round(m)+50+i*30,x0+17*h,y0+round(m)+50+i*30);
for var i:=0 to 17 do
line(x0+i*h,y0+round(m)+50+30,x0+i*h,y0+round(m)+50+330);
for var i:=1 to 10 do
if odd(i) then textout(x0+20,y0+round(m)+60+i*30,'X')
else textout(x0+20,y0+round(m)+60+i*30,'Y');
//заполнение таблицы
y1:=y0+round(m)+55+30;
y2:=y1+30; 
for var j:=1 to 5 do
 begin
  for var i:=0 to 15 do
  if (j-1)*16+i<n then
   begin
    str(x[(j-1)*16+i]:0:2,sx);
    str(y[(j-1)*16+i]:0:2,sy);
    textout(x0+(i+1)*h+5,y1,sx);
    textout(x0+(i+1)*h+5,y2,sy);
   end; 
  y1:=y1+60;
  y2:=y2+60;
 end;
end.

@Ywep6 · 25.11.2017, 22:30 **[ТС]**

Спасибо большое!!!Но можно еще блок-схему выполнения данной функции?

@Ywep6 · 26.11.2017, 14:29 **[ТС]**

построения функции с шагом 0.25 и вывод значений функции

@Puporev · 26.11.2017, 16:02

Тут было 2 похожих темы для АВС.Net.
Это тоже для .net.

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
uses graphABC;
//функция определения значений y(x)
function f(x:real):real;
begin
if(trunc(x))mod 4=0 then f:=sqrt(1-sqr(frac(x)-1))
else f:=-(trunc(x)mod 4+frac(x))/3+4/3;
end;
 
var x0,y0,n,h,y1,y2:integer;
    x,y:array of real;
    x1,m:real;
    sx,sy:string;
begin
setwindowsize(800,600);
centerwindow;
x0:=30;
y0:=100;
m:=(windowwidth-x0-30)/20;
//оси координат
line(x0,y0,windowwidth-20,y0);
line(x0,y0-round(m)-10,x0,y0+round(m));
line(x0-5,y0-round(m)-10,x0+5,y0-round(m)-10);
line(x0-5,y0-round(m)-10,x0,y0-round(m)-20);
line(x0+5,y0-round(m)-10,x0,y0-round(m)-20);
floodfill(x0,y0-round(m)-15,clBlack);
setfontstyle(fsBold);
textout(x0+10,y0-round(m)-20,'Y');
line(windowwidth-20,y0-5,windowwidth-20,y0+5);
line(windowwidth-20,y0-5,windowwidth-10,y0);
line(windowwidth-20,y0+5,windowwidth-10,y0);
floodfill(windowwidth-15,y0,clBlack);
textout(windowwidth-15,y0-20,'X');
setpencolor(clSkyBlue);
setpenwidth(2);
line(x0,y0-round(m),windowwidth-30,y0-round(m));
line(x0,y0+round(m),windowwidth-30,y0+round(m));
for var i:=1 to 20 do
line(x0+round(i*m),y0-round(m),x0+round(i*m),y0+round(m));
setpencolor(clBlack);
//линия графика
x1:=0;
while x1<=20 do
begin
 if x1=0 then moveto(x0+round(x1*m),y0-round(f(x1)*m))
 else lineto(x0+round(x1*m),y0-round(f(x1)*m));
 x1:=x1+0.01;
end;
//подписи на осях
setfontstyle(fsNormal);
setfontsize(8);
for var i:=1 to 20 do
if i mod 2=0 then textout(x0+round(i*m),y0+5,inttostr(i));
textout(x0-10,y0-round(m)-5,'1');
textout(x0-10,y0-5,'0');
textout(x0-15,y0+round(m)-5,'-1');
//составим массивы х и f(x)
x1:=0.25;
n:=0;
while x1<=20.00 do
 begin
  n:=n+1;
  setlength(x,n);
  setlength(y,n);
  x[n-1]:=x1;
  y[n-1]:=f(x1);
  x1:=x1+0.25;
 end; 
setfontsize(10);
setfontstyle(fsBold);
//заголовок таблицы
textout(x0+150,y0+round(m)+50,'Значения функции в диапазоне [0.25..20.00] с шагом 0.25');
//таблица
setpenwidth(1);
h:=round((windowwidth-2*x0)/17);
for var i:=1 to 11 do
line(x0,y0+round(m)+50+i*30,x0+17*h,y0+round(m)+50+i*30);
for var i:=0 to 17 do
line(x0+i*h,y0+round(m)+50+30,x0+i*h,y0+round(m)+50+330);
for var i:=1 to 10 do
if odd(i) then textout(x0+20,y0+round(m)+60+i*30,'X')
else textout(x0+20,y0+round(m)+60+i*30,'Y');
//заполнение таблицы
y1:=y0+round(m)+55+30;
y2:=y1+30; 
for var j:=1 to 5 do
 begin
  for var i:=0 to 15 do
  if (j-1)*16+i<=n then
   begin
    str(x[(j-1)*16+i]:0:2,sx);
    str(y[(j-1)*16+i]:0:2,sy);
    textout(x0+(i+1)*h+5,y1,sx);
    textout(x0+(i+1)*h+5,y2,sy);
   end; 
  y1:=y1+60;
  y2:=y2+60;
 end;  
end.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Ywep6 0 / 0 / 0 Регистрация: 25.11.2017 Сообщений: 123

	Построения графика функции 25.11.2017, 16:10. Показов 1254. Ответов 4 Метки нет (Все метки) построения функции с шагом 0.25 и вывод значений функции. Помогите прошу буду очень благодарен! 0

@Ywep6 0 / 0 / 0 Регистрация: 25.11.2017 Сообщений: 123
	25.11.2017, 22:30 [ТС]
	Спасибо большое!!!Но можно еще блок-схему выполнения данной функции? 0

@Ywep6 0 / 0 / 0 Регистрация: 25.11.2017 Сообщений: 123
	26.11.2017, 14:29 [ТС]
	построения функции с шагом 0.25 и вывод значений функции Миниатюры 0

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

Решение