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

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

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

переведите из Паскаля на С++, пожалуйста! - C++

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

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 &lt; N &lt; 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

переведите с Паскаля на си++ пожалуйста! - C++
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin AMean:=(x+y)/2; GMean:=sqrt(x * y); ...

переведите, пожалуйста, код паскаля в с++ - C++
Вот, добрые люди, само задание: заданной и действительной квадратной матрицы порядка n найти сумму элементов строки, в которой расположен...

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

Переведите пожалуйста с Паскаля на СИ++. Сумма ряда - C++
uses crt; var s,si,x:real; i,n:integer; function fact(x:integer):longint; begin if (x=1) or (x=0) then fact:=1 else...

Переведите из Паскаля в С++ - C++
uses crt; var x,y,z,t,max:real; BEGIN writeln('Введите длины сторон треугольника'); write('1 -&gt; '); readln(x); ...

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

переведите с Паскаля на си++ - C++
на паскале получается...а вот на си++ не о чем(( Program MinMax17; const N=10; TheArr:array of integer = (10,20,1,4,5,-6,7,8,9,10);...


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

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

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