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

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

Войти
Регистрация
Восстановить пароль
 
Дарья Дмитренко
0 / 0 / 0
Регистрация: 10.02.2011
Сообщений: 44
#1

из Паскаля в С++ кто сможет перевести? Пожалуйста - C++

28.03.2011, 21:47. Просмотров 266. Ответов 0
Метки нет (Все метки)

компилировать буду в Борланд С++
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
program Gauss; 
cоnst n=3; n1=4; 
type stroka=array[1..n1] of real; 
matr1=array[1..n] of stroka; 
stolbes=array[1..n] of real; 
var a: matr1; x: stolbes; 
maxabs,u: real; i,j,l,k: integer; 
begin //ввод массива коэфициентов уравнении 
for i:=1 to n do 
for j:=1 to n+1 do read (a[j]); 
for i:=1 to n do 
begin //выбор уравнения с наибольшим по модулю коэфициентом исдвиг на первое место 
maxabs:=abs(a[j]); k:=i; 
write('max=',maxabs); 
for l:=i+1 to n do 
if abs(a[l]) > maxabs then 
begin 
maxabs:=abs(a[j]); 
write('замена'); 
k:=l 
end; 
if k<>i then 
for j:=i to n+1 do // перестановка i-го и k-го уравнения 
begin 
u:=a[j]; a[j]:=a[k][j]; 
a[k][j]:=u 
end; 
u:=a; // деление i-го уровня на коэф при xi 
for j:=i to n+1 do a[j]:=a[j]/u; 
for l:=i+1 to n do 
begin // этап исключения xi из l-го уровнения с помощью i-го 
u:=a[l]; 
for j:=i+1 to n+1 do 
a[l][j]:=a[l][j]-a[j]*u 
end; 
// прямой ход завершен 
end; 
// вычесляется значения остальных неизвестных , начиная с с(n-1)и кончая первой 
x[n]:=a[n][n+1]; 
for i:=n-1 downto 1 do 
begin 
x:=a[n+1]; 
for j:=i+1 to n do 
x:=x-a[j]*x[j] 
end; 
for i:=1 to n do writeln (x) 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 21:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос из Паскаля в С++ кто сможет перевести? Пожалуйста (C++):

Кто может перевести из паскаля в с++? - C++
uses crt; var i,j,n,k: integer; begin read(n); for i:=1 to n div 2 do for j:=1 to n div 2 do if (i*i*i)+(j*j*j)=n...

кто может перевести на С++ с Паскаля - C++
uses crt; const raz=;{/разделители слов, можно добавить} var s,sl:string; i,k:byte; begin clrscr; writeln('Строка:'); ...

Кто сможет переписать?? - C++
Вообщем такая тема, надо готовую прогу от Борланд С++ Билдер, переписать в Визуал С++, кто смодет, плиззз, надо срочно, заранее спс

Кто сможет? (Реккуррентное уравнение) - C++
Нужно найти k в Реккуррентном уравнении: an=an-1*k Что только не делал, не получается найти k. Буду очень благодарен, если...

Кто сможет научить задачам по С++ - C++
есть ли кто сможет научить задачам по С++ ( просто объяснить задачи, дать направления) (бесплатно :))))

Посмотри, кто сможет сделать - C++
Буду благодарен если кто-нибудь решит мне данные задачки в С++: 1.даны координаты диагоналей трапеции. найти ее площадь и периметр ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2011, 21:47
Привет! Вот еще темы с ответами:

Кто сможет написать два задание - C++
Здравствуйте.Помогите плиз решить задачи (очень нужно уже на завтра)номер 2 и 5

кто сможет прочесть без компилятора? - C++
cout&lt;&lt;(char)72; cout&lt;&lt;(char)69; cout&lt;&lt;(char)76; cout&lt;&lt;(char)76; cout&lt;&lt;(char)79; cout&lt;&lt;(char)32; cout&lt;&lt;(char)67; ...

немогу доработать с вводам документа кто сможет доработайте - C++
Число делится на 11, если разность между суммой цифр, стоящих на не- четных местах, и суммой цифр, стоящих на четных местах, кратна 11....

Кто сможет, посмотрите на мой код. Ошибки синтаксиса - C++
пожалуйста помогите с ошибками в коде, #include &lt;iostream&gt; //1 #include &lt;cmath&gt; //2 #include &lt;fstream&gt; //3 //4 const long N =...


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

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

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