IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Исправить ошибки, Исправить переведенную программу
Accer
сообщение 1.01.2008 16:04
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Я просил помочь перевести программу на паскаль( Перевести программу на Pascal )
Мне помогли, но программа не компилируется. Пожалуйста помогите это исправить!


const
n = 3;
A: array[0 .. pred(n), 0 .. pred(n)] of double = (
(10, 1, 1), (2, 10, 1), (2, 2, 10)
);
B: array[0 .. pred(n)] of double = (
12, 13, 14
);

var
X: array[0 .. pred(n)] of double;
i, j, k: integer;
multiplier: double;

begin
writeln('Linear system of equations:');
writeln;

for i := 0 to pred(n) do begin
for j := 0 to pred(n-1) do
write('(', A[i][j]:0:2, ') * x', j, ' + ');
writeln('(', A[i][n-1]:0:2, ') * x', pred(n), ' = ', B[i]:0:2);
end;

for i := 0 to pred(n-1) do begin
for j := i+1 to pred(n) do begin
multiplier := A[j][i] / A[i][i];
for k := 0 to pred(n) do
A[j][k] := A[j][k] - A[i][k] * multiplier;
B[j] := B[j] - B[i] * multiplier;
end;
end;

for i := n-1 downto 0 do begin
X[i] := B[i];
for j := n-1 downto succ(i) do
X[i] := X[i] - A[i][j] * X[j];
X[i] := X[i] / A[i][i];
end;

writeln;
writeln('Result vector X:');
for i := 0 to pred(n) do begin
writeln('X[', i, '] = ', X[i]:0:2);
end;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Accer   Исправить ошибки   1.01.2008 16:04
volvo   Да что ты? Хочешь скриншот? Она не только компилир...   1.01.2008 16:08
Accer   Пишет Must be in 8087 mode to compile this :mega_c...   1.01.2008 16:27
мисс_граффити   первой строкой напиши {$N+} действительно, ...   1.01.2008 20:07
Accer   Спасибо мисс_граффити, это помогло. Можете рассказ...   2.01.2008 5:41
volvo   В FAQ-е была тема "Директивы компилятора...   2.01.2008 11:30
andriano   По хорошему, надо не лепить в каждой программе {...   2.01.2008 13:11
Accer   Сопроцессор-я не совсем понял, для чего он нужен.   2.01.2008 13:22
andriano   Сопроцессор-я не совсем понял, для чего он нужен....   2.01.2008 13:39
volvo   Это - ОЧЕНЬ спорное утверждение.. Ну, установил я ...   2.01.2008 13:23
andriano   Это - ОЧЕНЬ спорное утверждение.. Хочешь поспорит...   2.01.2008 14:01
volvo   Да ты что? А друг, вот незадача, разрабатывает при...   2.01.2008 16:16
andriano   А друг, вот незадача, разрабатывает приложения под...   2.01.2008 20:32
мисс_граффити   Интересно, а к организаторам олимпиад по программи...   2.01.2008 16:45
мисс_граффити   все, хватит оффтопа. вопрос с некомпилирующейся пр...   2.01.2008 21:00


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 19:25
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"