Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
anar13xict
0 / 0 / 0
Регистрация: 09.11.2009
Сообщений: 5
1

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

09.11.2009, 22:22. Просмотров 640. Ответов 9
Метки нет (Все метки)

просьба помочь в решении данной программы(см вложение) буду очень признателен...
0
Миниатюры
сложная функция с графическим режимом  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2009, 22:22
Ответы с готовыми решениями:

Заморочки с графическим режимом
Добрый вечер. Писал программу с использованием модуля graph, решил проверить....

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

сложная функция
Молю о помощи!:wall: Вычислить значение функции

Сложная формула
Помогите пожалуйста написать формулу на паскале... ...

Сложная задачка
Всем привет ещё раз:) Помогите решить задачку.. Просто я пыталась найти какие...

9
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
10.11.2009, 00:36 2
anar13xict, вы сами эту фотку видели? там же ничего не видно!
0
anar13xict
0 / 0 / 0
Регистрация: 09.11.2009
Сообщений: 5
10.11.2009, 15:29  [ТС] 3
ну вот получше достал...
0
Миниатюры
сложная функция с графическим режимом  
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
10.11.2009, 17:45 4
anar13xict, ну это уже конечно намного лучше. А что конкретно у Вас не получается? Что уже сделали сами?

Добавлено через 7 минут
тут задача не сложная просто писать нужно будет "многовато"... я смогу помочь написать только чуть позже.
0
anar13xict
0 / 0 / 0
Регистрация: 09.11.2009
Сообщений: 5
10.11.2009, 19:35  [ТС] 5
я просто паскаль совсем не знаю...
0
Puporev
Модератор
55459 / 42568 / 29420
Регистрация: 18.05.2008
Сообщений: 100,712
10.11.2009, 19:42 6
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.
1
anar13xict
0 / 0 / 0
Регистрация: 09.11.2009
Сообщений: 5
10.11.2009, 19:50  [ТС] 7
Puporev, огромное человеческое спасибо!!
0
Puporev
Модератор
55459 / 42568 / 29420
Регистрация: 18.05.2008
Сообщений: 100,712
10.11.2009, 19:52 8
anar13xict,
Да пожалуйста. Только что ты с ней делать будешь, с программой, если Паскаль не знаешь?
Наверное нужно сесть с программой, и учебником и детально разбирать.
0
anar13xict
0 / 0 / 0
Регистрация: 09.11.2009
Сообщений: 5
10.11.2009, 20:10  [ТС] 9
Puporev, я так и собирался делать... ток это не мне..
0
Puporev
Модератор
55459 / 42568 / 29420
Регистрация: 18.05.2008
Сообщений: 100,712
11.11.2009, 09:45 10
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.
1
11.11.2009, 09:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2009, 09:45

Олимпиадна.... Сложная
В чемпионате по программированию учавствуют N(2&lt;=N&lt;=100) странб каждая из...

Задача не сложная на тему строки.
Создайте программу, которая запрашивает тестовую строку и заменяет все слоги...

Циклы программа не сложная ПОМ*ОГИТЕ.
Написать программу ,которая загадывает случайное числа из 100.Пользователю...


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

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

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