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

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

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

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

07.04.2014, 19:24. Просмотров 345. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2014, 19:24     Схема Холецкого (перевод с Паскаля на С++)
Посмотрите здесь:

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

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

Перевод с паскаля на С++ - C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. const n = 67; var matrix: array of integer; i,p,q:integer; ...

Перевод с паскаля на с++ - C++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat Write('Введите N : '); ReadLn(n); until n in ; n:=n div 2*2; ...

Перевод с паскаля на с++ - C++
program z1; var i,j,m,k,z,x,l:integer; begin readln(m); for i:=0 to m do begin z:=1; if i=0 then z:=1 else begin x:=i; ...

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

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

Перевод с Паскаля на C++ - C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var dr,md,i,k:integer; d:char; procedure dogd; ...

Перевод с паскаля на си - C++
Ребят помогите поджалуйста с переводом! const r=10; n=100; type mas=array of byte; var i,j,a:integer; ...

Перевод с Паскаля на си++ - C++
Помогите перевести на си++. uses crt; const gl=; var s:string; i:byte; begin clrscr; writeln('Введите текст из...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод с паскаля на С++ - C++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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