Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2009, 21:44   #1
Алексей_xXx
Пользователь
 
Регистрация: 29.04.2009
Сообщений: 54
Печаль переименование переменной

Люди добрые помогите!!!! Не понимаю в чем проблема!!! нужно переименовать d1 в с, а с в z. Помогите пожалуйста !!!!

Код:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Math.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
i=0;
j=0;
for (i=0;i<8;i++)
{
 for (j=0;j<8;j++)
   {
   if (i==0) {m[i][j]=1/sqrt(8);}
   else {m[i][j]=0.5*cos((((2*j+1)*i*M_PI)/16)/180*M_PI);}
   }
}//for
i=0;
j=0;

for (i=0;i<8;i++)//вывод транспонированной матрицы
{
 for (j=0;j<8;j++)
   { x=int(m[i][j]*10000+0.5)/10000.0;
   StringGrid1->Cells[i][j]=x;//
   }
}//for верхний
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{ float v  ;
//DecimalSeparator='.'; заменяет разделить. вместо запятой будет точка
j=0;x=0;
for (j=0;j<8;j++)
{d1[j]=StrToFloatDef(StringGrid2->Cells[j][0],0);}//for
for( j=0;j<8;j++)
{ x=0;
    for(c=0;c<8;c++)
    {
    x=x+d1[c]*m[c][j];
    }
c1[j]=x;
}
for (i=0;i<8;i++)
   { x=int(c1[i]*10000+0.5)/10000.0;
   StringGrid3->Cells[i][0]=x;
   }
}

Последний раз редактировалось Stilet; 11.12.2009 в 08:36.
Алексей_xXx вне форума Ответить с цитированием
Старый 11.12.2009, 08:38   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
переименовать d1 в с, а с в z
Можно глупый вопрос? Зачем тебе это делать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переименование группы файлов Meh Общие вопросы Delphi 2 28.07.2009 12:31
Переименование OLEObjects Fierce Microsoft Office Excel 17 27.04.2009 16:30
Переименование файла Патрон Общие вопросы Delphi 17 09.04.2008 16:50
Работа с файлами (создание, удаление, открытие, связываение с переменной, очищение памяти переменной) Arkuz Общие вопросы Delphi 12 25.09.2007 20:47