Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Как написать программу в С++ что бы работала в Delphi
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
mazila406 mazila406 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.11.2010
По умолчанию Как написать программу в С++ что бы работала в Delphi - 18.11.2010, 22:28

Народ плз можете зделать так что б эта прога работала в борланде....

cpp Код:
#include<io.h>

#include "stdio.h"

#include "conio.h"

#include <windows.h>

#include <iostream>

#include <time.h>

#include <io.h>

#include <fcntl.h>

#include <string.h>

#include "stdafx.h"

using namespace std;

#include <stdio.h> // Описания функций ввода-вывода

#include <math.h> // Описания математических функций

#include <stdlib.h> // Описания функций malloc и free

const int n=3;

void ReadData()

{

int n;

double A[n][n];

FILE*f=fopen("l1.txt","rt");

if (f!=0)

printf("CAN'T OPEN FILE\nPlease, f**k off!");

{

fscanf(f,"%d",&n);

printf("Sborka matritsi m- na n-:\n");

for (int i=0;i<n;i++)

{

for(int j=0;j<n;j++)

{

fscanf(f,"%d",&A[i][j]);

printf("%d",A[i][j]);

}

printf("\n");

}

printf("\n\n");

fclose(f);

}

}

void Gauss

( double X[n], const double Z[n][n], const double Y[n])

{

ReadData();

double A[n][n]; // матрица коэффицентов Гаусса

double B[n]; // рабочий массив свободных членов

int i,

int j,

int k; // рабочие переменные

for( i = 0; i < n; i++ ) // копирование в рабочую матрицу A

{

for( j = 0; j < n; j++ )

A[i][j] = Z[i][j];

B[i] = Y[i]; // копирование свободных членов

X[i] = 0;

}

for( k = 0; k < n-1; k++ )

for( i = k+1; i < n; i++ ) // преобразование строк

{

double r = A[i][k] / A[k][k];

for( j = k; j < n; j++ )

A[i][j] -= A[k][j] * r;

B[i] -= B[k] * r;

}

X[n-1] = B[n-1] / A[n-1][n-1];

for( i = n-2; i >= 0; i-- )

{

double s = 0;

for( j = i+1; j < n; j++ )

s += A[i][j] * X[j];

X[i] = ( B[i] - s ) / A[i][i];

}

printf( "\n" );

for( i = 0; i < n; i++ )

{ printf( "\n" );

for( j = 0; j < n; j++ )

printf( "%8.2lf", A[i][j] );

printf( " %8.2lf", B[i] );

}

}

void main( void )

{

ReadData();

double X[n];// корни системы линейных уравнений

short i, j; // рабочие переменные

printf( " matritsa A* matritsa B\n" );

for( i = 0; i < n; i++ ) // цикл строк

{

printf( "\n" ); // новая строка на мониторе

for( j = 0; j < n; j++ )

printf( "%8.2lf", A[i][j] );

printf( " %8.2lf", B[i] );

}

printf( "\n" );

printf( "stypen4atii vid matritsi \n" );

Gauss( X, A, B ); // решение методом Гаусса

printf( "\n" );

printf( "\n" );

printf( " zna4enia peremennih x1,x1,x3\n" );

printf( "\n X = " );

for( i = 0; i < n; i++ )

printf( "%8.2lf", X[i] );

printf( "\n" );

printf( "\n" );

printf( "rang=\n" );

getch();

}
Ответить с цитированием
  (#2 (permalink)) Старый
Angel5a Angel5a вне форума
Member
 
Сообщений: 1,213
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 28.02.2005
По умолчанию 19.11.2010, 21:11

Как минимум требуется её в борланде открыть, и он прекрасно вам показывает все ошибки/неточности/излишества, как афх так и неправильныю запись динамического распределения памяти, и неверную запись заголовков функции, и при желании может дополнительно указать на неинициализированные переменные (но это согласен ручками надо попросить).
Ответить с цитированием
  (#3 (permalink)) Старый
mazila406 mazila406 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.11.2010
По умолчанию 22.11.2010, 05:23

блин, чё так геморно переделовать??? если кто то может, плззз....
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi 7 написать программу бота! ignis86 Delphi 2 09.03.2012 17:02
Помогите пожалуйста написать программу на Delphi Natal'ja Delphi 2 28.12.2011 16:40
помогите написать программу в Delphi dearkato Delphi 1 26.09.2011 12:06
Необходимо оптимизировать программу так чтоб она работала с четырехзначными числами dudeviper Lisp 5 01.12.2008 16:53
Delphi 8 .NET как написать программу не зависишую от dll библиотек PanteR_dsd Delphi 0 02.08.2006 13:34
Как написать программу на Delphi которая будет открывать файлы и копировать их And_rew Вопросы начинающих программистов 1 30.07.2005 16:59
Как написать на Delphi программу которая копирует и удаляет файлы imported_EaglE Вопросы начинающих программистов 6 13.02.2005 13:24
Как перевести программу с Delphi на C++ uran238 Вопросы начинающих программистов 6 18.10.2004 16:22
Как написать Hashtable что бы работала Rem Visual C++ 0 29.06.2004 00:52
Можно ли средствами Delphi написать программу, которая сможет скомпилировать CHM Anonymous Delphi 3 09.12.2003 15:20
Как написать программу-сервис на Delphi Anonymous Delphi 0 06.11.2003 12:42
Написать программу которая закрывает любую программу из автозагрузки без перезагрузк Anonymous C++ Builder 1 07.10.2003 11:24



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов