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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4
#1

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

14.12.2010, 20:12. Просмотров 372. Ответов 4
Метки нет (Все метки)

У меня не сильно складываются отношения с Паскалем))) Нужно перевести программку на С++. Помогите, пожалуйста, буду очень признателен. Заранее спасибо



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++
помогите плз перевести небольшой код с pascal на С++ Program String41; var Dano:string; // вводимая строка slova:integer; //...

Перевод с Паскаля на си++ - C++
Помогите перевести на си++. uses crt; const gl=; var s:string; i:byte; begin clrscr; writeln('Введите текст из...

Перевод из Паскаля в С++ - C++
const RusLit = ; EngLit = ; var Str: string; procedure StringClear(var Str: string); var ResStr: string; i:...

Перевод с паскаля в С++ - C++
помогите перевести код программы с паскаля в С++, пожалуйста! Program pr1; uses crt; var i,х1,х2,y1,y2,d,m,k,n:integer; c:real; ...

Перевод с паскаля на С++ - C++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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:)
2 / 2 / 1
Регистрация: 09.10.2010
Сообщений: 72
15.12.2010, 17:04     Перевод небольшой программки с Паскаля на С++ #4
Я не могу помочь т.к. в этой проге только две подпрограммы и нет кода основной программы.
Напиши всю прогу
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2010, 17:18     Перевод небольшой программки с Паскаля на С++
Еще ссылки по теме:

Перевод с Паскаля в С++ - C++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin z:=1; rec:=1 end

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод из Паскаля в C++ - C++
Пожалуйста помогите перевести одну функцию из Паскаля в C++. Буду очень признательна, так как очень плохо знаю Паскаль, а C++ тоже не очень...


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

Или воспользуйтесь поиском по форуму:
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4
15.12.2010, 17:18  [ТС]     Перевод небольшой программки с Паскаля на С++ #5
а что там должно ещё быть? ну хотя бы примерно?
Yandex
Объявления
15.12.2010, 17:18     Перевод небольшой программки с Паскаля на С++
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru