Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Метод наименьших квадратов! (с Pascal на C++) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Число ошибок превышает 100: Остановка компиляции http://www.cyberforum.ru/cpp-beginners/thread875017.html
Писал прогу по решению квадратных уравнений. Уже скомпилировалась и запустилась. Потом решил добавить текст в main(), и получилось ЭТО: /*100 ошибок о необъявленном индентификаторе*/ ...
C++ Динамическая структура (СУБД на чистых c/c++, проблема занесения и чтения данных в таблицу) Доброго времени суток. Пишу СУБД на чистых c/c++ столкнулся с проблемой занесение и чтение данных в таблицу. Структура файла такая: первый блок с информацией о таблице, следующие n блоков содержат в... http://www.cyberforum.ru/cpp-beginners/thread875006.html
Школьная задача C++
C++ Ребята, помогите пожалуйста решить при помощи if или switch Буду очень благодарна.
Программа выводит неверный ответ (дан массив структур, содержащий сведения об успеваемости студентов - вывести список неуспевающих студентов) C++
Задача: Дан массив структур, содержащий сведения об успеваемости по информатике группы из 25 студентов. Структура содержит следующие сведения: 1)Ф.И.О 2)4 оценки, отражающие его успеваемость в...
C++ Перевод числа из двоичной системы счисления в шестнадцатеричную и наоборот http://www.cyberforum.ru/cpp-beginners/thread874979.html
Помогите пожалуйста,только напише полностю програму,очень надо,пожалуйста,буду очень благодарен
C++ Ошибка в указателе при работе со списком #include "stdafx.h" #include <iostream> #include <conio.h> #include <cstdio> #include <cstring> #include"string.h" using namespace std; struct Node { подробнее

Показать сообщение отдельно
Gellentwagen
0 / 0 / 0
Регистрация: 22.05.2013
Сообщений: 5

Метод наименьших квадратов! (с Pascal на C++) - C++

22.05.2013, 21:28. Просмотров 5696. Ответов 10
Метки (Все метки)

Писал прогу на Паскале, так как не владею должными знаниями по С++ приходится просить помочь вас!!! Помогите перевести прогу написанную на Паскале в язык С++)) Пожалуйста!!!

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
var
i,j,k,n,m           : integer ;
A                   : array [1..40,1..40] of real ;
B,X,Y,P             : array [1..20] of real ;
c,c1,F              : real ;
begin
writeln('Введите  размерность массива:');
read(n);
writeln('Введите  степень полинома:');
read(m);
writeln(' Введите массив X');
for i:=1 to n do
read(x[i]);
writeln(' Введите массив Y ');
for i:=1 to n do
read(y[i]);
for i:=1 to m+1 do begin
for j:=1 to m+1 do begin
A[i,j]:=0;
for k:=1 to n do
A[i,j]:=A[i,j]+exp((i+j-2)*ln((x[k]))) end;
A[i,m+2]:=0;
for k:=1 to n do
A[i,m+2]:=A[i,m+2]+y[k]*exp((i-1)*ln(x[k])) end;
for i:=1 to m+1 do begin  c:=A[i,i];
 for j:=1 to m+2 do
  A[i,j]:=A[i,j]/c;
 for k:= 1 to m+2 do
 if k<>i then begin
 C1:=A[k,i];
 for j:=1 to m+2 do
 A[k,j]:=A[k,j]-C1*A[i,j] end; end;
  writeln (  ' Параметры модели: '); 
   for i:=1 to m+1 do begin
   B[i]:=A[i,m+2];
   writeln ( i , ' –  ',  B[i]:6:4);   end;
writeln (  'Вычисленые значения для Р(х): '); 
F:=0;
for i:=1 to n do begin
P[i]:=0;
for k:=1 to m+1 do begin
P[i]:=P[i]+B[k]*exp((k-1)*ln(x[i])) end;
writeln ('P ', i ,'-ая  ', P[i]:6:4);
F:=F+((P[i]-Y[i])*(P[i]-Y[i]));end;
F:=SQRT(F/(n-1));
writeln('Среднеквадратичное отклонение =', F:6:4);
end.
Заранее Спасибо!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru