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

Перевод с паскаля на с++ - C++

Восстановить пароль Регистрация
 
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4
13.12.2010, 20:56     Перевод с паскаля на с++ #1
Помогите, пожалуйста, перевести небольшую программку с паскаля на с++. Заранее благодарен





TYPE MAT=ARRAY [1..10, 1..10] OF REAL;
VEC=ARRAY [1..10] OF REAL;
VAR I,K,M,N: INTEGER; E,L: REAL; A:MAT; X:VEC;
PROCEDURE MATR (N:INTEGER; VAR X:VEC; VAR A:MAT);
VAR I,J: INTEGER;
BEGIN
FOR I:=1 TO N DO BEGIN WRITE (‘X’, I:2, ‘?’); READLN (X[I]);
FOR J:=1 TO N DO BEGIN
WRITE (‘A’,I:2,J:2,’?’); READLN (A[I,J])
END
END
END;
PROCEDURE EIGEN (N,M : INTEGER; VAR X:VEC; VAR A:MAT; E:REAL; VAR L:REAL; VAR K:INTEGER);
VAR I,J: INTEGER; R,S: REAL; Y:VEC;
BEGIN K:=0; L:=0.0;
REPEAT R:=L; K:=K+1; L:=0.0;
FOR I:=1 TO N DO BEGIN S:=0.0;
FOR J:=1 TO N DO S:=A[I,J]*X[J];
IF ABS (S) ABS (L) THEN L:=S;
Y[I]:=S
END;
FOR I:=1 TO N DO X[I]:=Y[I]/L
UNTIL (K=M) OR (ABS((L-R)/L)(E)
END;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2010, 20:56     Перевод с паскаля на с++
Посмотрите здесь:

C++ Перевод из паскаля в с ++
Перевод из Паскаля в C++ C++
Перевод из Паскаля в C++ C++
Перевод с Паскаля на С++ C++
C++ Перевод с паскаля на с++
Перевод с паскаля в с++ C++
Перевод с Паскаля на C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 08:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru