Не выводит результат

@FriendIk · Регистрация: 16.12.2012

Студворк — интернет-сервис помощи студентам

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  for (int i=1; i<7; i++)SG1->Cells[0][i]=IntToStr(i)+"-ÿ ñòðîêà";
  for (int j=1; j<7; j++)SG1->Cells[j][0]=IntToStr(j)+"-é ñòîëáåö";
  for (int i=1; i<7; i++)SG2->Cells[0][i]=IntToStr(i)+"-ÿ ñòðîêà";
  for (int j=1; j<7; j++)SG2->Cells[j][0]=IntToStr(j)+"-é ñòîëáåö";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  float A[7][7], max,min; int i,j;
for (i=0; i<6; i++)
for (j=0; j<6; j++)
if(SG1->Cells[j+1][i+1]!="")
A[i][j]=StrToFloat(SG1->Cells[j+1][i+1]);
min=A[0][0]; max=A[0][0];
int maxi, maxj, mini, minj;
for (i=0; i<6; i++)
{
 for (j=0; j<6; j++)
 {
  if (max<A[i][j])
  {
   max=A[i][j];
   maxi=i; maxj=j;
  }
  if (min>A[i][j])
  {
   min=A[i][j];
   mini=i; minj=j;
  }
 }
}
int temp=A[maxi][maxj];
A[maxi][maxj]=A[mini][minj];
A[mini][minj]=temp;
SG2->Cells[i+1][j+1]=FloatToStr(A[j][i]);
}
//---------------------------------------------------------------------------

mimicria · 27.12.2012, 05:54

Обратите внимание, как в самом начале двумя вложенными циклами осуществлялось чтение таблицы в массив.
Обратно хотите одной непонятной строчкой пихнуть?

Сообщение от FriendIk

SG2->Cells[i+1][j+1]=FloatToStr(A[j][i]);

@FriendIk · 27.12.2012, 19:17 **[ТС]**

я не правильно написал строку вывода?..

mimicria · 27.12.2012, 19:20

Сообщение от FriendIk

я не правильно написал строку вывода?..

Не по теме:

гениально!

@BRcr · 27.12.2012, 19:22

не строка нужна, а пара циклов, так же, как и для ввода

@FriendIk · 27.12.2012, 19:23 **[ТС]**

Если я ее написал не правильно, то как я ее исправлю, уже замахался сидеть над этой прогой каждый день..(

@BRcr · 27.12.2012, 20:53

Сообщение от FriendIk

уже замахался сидеть над этой прогой каждый день..(

Знаешь, как говорят, "Если Вам не повезло в первый раз - значит парашютный спорт не для Вас…"

Лучше б над книжками посидел каждый день, программку бы свою потом за пол-дня написал.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
__fastcall TForm1::TForm1( TComponent *Owner )
               : TForm( Owner ) {
    for ( int i = 1; i < 7; i++ ) {
        SG1->Cells[0][i] = IntToStr( i ) + "-я строка";
        SG1->Cells[i][0] = IntToStr( i ) + "-й столбец";
        SG2->Cells[0][i] = IntToStr( i ) + "-я строка";
        SG2->Cells[i][0] = IntToStr( i ) + "-й столбец";
    }
    srand( time( NULL ) );
    for ( int i = 1; i < 7; i++ ) {
        for ( int j = 1; j < 7; j++ ) {
            SG1->Cells[j][i] = FloatToStrF( ( rand( ) % 100000 ) / 1000.0, ffFixed, 3, 2 );
        }
    }
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click( TObject *Sender ) {
    float A[6][6] = { {0}}, max, min, temp;
    int maxi( 0 ), maxj( 0 ), mini( 0 ), minj( 0 );
 
    min = max = StrToFloat( SG1->Cells[1][1] );
    for ( int i = 0, j; i < 6; ++i ) {
        for ( j = 0; j < 6; ++j ) {
            if ( SG1->Cells[j + 1][i + 1] != "" ) {
                if ( max < ( A[i][j] = StrToFloat( SG1->Cells[j + 1][i + 1] ) ) ) {
                    max = A[i][j];
                    maxi = i;
                    maxj = j;
                }
                if ( min > A[i][j] ) {
                    min = A[i][j];
                    mini = i;
                    minj = j;
                }
            }
        }
    }
    temp = A[maxi][maxj];
    A[maxi][maxj] = A[mini][minj];
    A[mini][minj] = temp;
    for ( int i = 1; i < 7; i++ ) {
        for ( int j = 1; j < 7; j++ ) {
            SG2->Cells[j][i] = FloatToStrF( A[i - 1][j - 1], ffFixed, 3, 2 );
        }
    }
}

@FriendIk · 27.12.2012, 21:26 **[ТС]**

спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@FriendIk 1 / 1 / 1 Регистрация: 16.12.2012 Сообщений: 59
	27.12.2012, 19:17 [ТС]
	я не правильно написал строку вывода?.. 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	27.12.2012, 19:22
	не строка нужна, а пара циклов, так же, как и для ввода 0

@FriendIk 1 / 1 / 1 Регистрация: 16.12.2012 Сообщений: 59
	27.12.2012, 19:23 [ТС]
	Если я ее написал не правильно, то как я ее исправлю, уже замахался сидеть над этой прогой каждый день..( 0

@FriendIk 1 / 1 / 1 Регистрация: 16.12.2012 Сообщений: 59
	27.12.2012, 21:26 [ТС]
	спасибо за помощь! 0