Задача на построение графика функции

@batsv · Регистрация: 30.04.2016

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

Помогите доделать ещё одну задачу: Рассчитать значения функции y=(sqrt(2*x-5))/(3*x*x-1), запросив у пользователя интервал и шаг изменения аргумента функции. Результаты расчета вывести на экран в виде таблицы. Построить график функции с шагом изменения аргумента 0,1. (Вывод таблицы можно организовать через массив?). Вот моя программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses Graphabc,crt;
var n,m,k,x,y:real;
function f(x:real):real;
Begin
f:= (sqrt(2*x-5))/(3*x*x-1); //Система координат
End;
procedure axis;  //Рисование системы координат
Begin
SetPenColor(clBLACK);
SetPenWidth(2);
line(0,WindowHeight div 2,WindowWidth,WindowHeight div 2);
line(WindowWidth div 2,0,WindowWidth div 2,WindowHeight);
End;
begin SetWindowSize(800,600);
writeln ('начало интервала>=2,5'); readln(n);
writeln ('конец интервала >=2,5'); readln(m);
writeln ('шаг'); readln(k);x:=n;
repeat  y:=(sqrt(2*x-5))/(3*x*x-1);  write (x:5:2);  writeln (y:5:2);
x:=x+k;
 until    x>m;
 axis;
 
end.

Большое спасибо за решение.

@Puporev · 30.04.2016, 11:36

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
uses Graphabc,crt;
function f(x:real):real;
Begin
f:=sqrt(2*x-5)/(3*x*x-1); //функция
End;
var n,m,k,x,y,max,mx,my:real;
    x0,y0,i:integer;
    s:string;
begin
repeat
write ('начало интервала n>=2.5  n=');
readln(n);
until n>=2.5;
repeat
write ('конец интервала m>',n:0:1,' m=');
readln(m);
until m>n;
repeat
write ('шаг<',m-n:0:1,' k=');
readln(k);
until k<m-n;
x:=n;
repeat
writeln('x=',x:5:2,' y=',f(x):6:4);
x:=x+k;
until x>m;
writeln('Нажмите Enter для перехода в графический режим');
readln;
clrscr;
hidecursor;
SetWindowSize(800,600);
CenterWindow;
max:=f(n);//найдем максимум от 2,5 до конца
x:=2.5;
while x<=m do
 begin
  if f(x)>max then max:=f(x);
  x:=x+0.1;
 end;
x0:=50;//начало координат
y0:=windowheight-50;
mx:=(windowwidth-x0-30)/m;//масштаб по Х
my:=(y0-10)/max;//масштаб по У
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
for i:=1 to trunc(m)+1 do//максимальное количество засечек по оси Х
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
   //подпись оси Х
  textout(x0+round(i*mx),y0+10,inttostr(i));
 end;
for i:=1 to trunc(100*max)+1 do//максимальное количество засечек  по оси Y
 begin
  line(x0+3,y0-round(i*my/100),x0-3,y0-round(i*my/100)); //засечки на оси Х
  //подписи по оси Y
  str(i/100:0:2,s);
  textout(x0-40,y0-round(i*my/100),s);
 end;
textout(x0+5,y0+10,'0');
textout(windowwidth-20,y0-20,'X');
textout(x0+10,10, 'Y');
setpencolor(clRed);
x:=n; //или 2.5 если весь графмк строить
while x<=m do
 begin
  if x=n then moveto(x0+round(x*mx),y0-round(f(x)*my))
  else lineto(x0+round(x*mx),y0-round(f(x)*my));
  x:=x+0.1;
 end;
end.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем