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

Программирование отдельных блоков и структур алгоритма решаемой задачи

23.11.2010, 23:06. Просмотров 485. Ответов 0
Метки нет (Все метки)

Парни помогите реално не шарю в Паскале!!!
Задание звучит так:Программирование отдельных блоков и структур алгоритма решаемой задачи,,, вот мое решение а как описать блоки не знаю: (заранее спасибо большое за помощь)

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
{$n+}
uses graph;
const
 m=24;
 hb=1.5;
 bn=4;
 n=6;
 xn=1;
 hx=2.5;
var
 x1,y1:array[1..m]of extended;
 z:array[1..m]of integer;
 i,j,q:integer;
 fac,b,a,srg:extended;
 graphmode,graphdriver:integer;
 
begin
 graphdriver:=detect;
 initgraph(graphdriver,graphmode,'d:\bp\bgi');
 line(0,240,640,240);
 line(630,230,640,240);
 line(630,245,640,240);
 line(320,0,320,480);
 line(315,10,320,0);
 line(325,10,320,0);
 outtextxy(620,225,'x');
 outtextxy(330,15,'y');
 outtextxy(410,250,'100');
 outtextxy(510,250,'200');
 outtextxy(610,250,'300');
 outtextxy(210,250,'-100');
 outtextxy(110,250,'-200');
 outtextxy(10,250,'-300');
 outtextxy(280,40,'200');
 outtextxy(285,140,'100');
 outtextxy(285,340,'-100');
 outtextxy(280,440,'-200');
 setcolor(4);
 randomize;
 srg:=1;
 q:=0;
 for i:=1 to m do 
 begin
  z[i]:=random(15)-7;
  if z[i]=0 then z[i]:=1;
 end;
 b:=0; x1[1]:=0; 
 a:=0; fac:=1;
 for i:=1 to n do
 begin
  fac:=fac*i;
  a:=a+(i+1)/fac;
 end;
 for j:=1 to m do
 begin
  b:=bn+j*hb; x1[j]:=xn+j*hx;
  if x1[j]<=b then y1[j]:=a+x1[j]*z[j]
   else if x1[j]>b then y1[j]:=(x1[j]+z[j])/(x1[j]*z[j])-a;
  if (j mod 2<>0)and(j mod 3=0) then
  begin
   srg:=srg*y1[j];
   inc(q);
  end;
 end;
 for j:=2 to m do
 begin
  line(trunc(x1[j-1])+320,trunc(-y1[j-1])+240,trunc(x1[j])+320,trunc(-y1[j])+240);
 end;
 readln;
 assign(output,'znach.txt');
 rewrite(output);
 writeln('X':5,'Y':7);
 for i:=1 to m do writeln(x1[i]:7:3,' ',y1[i]:7:3);
 writeln('‘।*ҐҐ ЈҐ®¬ҐваЁзҐбЄ®Ґ §**зҐ*Ё© дг*ЄжЁ©: ',srg/q:0:3);
end.


А это как прмерно должно выглядить:::::::

В этих блоках идет вычисление среднего квадратичного значения функции:
srk:=0;
for j:=1 to m do
if j mod 5 = 0 then
srk:=srk+y[j]*y[j];
srk:=sqrt(srk/m);
23:
В этом цикле идет построение графика сложной математической функции:
line(10, 480-20, 10, 480-400) и line(10, 480-20, 600, 480-20) – построение координатных осей.
outtextXY(10,40,'Yj') и outtextXY(590,465,'j') – обозначение осей Y(j) и j соответственно.
Moveto(10+trunc(j*mas),460-trunc(y[j]*mas)) – построение соответствую-щих точек. Где trunc(j*mas) и trunc(y[j]*mas) – округление дробных чисел до целого числа.
Lineto(10+trunc(j*mas),460-trunc(y[j]*mas)) -
Putpixel(10+trunc(j*mas),460-trunc(y[j]*mas),9) -



gd:=detect;
initgraph(gm,gd,'c:\BP\BGI');
line(10, 480-20, 10, 480-400);
line(10, 480-20, 600, 480-20);
j:=1;
outtextXY(10,40,'Yj');
outtextXY(590,465,'j');
moveto(10+trunc(j*mas),460-trunc(y[j]*mas));
for j:=1 to m-1
do
begin
lineto(10+trunc(j*mas),460-trunc(y[j]*mas));
putpixel(10+trunc(j*mas),460-trunc(y[j]*mas),9);
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 23:06
Ответы с готовыми решениями:

Формулировка решаемой задачи
Формулировка решаемой задачи. Метод решения задачи. Принятые обозначение. var i,j,k : byte;...

Питание драйверов от отдельных блоков питания
Всем доброго времени суток. Собираю контроллер для самодельного ЧПУ вот по вложенной схеме.Будет 4...

Сделать ресайз отдельных блоков одного класса
код делает следующее: есть окно , в нем два изображения и бегунком меняем одно на второе. Но...

Показ/скрытие отдельных блоков на сайте по типу библиотеки
Доброго времени всем. Возникла проблема, с js и jquery сталкиваюсь не так часто, поэтому знаний для...

Правильное написание кода с возможностью замены отдельных блоков
Тему навеял топик по соседству, где проскочила информация о том, что прошлая программа была...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2010, 23:06

Программирование задач обработки графических структур Программирование задач обработки простейших графических структур. Программирование функций
Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и...

Реализация прогресса выполнения задачи с отдельных потоков
Всем здравствуйте! Опишу более подробно свою проблему, надеюсь большое количества текста не...

Программирование блоков ПК в Linux
Изучаю программирование в Линукс по книге &quot;Стивенс Unix Профессиональное программирование 3 изд&quot;....


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

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

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