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

Схема Холецкого (перевод с Паскаля на С++) - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Беру и спокойно вызываю неконстантную функцию для константного объекта http://www.cyberforum.ru/cpp-beginners/thread1141646.html
Это как ? Везде пишут, что сие невозможно в принципе. Или есть исключение для конструктора ? #include <iostream> using namespace std; class test { private: int a;
C++ Random randomize в vs13 как записать в массив случайные числа vs13 почему-то нет такой команды(random) http://www.cyberforum.ru/cpp-beginners/thread1141632.html
Реализовать динамическую структуру, содержащую информацию об указанных полях C++
Реализовать динамическую структуру, содержащую информацию: фамилия и инициалы заказчика; адрес; вид ремонтных работ; стоимость; продолжительность проведения. Программа должна обеспечивать: - добавления элемента; - удаление элемента; - вывод всех данных в виде таблицы; - формирование списка элементов со стоимостью работ, ниже заданная; - поиск и вывод заданного элемента (по фамилии); ...
Модель «Сахарный мир» C++
Модель «Сахарный мир» Модель «Сахарный мир» описывается следующими правилами: 1) Пространство является двумерной сеткой. 2) В начальный момент времени порождается конечное число агентов, расположенных в пространстве, и в клетках пространства размещается сахар, от 0 до некоторого N в каждой клетке. 3) Каждая клетка сетки может содержать не более одного агента. 4) Агент рождается с двумя...
C++ Ошибка в коде http://www.cyberforum.ru/cpp-beginners/thread1141606.html
Проверьте эту программу пожалуйста, вроде она не сложная, а я не могу найти ошибку вообще уже пол часа сижу. #include <iostream> #include <conio.h> #include <math.h> #include <stdlib.h> #include <stdafx.h> using namespace std; int main() {
C++ Класс для рисования кругов Класс для рисования кругов (хранить радиус R и координаты x,y центра). Вычислять площадь круга и длину окружности. подробнее

Показать сообщение отдельно
vladuxa
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 23
07.04.2014, 19:24     Схема Холецкого (перевод с Паскаля на С++)
Добрый вечер!
Помогите пожалуйста перевести код из паскаля в visual c++
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
Program XALETSKI;
{ СХЕМА ХАЛЕЦКОГО }
Uses Crt;
Const n=2 { Число уравнений в системе };
Type Masiv = array[1..n] of real;
Var A:array[1..n,1..n+1] of real; { Матрица коэффициентов aij }
B:array[1..n,1..n] of real; { Матрица B }
C:array[1..n,1..n+1] of real; { Матрица С }
X { массив корней }:Masiv;
Y { Массив чисел y }:Masiv;
i,j,m,k:integer;
fl:text; { Файловая переменная, в которую выводится результат }
Sum,Sum1:real;
BEGIN
Clrscr;
Writeln(' КОЭФФИЦИЕНТЫ УРАВНЕНИЙ: ');
for i:=1 to n do
for j:=1 to n+1 do
begin
Write(' A(',i,',',j,')= '); Read(A[i,j]);{Ввод коэффициентов aij}
end;
Writeln;
Writeln;
{ Вывод на печать исходной матрицы }
Assign(fl,'con');
Rewrite(fl);
Writeln(fl,' ИСХОДНАЯ МАТРИЦА');
for i:=1 to n do
begin
for j:=1 to n do Write(fl,A[i,j]:6:3,' * X',j,' ');
Writeln(fl,'= ', A[i,n+1]:6:3);
end;
Writeln(fl);
 
{ Присваивание первому столбцу матрицы B первого столбца исходной матрицы и определение коэффициентов c1,j }
 
for i:=1 to n do B[i,1]:=A[i,1];
for j:=2 to n+1 do C[1,j]:=A[1,j] / B[1,1];
Y[1]:=A[1,n+1] / B[1,1]; { Определение первого значения y }
FOR m:=2 TO n DO
BEGIN
j:=m;
i:=m;
Repeat
{ Вычисление суммы }
Sum:=0;
k:=1;
Repeat
Sum:=Sum + B[i,k] * C[k,j];
k:=k+1;
Until k>j-1;
{ Вычисление коэффициента матрицы B }
B[i,j]:=A[i,j] - Sum;
i:=i+1;
Until i>n;
i:=m;
j:=m+1;
Repeat
{ Вычисление суммы для С и Y }
Sum:=0; Sum1:=0;
k:=1;
Repeat
Sum:=Sum + B[i,k] * C[k,j];
Sum1:=Sum1 + B[i,k] * Y[k];
k:=k+1;
Until k>i-1;
{ Вычисление коэффициента матрицы C }
C[i,j]:=1 / B[i,i] * (A[i,j] - Sum);
j:=j+1;
Until j>n+1;
{ Вычисление коэффициента Y }
Y[i]:=1 / B[i,i] * (A[i,n+1] - Sum1);
END;
{ Вычисление корней системы, начиная с максимального индекса и их печать }
X[n]:=Y[n];
ClrScr;
Writeln(fl,'РЕЗУЛЬТАТЫ РАСЧЕТОВ:');
Writeln(fl,'X',n,'=',X[n]:9:5);
for i:=n-1 downto 1 do
Begin
Sum:=0; k:=i+1;
While k<=n do
Begin
Sum:=Sum + C[i,k] * X[k];
k:=k+1;
End;
X[i]:=Y[i] - Sum;
Writeln(fl,'X',i,'=',X[i]:9:5);
End;
Close(fl);
END
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:41. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru