Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Денис2517
0 / 0 / 2
Регистрация: 28.11.2011
Сообщений: 4
#1

Достроить график - Pascal ABC

08.12.2011, 08:18. Просмотров 304. Ответов 2
Метки нет (Все метки)

Модуль
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
unit lab;
Interface
 const
 x:array[1..16] of real=(2.13, 8.32, 2.27, 5.42, 3.92, 8.16, 3.63, 9.43, 5.30, 6.90, 4.92, 7.93, 7.13, 1.89, 9.94, 3.61);
 y:array [1..16] of real=(0.75, 0.76, 0.74, 0.70, 0.68, 0.76, 0.68, 0.78, 0.70, 0.72, 0.70, 0.76, 0.74, 0.81, 0.79, 0.69);
type mass_a=array[1..3,1..3] of real;  {Formiruem tipy massivov}
     mass_d=array[1..3] of real;
     mass_xy=array[1..16] of real;
Implementation
procedure mnk(var aa, bb, cc:real);
var
flag: real;               {realizacija procedury}
var i, j:integer;
a:mass_a;
d:mass_d;
begin
for i:=1 to 3 do                  {obnulenie massivov}
  for j:=1 to 3 do a[i,j]:=0;
for j:=1 to 3 do d[j]:=0;
for i:=1 to 16 do
  begin                              {vychislenie koefficientov a ituh i b ituh}
  a[1,1]:=16;
  a[1,2]:=a[1,2]+1/(x[i]+1);
  a[1,3]:=a[1,3]+1/sqr(x[i]+1);
  d[1]:=d[1]+y[i];
   a[2,3]:=a[2,3]+1/((x[i]+1)*(x[i]+1)*(x[i]+1));
   d[2]:=d[2]+(y[i]/(x[i]+1));
   a[3,3]:=a[3,3]+1/((x[i]+1)*(x[i]+1)*(x[i]+1)*(x[i]+1));
   d[3]:=d[3]+y[i]/((x[i]+1)*(x[i]+1));
  end;
a[2,1]:=a[1,2];
a[2,2]:=a[1,3]; a[3,1]:=a[1,3];
a[3,2]:=a[2,3];
{reshaem uravnenie metodom Gaussa}
flag:=a[1,1]; for j:=1 to 3 do a[1, j]:=a[1,j]/flag; d[1]:=d[1]/flag;
flag:=a[2,1]; for j:=1 to 3 do a[2, j]:=a[2,j]-a[1,j]*flag; d[2]:=d[2]-d[1]*flag;
flag:=a[3,1]; for j:=1 to 3 do a[3,j]:=a[3,j]-a[1,j]*flag; d[3]:=d[3]-d[1]*flag;
flag:=a[2,2]; for j:=2 to 3 do a[2,j]:=a[2,j]/flag; d[2]:=d[2]/flag;
flag:=a[3,2]; for j:=2 to 3 do a[2,j]:=a[3,j]-a[2,j]*flag; d[3]:=d[3]-d[2]*flag;
{vychislyaem iskomye parametru a, b, c}
cc:=d[3]/a[3,3];
bb:=d[2]-a[2,3]*cc;
aa:=d[1]-a[1,2]*bb-a[1,3];
end;
begin
end.
основная лаба
http://www.cyberforum.ru/pascalabc/thread789314.html
Pascal
1
2
3
4
5
6
7
8
uses lab;
var i, j:integer;
a, b, c: real;
begin
mnk(a, b, c);
writeln(a:4:2,' ', b:4:2,' ', c:4:2);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 08:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Достроить график (Pascal ABC):

Построить график функции и график её производной
Построить график функции (a*x^4)+(b*x^3)/(x^2+c) + График производной

Достроить из файла
Здравствуйте, возник вопрос:а можно ли достраивать график из файла? Вот мой...

Достроить треугольник
Здравствуйте! Даны координаты 3 точек. каждая из них лежит на стороне...

Не могу достроить 3D фигуру
Есть две проекции некой крышки. Нужно построить 3д модель. С чего нужно...

Достроить фигуры в автокаде
необходимо в каждой из двух деталей достроить третий вид. к первой пол вида пол...

2
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
08.12.2011, 12:38 #2
Цитата Сообщение от Денис2517 Посмотреть сообщение
достроить график в Паскале
График чего?
0
Денис2517
0 / 0 / 2
Регистрация: 28.11.2011
Сообщений: 4
08.12.2011, 20:40  [ТС] #3
- вывод результатов идентификации в форме двух графиков: исходные данные (кружки) и их аппроксимирующая зависимость – ломаная линия.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 20:40
Привет! Вот еще темы с решениями:

Достроить третий вид!
Помогите достроить третий вид!я никак не пойму,какой именно нужно (вид сверху...

Как достроить сечение детали?
Подскажите,пожалуйста,как достроить сечение 3D детали? И правильно ли сделаны...

Начертательная геометрия (достроить проекции)
Доброго времени всем Помогите разобраться с задачей по начерталке, чертеж...

Как достроить модель сущность-связь?
(ER модель) Нужно сохранить информацию про транспортные средства -...


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

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

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