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

Перевод небольшой программки с Паскаля на С++ - C++

Восстановить пароль Регистрация
 
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4
14.12.2010, 20:12     Перевод небольшой программки с Паскаля на С++ #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
14.12.2010, 20:12     Перевод небольшой программки с Паскаля на С++
Посмотрите здесь:

C++ Перевод из паскаля в с++
Перевод из Паскаля в C++ C++
C++ Перевод из паскаля в с++
C++ Разложение числа на множители
перевести небольшой код с паскаля на с C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Serhiy:)
 Аватар для Serhiy:)
2 / 2 / 1
Регистрация: 09.10.2010
Сообщений: 72
14.12.2010, 20:52     Перевод небольшой программки с Паскаля на С++ #2
Эта программа рабочая?

Добавлено через 18 минут
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
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;
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4
15.12.2010, 12:49  [ТС]     Перевод небольшой программки с Паскаля на С++ #3
"Эта программа рабочая?"
Да, рабочая. просто мне её в С++ надо написать.
Serhiy:)
 Аватар для Serhiy:)
2 / 2 / 1
Регистрация: 09.10.2010
Сообщений: 72
15.12.2010, 17:04     Перевод небольшой программки с Паскаля на С++ #4
Я не могу помочь т.к. в этой проге только две подпрограммы и нет кода основной программы.
Напиши всю прогу
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4
15.12.2010, 17:18  [ТС]     Перевод небольшой программки с Паскаля на С++ #5
а что там должно ещё быть? ну хотя бы примерно?
Yandex
Объявления
15.12.2010, 17:18     Перевод небольшой программки с Паскаля на С++
Ответ Создать тему
Опции темы

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