Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
 Аватар для Udji
0 / 0 / 0
Регистрация: 12.04.2014
Сообщений: 40

Найти одного или нескольких двоичников вывести в StringGrid, если таковых нет то вывести сообщение

20.04.2017, 17:57. Показов 880. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Необходимо изменить условие задачи.....не могу сообразить где поменять условие для вывода двоичников вместо тех студентов у которых "средний бал 4 или 5" это по старому заданию. не помню как пройтись по массиву оценок по предметам, и там где встретиться хоть одна двойка вывести этого студента в стринггрид3... большая часть сделана, остатется самая малость
прикрепил архив с самой программой.
Архив WinRAR (2).rar

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
#include <memory>
 #include <iostream>
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int nStud = 0;
const int r = 4; //Кол-во элементов массива
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  StringGrid1->Cells[0][0] = "Физика";
  StringGrid1->Cells[1][0] = "Химия";
  StringGrid1->Cells[2][0] = "Информатика";
  StringGrid1->Cells[3][0] = "Алгебра";
  StringGrid1->Cells[4][0] = "Мат.анализ";
  StringGrid2->Cells[0][0] = "ФИО Студента";
  StringGrid2->Cells[1][0] = "Группа";
  StringGrid2->Cells[2][0] = "Средний балл";
        StringGrid2->Cells[3][0] = "Физика";
        StringGrid2->Cells[4][0] = "Химия";
        StringGrid2->Cells[5][0] = "Информатика";
        StringGrid2->Cells[6][0] = "Алгебра";
        StringGrid2->Cells[7][0] = "Мат.анализ";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(!Check())
   {
     ShowMessage("Не все данные введены.");
     return;
   }
  int b = 0;
  Stud[nStud].FIO = Edit1->Text;
  Edit1->Text = "";
  Stud[nStud].Group = Edit2->Text;
  Edit2->Text = "";
 
                for(int i = 0; i < 5; i++)
   {
     Stud[nStud].Balls[i] = StrToInt(StringGrid1->Cells[i][1]);
     StringGrid1->Cells[i][1] = "";
                b += Stud[nStud].Balls[i];
 
   }
  Stud[nStud].sBall = (int)(b/5.0 + 0.5);
  nStud++;
  StringGrid2->Cells[0][nStud] = Stud[nStud-1].FIO;
  StringGrid2->Cells[1][nStud] = Stud[nStud-1].Group;
  StringGrid2->Cells[2][nStud] = Stud[nStud-1].sBall;
 
  StringGrid2->Cells[3][nStud] = Stud[nStud-1].Balls[0];
  StringGrid2->Cells[4][nStud] = Stud[nStud-1].Balls[1];
  StringGrid2->Cells[5][nStud] = Stud[nStud-1].Balls[2];
  StringGrid2->Cells[6][nStud] = Stud[nStud-1].Balls[3];
  StringGrid2->Cells[7][nStud] = Stud[nStud-1].Balls[4];
 
  Button1->Caption = "Добавлено " + IntToStr(nStud) + " записей.";
  if(nStud >= r)
   {
     for(int i = 1; i <= 10; i++)
      for(int j = 0; j < 3; j++)
       StringGrid1->Cells[j][i] = "";
     TStudents tmp;
     for(int i=0, j=0; i < r; i++)
      {
        tmp.FIO = Stud[i].FIO;
        tmp.Group = Stud[i].Group;
        tmp.sBall = Stud[i].sBall;
        j = i - 1;
        while((j >= 0) && (Stud[j].sBall > tmp.sBall))
         {
           Stud[j+1] = Stud[j];
           j = j - 1;
         }
        Stud[j+1].FIO = tmp.FIO;
        Stud[j+1].Group = tmp.Group;
        Stud[j+1].sBall = tmp.sBall;
      }
     for(int i = 0; i < r; i++)
      {
        StringGrid2->Cells[0][i + 1] = Stud[i].FIO;
        StringGrid2->Cells[1][i + 1] = Stud[i].Group;
        StringGrid2->Cells[2][i + 1] = Stud[i].sBall;
      }
     GroupBox1->Enabled = false;
     Button2->Enabled = true;
         Button4->Enabled = true;
   }
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::Check()
{
  if(Edit1->Text.Trim().IsEmpty() || Edit2->Text.Trim().IsEmpty()) return false;
  for(int i = 0; i < 5; i++)
   if(StringGrid1->Cells[i][1].Trim().IsEmpty()) return false;
  return true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int iRow = 2;
  for(int i = 0; i <= r; i++)
   if((Stud[i].Balls[i] >= 2))
 
    {
      StringGrid3->Cells[0][iRow-1] = Stud[i].FIO;
      StringGrid3->Cells[1][iRow-1] = Stud[i].Group;
      StringGrid3->Cells[2][iRow-1] = Stud[i].sBall;
 
  StringGrid3->Cells[3][iRow-1] = Stud[i].Balls[0];
  StringGrid3->Cells[4][iRow-1] = Stud[i].Balls[1];
  StringGrid3->Cells[5][iRow-1] = Stud[i].Balls[2];
  StringGrid3->Cells[6][iRow-1] = Stud[i].Balls[3];
  StringGrid3->Cells[7][iRow-1] = Stud[i].Balls[4];
      iRow++;
      StringGrid3->RowCount = iRow;
    }
    else((Stud[i].Balls[i] <= 2));
        {
     ShowMessage("Нет двоечников.");
     return;
         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
 {  // Сохранить
std::auto_ptr<TStringList> SL(new TStringList);
 
for(int i=0;i<StringGrid2->RowCount;i++)
 {
  StringGrid2->Rows[i]->Delimiter=L';'; // Разделитель
  SL->Add(StringGrid2->Rows[i]->DelimitedText);
 }
SL->SaveToFile("общий список.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
{  // Сохранить
std::auto_ptr<TStringList> SL(new TStringList);
 
for(int i=0;i<StringGrid3->RowCount;i++)
 {
  StringGrid3->Rows[i]->Delimiter=L';'; // Разделитель
  SL->Add(StringGrid3->Rows[i]->DelimitedText);
 }
SL->SaveToFile("список двоечников.txt");
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
{ // Загрузить
std::auto_ptr<TStringList> SL(new TStringList);
 
SL->LoadFromFile("общий список.txt");
 
for(int i=0;i<SL->Count;i++)
 {
  StringGrid2->Rows[i]->Delimiter=L';';
  StringGrid2->Rows[i]->DelimitedText= SL->Strings[i];
 }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
{// Очистить
for(int i=0;i<StringGrid2->RowCount;i++)
 {
  StringGrid2->Rows[i]->Clear();
 }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
{// Очистить
for(int i=0;i<StringGrid3->RowCount;i++)
 {
  StringGrid3->Rows[i]->Clear();
 }
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Close();
}
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.04.2017, 17:57
Ответы с готовыми решениями:

Матрица : вывести положительные числа. Если таковых нет - вывести надпись об отсутствии таковых чисел
Как вывести надпись об отсутствии положительных чисел? #include &lt;iostream&gt; #include &lt;ctime&gt; using namespace std; void main()...

Как заменить элементы массива меньших 30 числом 30, а если таковых нет вывести сообщение
Как заменить элементы массива меньших 30 числом 30, а если таковых нет вывести сообщение Sub Main() Dim n, i As...

Даны числа a, b, c. Если все они равны нулю, вывести об этом сообщение, если среди чисел нет нулей, найти и вывести их произведение, в противном случа
Всем привет. Будьте добры, подсобите в написании программки: &quot;Даны числа a, b, c. Если все они равны нулю, вывести об этом сообщение,...

2
 Аватар для Dinkin
783 / 556 / 136
Регистрация: 31.05.2013
Сообщений: 3,154
Записей в блоге: 3
20.04.2017, 18:06
Udji, То есть Вам лень разбираться в чужом коде, и вы хотите что бы кто то другой в нем разобрался?

PS. Уровень кода явно указывает на то что если бы это Вы писали, то такую мелочь бы как вывод отстающих студентов, легко бы реализовали.
0
21.04.2017, 17:14

Не по теме:

Интересно, это Вам не дали полный код, или Вы сами вырезали, то что не нужно?)

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.04.2017, 17:14
Помогаю со студенческими работами здесь

Вывести на экран слова, в которых все символы повторяющиеся, или сообщение «Нет», если требуемых слов нет
Дана последовательность символов, состоящая из слов. Вывести на экран слова, в которых все символы повторяющиеся, или сообщение «Нет», если...

Вывести номера элементов заданного массива, больших 1, а если таковых нету, то вывести номер наибольшего
Написал программу, которая выводит номера элементов, больших 1. Если таковых нету, то программа выводит номер наибольшего элемента. Но я...

Если хотя бы один из Edit-ов или ячейка StringGrid не заполнены, то вывести сообщение об ошибке
ПРоблема заключается в том что есть форма, на форме расположена таблица StringGrid и 2 Edit в которые вводиться переменные необходимые для...

Вывести на экран номер последнего честного числа в массиве, если четных чисел нет – вывести сообщение
Помогите написать код... очень надо для зачета!))) желательно на С++ дев... чтобы с описаниями)) Помогите бедному студенту... Задача. ...

Выяснить, имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом
Выяснить имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом. … for i:=1 to...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru