Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
appleGM
0 / 0 / 0
Регистрация: 02.11.2016
Сообщений: 14
#1

В двухмерном массиве хранится информация о количестве студентов - Delphi

24.02.2017, 20:45. Просмотров 117. Ответов 2
Метки нет (Все метки)

В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первой строке — информация о группах первого курса, во второй — второго и т.д.). На каждом курсе имеется 8 групп. Составить программу для расчета общего числа студентов на любом курсе.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2017, 20:45
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В двухмерном массиве хранится информация о количестве студентов (Delphi):

В двумерном массиве хранится информация о количестве студентов в той или иной группе - Delphi
В двумерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первом...

В текстовом файле хранится информация о трёх театрах города и их репертуаре - Delphi
В текстовом файле хранится информация о трёх театрах города и их репертуаре. В каждом театре репертуар состоит из пяти разных спектаклей. ...

В двухмерном массиве поменять местами элементы - Delphi
В двухмерном массиве поменять местами элементы, лежащие выше и ниже главной диагонали

В двухмерном массиве вывести номера элементов равных максимальному - Delphi
В двухмерном массиве вывести номера элементов равных максимальному. (Delphi)

В двухмерном массиве целых чисел поменять места¬ми строки, симметричные относительно середины массива (горизонтальной линии) - Delphi
В двухмерном массиве целых чисел поменять места¬ми строки, симметричные относительно середины массива (горизонтальной линии).

В массиве храниться информация о стоимости 1 киллограмма 20 видов конфет. Определить сколько стоят самые дешевые конфеты - Delphi
В массиве храниться информация о стоимости 1 килограмма 20(можно и 4) видов конфет. Определить сколько стоят самые дешевые конфеты. Help...

2
D1973
Модератор
2305 / 1681 / 653
Регистрация: 21.01.2014
Сообщений: 6,562
Записей в блоге: 1
Завершенные тесты: 1
25.02.2017, 07:09 #2
appleGM, в чем проблема-то? Просуммировать элементы какой-то строки массива? Неужели лень до того дошла, чтобы действие 2 + 2 выполнить, надо дядю чужого просить?!?
0
unifikator
484 / 342 / 176
Регистрация: 29.03.2015
Сообщений: 667
25.02.2017, 08:10 #3
Код:
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
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  arr:array[1..5,1..8]of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to 5 do
stringgrid1.Cells[0,i]:='Курс '+inttostr(i);
for i:=1 to 8 do
stringgrid1.Cells[i,0]:='Группа '+inttostr(i);
randomize;
for i:=1 to 5 do
for j:=1 to 8 do
stringgrid1.Cells[j,i]:=inttostr(random(20)+20);
ComboBox1Change(Sender);
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i,j,s:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
begin
try
arr[i,j]:=strtoint(stringgrid1.Cells[j,i]);
except
showmessage('Количество студентов на курсе '+inttostr(i)+' в группе '+inttostr(j)+' должно быть целым числом!');
exit;
end;
end;
s:=0;
for i:=1 to 8 do
s:=s+arr[combobox1.ItemIndex+1,i];
label4.Caption:=inttostr(s);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
 
end.
Прилагаю проект на Delphi.
0
Вложения
Тип файла: zip Count.zip (242.4 Кб, 1 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.02.2017, 08:10
Привет! Вот еще темы с ответами:

В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый - Turbo Pascal
В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первой...

В массиве хранится информация о количестве людей - Turbo Pascal
В массиве хранится информация о количестве людей, живущих на каждом из 15 этажей дома (на первом этаже - в первом элементе массива,на...

В двумерном массиве хранится информация о количестве учеников - Turbo Pascal
В двумерном массиве хранится информация о количестве учеников в каждом из четырех классов каждой параллели школы с первой по одиннадцатую...

В двухмерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года - Turbo Pascal
В двухмерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года (в первом столбце - за январь, во втором - за...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru