|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.05.2010, 17:03 | #1 |
Регистрация: 11.03.2010
Сообщений: 7
|
ввод/вывод данных из/в файл для данной программы?
Задан массив A(10). Переставить положительные элементы в обратном порядке.
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::B1Click(TObject *Sender) { int i; for(i=0;i<SG1->ColCount;i++) {SG1->Cells[i][0]=random(100)-50;} } //--------------------------------------------------------------------------- void __fastcall TForm1::B2Click(TObject *Sender) { int b=9, d=0, c=0, i, z; for(i=0;i<SG1->ColCount;i++) { if (SG1->Cells[i][0]>0) {c++;} } for(i=0;i<SG1->ColCount;i++) { if (SG1->Cells[i][0]<=0) {SG2->Cells[i][0]=SG1->Cells[i][0];} } if (c%2 == 0) { for (z=c/2; z>0; z--) { for(i=d; i<SG1->ColCount; i++) { if (SG1->Cells[i][0]>0) { d=i; break; } } for(i=b; i>=0; i--) { if (SG1->Cells[i][0]>0) { b=i; break; } } SG2->Cells[b][0]=SG1->Cells[d][0]; SG2->Cells[d][0]=SG1->Cells[b][0]; d++; b--; } } else { for (z=c/2+1; z>0; z--) { for(i=d; i<SG1->ColCount; i++) { if (SG1->Cells[i][0]>0) { d=i; break; } } for(i=b; i>=0; i--) { if (SG1->Cells[i][0]>0) { b=i; break; } } SG2->Cells[b][0]=SG1->Cells[d][0]; SG2->Cells[d][0]=SG1->Cells[b][0]; d++; b--; } } } //--------------------------------------------------------------------------- |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
C++ ввод/вывод данных | Sonny01 | Помощь студентам | 4 | 21.03.2010 11:51 |
Delphi. ввод-вывод данных | Maagistr | Помощь студентам | 1 | 12.12.2009 17:16 |
линейные программы консольный ввод и вывод | DjDeniels-61 | Помощь студентам | 1 | 20.11.2009 09:23 |
Удаление лишних пробелов. Ввод/вывод в файл. | Иван 883 | Помощь студентам | 13 | 31.03.2009 19:39 |