Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите написать программу, Нужна помощь! 
:(
    Опции темы
Андрей Демин
Дата 29.6.2007, 07:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 18.11.2004

Репутация: нет
Всего: нет
Народ! Нужна помощь!
Есть написанный курсак по теме "Решение линейных уравнений методом Гаусса". Нужны 2-3 прогаммы для примера на borland C++. Ни visual ни что-то другое не канает.

Самое главное - попроще! Программы без наворотов.
Буду благодарен!
PM MAIL   Вверх
jonie
Дата 29.6.2007, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 7
Всего: 118
в раздел "Объявления о найме специалистов" или "ПЦент помощи". Тут подобным темам не место.


--------------------
Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...
PM MAIL Jabber   Вверх
Santilka85
Дата 29.6.2007, 08:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 202
Регистрация: 8.6.2007
Где: Новосибирск

Репутация: 0
Всего: 1
Понимаешь, тут главное изначально знать КАК решается твоя задача на бумаге, а зная синтаксис написать программу можно. Мне кажется почти каждый смог бы написать эту прогу, кто хоть маленько знает необходимый язык, но не каждому захочется сначала разбираться с математикой...
--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
Андрей Демин
Дата 29.6.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 18.11.2004

Репутация: нет
Всего: нет
Ребята, поймите, не для себя прошу! У меня изучени е С++ будет только в следующем семестре... А пока только Pascal да Visual basic.
Знакомый попросил...

А программа может быть абсолютно любая - лишь бы по теме. Можно просто, например, решить какое-либо из приведеных уравнений.
PM MAIL   Вверх
Klin
Дата 29.6.2007, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1938
Регистрация: 7.10.2002
Где: Краснодар

Репутация: 20
Всего: 25
Андрей Демин, вам уже сказали, куда следует обратиться с помощью. Здесь помогает получать знания, а не готовые программы! С таким же успехом можите хлеб просить в аптеке. Читайте правила форума.

Добавлено через 3 минуты и 27 секунд
Центр помощи.


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
jonie
Дата 29.6.2007, 15:07 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 7
Всего: 118
а че там математика-то... "прямой и обратный ход".... 5  строк вся программа.
Код

program gauss; {$R+}
const n=3;
var l:real;
  i,j,k,s,z:integer;
  x:array [1..n] of real;
  a:array [1..n,1..n+1] of real;

procedure vvod; {--- заполнение матрицы ---}
begin
  a[1,1]:= 3; a[1,2]:= 2; a[1,3]:= 1; {} a[1,4]:= 4;
  a[2,1]:= 1; a[2,2]:= 1; a[2,3]:=-1; {} a[2,4]:= 1;
  a[3,1]:= 1; a[3,2]:=-2; a[3,3]:= 1; {} a[3,4]:= 3
end;

begin
  vvod;

    {---- прямой ход ----}
  for s:=1 to n-1 do for z:=s+1 to n do
  begin
    a[z,s]:=-a[z,s]/a[s,s];
    for k:=s+1 to n+1 do a[z,k]:=a[z,k]+a[z,s]*a[s,k]
  end;

    (*********************)
  x[n]:=a[n,n+1]/a[n,n]; writeln('x[',n,']=',x[n]:2:3);

    {--- обратный ход:: ---}
  for i:=n-1 downto 1 do
  begin
    l:=a[i,n+1];
    for j:=i+1 to n do l:=l-x[j]*a[i,j];
    x[i]:=l/a[i,i]; writeln('x[',i,']=',x[i]:2:3)
  end;
end.

уж перепишите на С


--------------------
Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...
PM MAIL Jabber   Вверх
mr.Anderson
Дата 29.6.2007, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128
jonie, она мож и короткая, но не все же знают про метод Гаусса. smile Это в универе учится, а я, например, еще не доехал до него.

Перевожу на Си:
Код

#include <stdio.h>
//---------------------------------------------

int main( void )
{
 const int n = 3;
 
 double x[ n ];
 double a[ n ][ n + 1 ];

 //заполняем прямо тут
 a[0][0] = 3, a[0][1] = 2, a[0][2] = 1;
 a[1][0] = 1, a[1][1] = 1, a[1][2] = -1;
 a[2][0] = 1, a[2][1] = -2, a[2][2] = 1;
 a[0][3] = 4;
 a[1][3] = 1;
 a[2][3] = 3;

 //прямой ход
 for( int s=0; s<n; s++ )
  for( int z=s+1; z<=n; z++ )
  {
   a[z][s] = -a[z][s]/a[s][s];
   
   for( int k=s+1; k<=n; k++ )
    a[z][k]=a[z][k]+a[z][s]*a[s][k];
  }

  x[n-1] = a[n-1][n]/a[n-1][n-1]; printf( "x[%d]=%f", n, x[n-1] );

 //обратный ход
 for( int i=n-1; i>=1; i-- )
 {
  double l = a[i][n];

  for( int j=i+1; j<n; j++ )
   l = l-x[j]*a[i][j];

  x[i] = l / a[i][i]; printf( "x[%d]=%f", i, x[i] );
 }

 return 0;
}

Вроде, не наврал, но могут быть ошибки с индексацией...


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Андрей Демин
Дата 30.6.2007, 05:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 18.11.2004

Репутация: нет
Всего: нет
Спасибо, может еще кто что?  smile 

Люблю программистов - дружный народ!  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0496 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.