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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ упорядочить таблицу указанными методами и выполнить сравнительный анализ этих методов: метод линейного выбора и метод быстрой сортировки(с первым разд http://www.cyberforum.ru/cpp-beginners/thread265856.html
метод линейного выбора и метод быстрой сортировки(с первым разделяющим элементом); на языке с++
C++ Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева. program FracTree; uses Graph, CRT; procedure Tree(x, y: Integer; a: Real; l: Integer); var x1, y1: Integer; p, s : Integer; i : Integer; a1 : Real; begin if l < 8 then http://www.cyberforum.ru/cpp-beginners/thread265820.html
двусвязные списки C++
привет всем. Помогите пожалуйста написать функции очистки списка и добавление елемента в начало списка. Заранее спасибо.
C++ С уравнением
Спасите люди добрые кто может, срочно надо сделать задачу :wall: :( Вычислить значение функции z=y/x, где y=sin(rac), x-любое целое число. При вычислениии надо учитывать что y может быит равен нулю....
C++ С++ и аудио файлы http://www.cyberforum.ru/cpp-beginners/thread265806.html
Здравствуйте! Я пишу на С++ тест на определение порога звуковой чувствительности человеческого уха. Подскажите пожалуйста, каким образом подключать звуковые файлы?? Например, по нажатию на...
C++ сделать програмно господа програмисты допустим у меня есть файл .txt как в него програмно записать надпись(что бы визуально этот файл неоткрывался) ? Заранее всем огромное спасибо!!! подробнее

Показать сообщение отдельно
Дарья Дмитренко
0 / 0 / 0
Регистрация: 10.02.2011
Сообщений: 44

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

28.03.2011, 21:35. Просмотров 212. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru