сложная функция с графическим режимом

@anar13xict · Регистрация: 09.11.2009

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

просьба помочь в решении данной программы(см вложение) буду очень признателен...

@Inadequate · 10.11.2009, 00:36

anar13xict, вы сами эту фотку видели? там же ничего не видно!

@anar13xict · 10.11.2009, 15:29 **[ТС]**

ну вот получше достал...

@Inadequate · 10.11.2009, 17:45

anar13xict, ну это уже конечно намного лучше. А что конкретно у Вас не получается? Что уже сделали сами?

Добавлено через 7 минут
тут задача не сложная просто писать нужно будет "многовато"... я смогу помочь написать только чуть позже.

@anar13xict · 10.11.2009, 19:35 **[ТС]**

я просто паскаль совсем не знаю...

@Puporev · 10.11.2009, 19: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
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
uses crt,graph;
const m=21;
      n=5;
var j,i,jmn,gd,gm,x0,y0,xp,yv,yn:integer;
    an,h,a,b,s,c,sg,mn,mx,ym,xm:real;
    x,y:array[1..m] of real;
    f:text;
    st:string;
begin
clrscr;
an:=17.5;
h:=4.5;
b:=2;
assign(f,'C:\file1.txt');
rewrite(f);
writeln(f,'Znacenia argumenta X:');
for j:=1 to m do
 begin
  a:=an-j*h;
  x[j]:=sqrt(abs(a*a*a*b))/(3*j);
  write(f,x[j]:8:2);
 end;
writeln(f,'');
writeln(f,'');
writeln(f,'Znachenia functii Y:');
for j:=1 to m do
 begin
  if x[j]>=b then y[j]:=sin(x[j])+sin(2*x[j])+2*sin(3*x[j])
  else
   begin
    s:=0;a:=4;
    for i:=1 to n do
     begin
      c:=exp(ln(b)*(i/3));
      s:=s+c;
     end;
    y[j]:=s-ln(abs(2*a*a-5*a+2))/ln(5);
   end;
  write(f,y[j]:8:2);
 end;
writeln(f,'');
writeln(f,'');
{среднегеометрическое}
sg:=1;
for j:=1 to m do
sg:=sg*y[j];
sg:=exp(ln(sg)/m);
writeln(f,'sr.geom.=',sg:0:2);
{минимальное отклонение}
mn:=abs(sg-y[1]);jmn:=1;
for j:=1 to m do
if abs(sg-y[j])<mn then
  begin
   mn:=abs(sg-y[j]);
   jmn:=j;
  end;
writeln(f,'zn. s min. otkl.=',y[jmn]:0:2);
write('Fail zapisan!');
close(f);
{найдем мин. и макс.функции для графика}
mn:=y[1];mx:=y[1];
for i:=1 to m do
 begin
  if y[i]<mn then mn:=y[i];
  if y[i]>mx then mx:=y[i];
 end;
writeln('Fail zapisan!');
writeln('Min=',mn:0:2);
writeln('Max=',mx:0:2);
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');
x0:=20;y0:=330;
xm:=600/20;ym:=440/(mx-mn+2);
xp:=getmaxX-x0;
yv:=y0-round((mx+1)*ym);
yn:=y0-round((mn-1)*ym);
{ось Х}
line(x0,y0,xp,y0);
outtextXY(xp+5,y0-15,'j');
for j:=0 to m-1 do
 begin
  line(x0+round(j*xm),y0+3,x0+round(j*xm),y0-3);
  str(j+1,st);
  outtextXY(x0+round(j*xm),y0+10,st);
 end;
{ось Y}
line(x0,yn,x0,yv);
outtextXY(x0-15,yv-15,'F(j)');
{вверх}
for j:=1 to round(mx)+1 do
 begin
  line(x0-3,y0-round(j*ym),x0+3,y0-round(j*ym));
  str(j,st);
  outtextXY(x0-15,y0-round(j*ym),st);
 end;
{вниз}
for j:=1 to abs(round(mn)-1) do
 begin
  line(x0-3,y0+round(j*ym),x0+3,y0+round(j*ym));
  str(j,st);
  outtextXY(x0-18,y0+round(j*ym),'-'+st);
 end;
{график}
moveto(x0,y0);
for j:=1 to m-1 do
 begin
  Setcolor(12);
  lineto(x0+round(j*xm),y0-round(y[j]*ym));
  Setcolor(10);
  circle(x0+round(j*xm),y0-round(y[j]*ym),2);
 end;
readln
end.

@anar13xict · 10.11.2009, 19:50 **[ТС]**

Puporev, огромное человеческое спасибо!!

@Puporev · 10.11.2009, 19:52

anar13xict,
Да пожалуйста. Только что ты с ней делать будешь, с программой, если Паскаль не знаешь?
Наверное нужно сесть с программой, и учебником и детально разбирать.

@anar13xict · 10.11.2009, 20:10 **[ТС]**

Puporev, я так и собирался делать... ток это не мне..

@Puporev · 11.11.2009, 09:45

anar13xict, Извини, я неправильно написал в строке 31. s:=0;a:=4; это я тестировал так и забыл исправить, нужно s:=0;a:=an-j*h;
График немного изменится. Чтоб не объяснять и не путать, лучше исправленный код выложу.

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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
uses crt,graph;
const m=21;
      n=5;
var j,i,jmn,gd,gm,x0,y0,xp,yv,yn:integer;
    an,h,a,b,s,c,sg,mn,mx,ym,xm:real;
    x,y:array[1..m] of real;
    f:text;
    st:string;
begin
clrscr;
an:=17.5;
h:=4.5;
b:=2;
assign(f,'C:\file1.txt');
rewrite(f);
writeln(f,'Znacenia argumenta X:');
for j:=1 to m do
 begin
  a:=an-j*h;
  x[j]:=sqrt(abs(a*a*a*b))/(3*j);
  write(f,x[j]:8:2);
 end;
writeln(f,'');
writeln(f,'');
writeln(f,'Znachenia functii Y:');
for j:=1 to m do
 begin
  if x[j]>=b then y[j]:=sin(x[j])+sin(2*x[j])+2*sin(3*x[j])
  else
   begin
    s:=0;a:=an-j*h;
    for i:=1 to n do
     begin
      c:=exp(ln(b)*(i/3));
      s:=s+c;
     end;
    y[j]:=s-ln(abs(2*a*a-5*a+2))/ln(5);
   end;
  write(f,y[j]:8:2);
 end;
writeln(f,'');
writeln(f,'');
{среднегеометрическое}
sg:=1;
for j:=1 to m do
sg:=sg*y[j];
sg:=exp(ln(sg)/m);
writeln(f,'sr.geom.=',sg:0:2);
{минимальное отклонение}
mn:=abs(sg-y[1]);jmn:=1;
for j:=1 to m do
if abs(sg-y[j])<mn then
  begin
   mn:=abs(sg-y[j]);
   jmn:=j;
  end;
writeln(f,'zn. s min. otkl.=',y[jmn]:0:2);
write('Fail zapisan!');
close(f);
{найдем мин. и макс.функции для графика}
mn:=y[1];mx:=y[1];
for i:=1 to m do
 begin
  if y[i]<mn then mn:=y[i];
  if y[i]>mx then mx:=y[i];
 end;
writeln('Min=',mn:0:2);
writeln('Max=',mx:0:2);
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');
x0:=20;y0:=330;
xm:=600/20;ym:=440/(mx-mn+2);
xp:=getmaxX-x0;
yv:=y0-round((mx+1)*ym);
yn:=y0-round((mn-1)*ym);
{ось Х}
line(x0,y0,xp,y0);
outtextXY(xp+5,y0-15,'j');
for j:=0 to m-1 do
 begin
  line(x0+round(j*xm),y0+3,x0+round(j*xm),y0-3);
  str(j+1,st);
  outtextXY(x0+round(j*xm),y0+10,st);
 end;
{ось Y}
line(x0,yn,x0,yv);
outtextXY(x0-15,yv-15,'F(j)');
{вверх}
for j:=1 to round(mx) do
 begin
  line(x0-3,y0-round(j*ym),x0+3,y0-round(j*ym));
  str(j,st);
  outtextXY(x0-15,y0-round(j*ym),st);
 end;
{вниз}
for j:=1 to abs(round(mn)-1) do
 begin
  line(x0-3,y0+round(j*ym),x0+3,y0+round(j*ym));
  str(j,st);
  outtextXY(x0-18,y0+round(j*ym),'-'+st);
 end;
{график}
moveto(x0,y0);
for j:=1 to m-1 do
 begin
  Setcolor(12);
  lineto(x0+round(j*xm),y0-round(y[j]*ym));
  Setcolor(10);
  circle(x0+round(j*xm),y0-round(y[j]*ym),2);
 end;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@anar13xict 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 5

	сложная функция с графическим режимом 09.11.2009, 22:22. Показов 1024. Ответов 9 Метки нет (Все метки) просьба помочь в решении данной программы(см вложение) буду очень признателен... Миниатюры 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.11.2009, 00:36
	anar13xict, вы сами эту фотку видели? там же ничего не видно! 0

@anar13xict 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 5
	10.11.2009, 15:29 [ТС]
	ну вот получше достал... Миниатюры 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.11.2009, 17:45
	anar13xict, ну это уже конечно намного лучше. А что конкретно у Вас не получается? Что уже сделали сами? Добавлено через 7 минут тут задача не сложная просто писать нужно будет "многовато"... я смогу помочь написать только чуть позже. 0

@anar13xict 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 5
	10.11.2009, 19:35 [ТС]
	я просто паскаль совсем не знаю... 0

@anar13xict 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 5
	10.11.2009, 19:50 [ТС]
	Puporev, огромное человеческое спасибо!! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.11.2009, 19:52
	anar13xict, Да пожалуйста. Только что ты с ней делать будешь, с программой, если Паскаль не знаешь? Наверное нужно сесть с программой, и учебником и детально разбирать. 0

@anar13xict 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 5
	10.11.2009, 20:10 [ТС]
	Puporev, я так и собирался делать... ток это не мне.. 0