Форум программистов, компьютерный форум 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
28.03.2011, 21:35     переведите из Паскаля на С++, пожалуйста!
Компилировать буду в Борланде...
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 16:01. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru