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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Строки http://www.cyberforum.ru/cpp-beginners/thread265864.html
Пожалуйста напишите программу на языке с++ для turbo C. Текст представляет собой программу на языке Си. Удалить из него все комментарии (текст, уложенный между /*i*/, учитывая эти символы); Спасибо...
C++ библиотека STL Подскажите где можно почитать про библиотеку STL. Говорю сразу с английским не дружу(( http://www.cyberforum.ru/cpp-beginners/thread265861.html
C++ Подсчет всех различных сумм.
Имеется n чисел P(1),..., P(n). Определить сколько различных сумм можно составить. (N<=1000; P(i)<=1000). Написал. Проверил на 3-10 числах, на глаз работает правильно. По задумке должна перебрать...
переведите из Паскаля на С++, пожалуйста! C++
Компилировать буду в Борланде... program Gauss; cоnst n=3; n1=4; type stroka=array of real; matr1=array of stroka; stolbes=array of real; var a: matr1; x: stolbes; maxabs,u: real;...
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 подробнее

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

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

28.03.2011, 21:47. Просмотров 268. Ответов 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