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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
vladuxa
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 24
#1

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

07.04.2014, 19:24. Просмотров 376. Ответов 0
Метки нет (Все метки)

Добрый вечер!
Помогите пожалуйста перевести код из паскаля в 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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2014, 19:24
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Схема Холецкого (перевод с Паскаля на С++) (C++):

Блок схема для Паскаля - C++
Помогите с блок схемой(Особое благодарность Натали) Вот задача Записать в файл последовательного доступа N натуральных чисел: a1, a2,...,...

Перевод с паскаля в С++ - C++
помогите перевести код программы с паскаля в С++, пожалуйста! Program pr1; uses crt; var i,х1,х2,y1,y2,d,m,k,n:integer; c:real; ...

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод с паскаля в с++ - C++
переводил код с паскаля в с++ и столкнулся с проблемой, помогите разобраться, пожалуйста! writeln(a,' rublej') написал в с++ как printf...

Перевод с Паскаля на С++ - C++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key: TKey): integer; {Вычисление хеш-функции} ...

Перевод с Паскаля на C++ - C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. var z,x,v: text; st: string; begin ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2014, 19:24
Привет! Вот еще темы с ответами:

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

Перевод из Паскаля в C++ - C++
Здравствуйте! Помогите перевести код из Паскаля в C++. Трансляторов смотрел в гугле, так и не разобрался. Вот задача Поменять местами...

Перевод из паскаля в С++ - C++
помогите, пожалуйста, перевести : Program enot; var c, a : integer; begin c:=0; repeat read (a); if (a mod...

Перевод из Паскаля на С++ - C++
Привет всем. Нужна помощь. У меня есть алгоритм на Паскале, а нужен на С++, поскольку Паскаль знаю плохо, прошу вас перевести данный код из...


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

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

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