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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Программирование на С++ (Матрицы) http://www.cyberforum.ru/cpp-beginners/thread210310.html
Народ сори я еще сам ни кому не помог,только сам зарегился,но помощь реально нужна.Кто-нибудь знает язык программирования С++,помогите пожалуйста пару задач решить по матрицам?. Вот задание: http://img.gameru.net/img/3a133.jpg Вот что я сделал сам,но там ни фига не работает,компиляторы VS 2008 #include <iostream> #include "math.h" using namespace std; void main() {int...
C++ STL операнд hi, подскажите почему всегда выводит "not found" class cl{ public: int s,t; bool operator()(int x){ return s<= x && x <=t;} }; int main() http://www.cyberforum.ru/cpp-beginners/thread210304.html
Изучение итерационных процессов и циклов C++
Особые требования: реализовать эффективное вычисление функции, без повторения одинаковых вычислений, использовать коэффициент, связывающий соседние члены ряда. В варианте задания указан ряд и функция. Написать функцию вычисления суммы ряда для заданного аргумента с точностью 4 знака после запятой. Результат выдать в виде таблицы, состоящей из 4 столбцов: 1 – значение аргумента из заданного...
Работа с компонентом Scope C++
Не могу загрузить в компонент Mitov::Plotlab::Scope массив для графика: double Buffer1; for (int i = 0; i < 1000; i++) { Buffer1 = i; } scope1.Channels.Data.SetYData(Buffer1);
C++ Дано целое число m>1 http://www.cyberforum.ru/cpp-beginners/thread210282.html
Дано целое число m>1. Получить наименьшее целое k, при котором 4^k>m.
C++ Не правильно работает... Программа должна найти непрерывные участки, на которых сумма элементов равна 100 Не правильно работает... Помогите исправить... Программа должна найти непрерывные участки, на которых сумма элементов равна 100 #include "stdafx.h" #include <iostream> #include <ctime> using namespace std; int _tmain(int argc, _TCHAR* argv) { setlocale (LC_CTYPE, "Russian"); int i,r/*размер масива*/, rmax=999, arr, b=0,a=0; cout<<"Размер массива: "; подробнее

Показать сообщение отдельно
flip_amsu
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 4

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

13.12.2010, 20:56. Просмотров 279. Ответов 0
Метки (Все метки)

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





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