Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 25
1

Из списка студентов группы напечатать фамилии студентов-отличников

26.02.2017, 20:50. Показов 3102. Ответов 13
Метки нет (Все метки)

Из списка студентов группы, где приведены сведения: фамилия, оценки по трем предметам, напечатать фамилии студентов-отличников.
Delphi
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
type
  TForm4 = class(TForm)
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
Type
  men=record
    fio:string;
    ist,fiz,fizra:2..5;
  end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
  stringgrid1.Cells[0,0]:=' ФИО';
  stringgrid1.Cells[1,0]:=' История';
  stringgrid1.Cells[2,0]:=' Физика';
  stringgrid1.Cells[3,0]:=' Физра';
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2017, 20:50
Ответы с готовыми решениями:

Из списка студентов группы вывести фамилии двух самых старших студентов.
Здравствуйте. Задача поставлена следующим образом: из списка студентов группы, где приведены...

Из списка студентов группы где приведены фамилии и даты рождения
Из списка студентов группы где приведены фамилии и даты рождения вывести студентов родившихся под...

Из списка студентов группы где приведён год рождения вывести студентов родившихся в заданный год
Из списка студентов группы где приведён год рождения, вывести студентов родившихся в заданный год

Напечатать фамилии двух самых старших студентов
Из списка студентов группы, где приведены сведения: фамилия, инициалы, год, месяц и день рождения,...

13
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
27.02.2017, 13:13 2

Не по теме:

М-да, Вашей фамилии там точно не будет


sasha650, откуда список берется? Где список "отличников" печатать надо?
0
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 25
27.02.2017, 15:01  [ТС] 3
Из стрингрида точнее в него записывается а выводится в мемо позже код кину но все равно помощь потребуется
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
27.02.2017, 15:22 4
Цитата Сообщение от sasha650 Посмотреть сообщение
позже код кину но все равно помощь потребуется
Кидай, поможем...
0
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 25
27.02.2017, 18:52  [ТС] 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Type
  arr=array[1..4,1..5] of integer;
  var
    a:arr;
    j,i:integer;
begin
 for i:=1 to 5 do
 for j:=1 to 4 do
 a[i,j]:=strtoint(StringGrid1.cells[i,j]);
 for i:=1 to 5 do
 for j:=1 to 4 do
 StringGrid1.cells[i,j]:=inttostr(a[i,j]);
end;
Решил сделать вывод в стрингрид но Чет не получается
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
27.02.2017, 19:30 6
Цитата Сообщение от sasha650 Посмотреть сообщение
Из стрингрида точнее в него записывается
Цитата Сообщение от sasha650 Посмотреть сообщение
Решил сделать вывод в стрингрид
А ввод тогда куда?
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
27.02.2017, 19:44 7
Лучший ответ Сообщение было отмечено sasha650 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k, N : integer;
    s : String;
begin
 s := 'Отличники: ';
 N := (StringGrid1.ColCount - 1) * 5;
 for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
  begin
   k := 0;
   for j := 1 to StringGrid1.ColCount - 1 do
    k := k + StrToInt(StringGrid1.Cells[j, i]);
   if k = N then s := s + StringGrid1.Cells[0, i] + ', ';
  end;
 Delete(s, Length(s) - 1, 2);
 Label1.Caption := s;
end;
Миниатюры
Из списка студентов группы напечатать фамилии студентов-отличников  
1
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 25
05.03.2017, 14:20  [ТС] 8
вот

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

Delphi
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
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;
 
type
  TForm3 = class(TForm)
    Button1: TButton;
    S1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button3: TButton;
    Label1: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
Type
  men=record
    fio:string;
    ist,fiz,fizra:2..5;
  end;
procedure TForm3.Button1Click(Sender: TObject);
begin
  s1.cells[0,s1.RowCount-1]:=edit1.text;
  s1.cells[1,s1.RowCount-1]:=edit2.text;
  s1.cells[2,s1.RowCount-1]:=edit3.text;
  s1.cells[3,s1.RowCount-1]:=edit4.text;
  edit1.clear;
  edit2.clear;
  edit3.clear;
  edit4.clear;
  s1.RowCount:=s1.RowCount+1;
end;
procedure TForm3.Button3Click(Sender: TObject);
 var i, j, k, N : integer;
    s : String;
begin
 s := 'Отличники: ';
 N := (S1.ColCount - 1) * 5;
 for i := S1.FixedRows to S1.RowCount - 1 do
  begin
   k := 0;
   for j := 1 to S1.ColCount - 1 do
    k := k + StrToInt(S1.Cells[j, i]);
   if k = N then s := s + S1.Cells[0, i] + ', ';
  end;
 Delete(s, Length(s) - 1, 2);
 Label1.Caption:= s;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  s1.Cells[0,0]:=' ФИО';
  s1.Cells[1,0]:=' История';
  s1.Cells[2,0]:=' Физика';
  s1.Cells[3,0]:=' Физра';
end;
 
end.
вот сама форма
Миниатюры
Из списка студентов группы напечатать фамилии студентов-отличников   Из списка студентов группы напечатать фамилии студентов-отличников  
0
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 25
05.03.2017, 16:31  [ТС] 9
вот ошибка там что получается сортировка в записи ?
Миниатюры
Из списка студентов группы напечатать фамилии студентов-отличников  
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
09.03.2017, 12:23 10
И что тебе в этой ошибке не понятно?
"Пустое значение не может быть преобразовано в целочисленное"
Вот твой цикл...
Цитата Сообщение от sasha650 Посмотреть сообщение
for i := S1.FixedRows to S1.RowCount - 1 do
т.е. идет он по всей таблице, исключая фиксированные строки. А последняя строка у тебя - пустая. Вот тебе и твоя ошибка...
Добавь в обработчик кнопки Button3 первой строкой
Delphi
1
s1.RowCount := s1.RowCount - 1;
и всего делов
1
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 25
14.03.2017, 21:10  [ТС] 11
спасибо но
вот что мне нужно было работа с записями но спасибо за помощь
Delphi
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
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;
 
type
  TForm3 = class(TForm)
    Button1: TButton;
    S1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button3: TButton;
    Label6: TLabel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
Type
  men=record
    fio:string;
    ist:1..5;
    fiz:1..5;
    fizra:1..5;
  end;
 
var
  a:array[1..100] of men;
  kol:integer;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
  kol:=kol+1;
  s1.cells[0,s1.RowCount-1]:=edit1.text;
  s1.cells[1,s1.RowCount-1]:=edit2.text;
  s1.cells[2,s1.RowCount-1]:=edit3.text;
  s1.cells[3,s1.RowCount-1]:=edit4.text;
  a[kol].fio:=edit1.text;
  a[kol].ist:=Strtoint(edit2.text);
  a[kol].fiz:=strtoint(edit3.text);
  a[kol].fizra:=strtoint(edit4.text);
  edit1.clear;
  edit2.clear;
  edit3.clear;
  edit4.clear;
  s1.RowCount:=s1.RowCount+1;
  memo1.Clear;
end;
 
procedure TForm3.Button3Click(Sender: TObject);
 var
    i,N : integer;
begin
 s1.RowCount:=s1.RowCount-1;
 for i := 1 to kol do
   begin
     N:=a[i].ist+a[i].fiz+a[i].fizra;
    if N=15 then
      memo1.Lines.Add(a[i].fio);
 
   end;
 
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  s1.Cells[0,0]:=' ФИО';
  s1.Cells[1,0]:=' История';
  s1.Cells[2,0]:=' Физика';
  s1.Cells[3,0]:=' Физра';
  kol:=0;
end;
 
end.
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
15.03.2017, 09:44 12
Цитата Сообщение от sasha650 Посмотреть сообщение
мне нужно было работа с записями
об этом, вообще-то, надо говорить сразу в стартовом топике, когда задание озвучивается...
1
0 / 0 / 0
Регистрация: 08.04.2018
Сообщений: 18
14.05.2018, 01:06 13
а ты можешь архивом прогу скинуть?
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
14.05.2018, 05:06 14
Gtt, а ты можешь по готовому-то коду компоненты на форму бросить и обработчики скопипастить? А ведь придется, т.к. тот, к кому ты обращаешься, уже год как на форуме не был... И вряд ли еще когда появится.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2018, 05:06

При выборе группы студентов из ComboBox показать список студентов в Stringgrid
Есть combobox, где содержатся группы студентов и stringgrid, где содержатся все их фамилии, даты...

Дописать в файл - список студентов группы новых студентов
Дописать в файл - список студентов группы новых студентов.

Напечатать фамилии студентов, родившихся под знаком Рыбы
Из списка студентов группы, где приведены сведения: фамилия, инициалы, год, месяц и день...

продемонстрировать механизм полиморфизма на примере составления списка студентов группы и преподавателей колледжа.
Средствами объектно-ориентированного программирования языка Delphi продемонстрировать механизм...


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru