Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
сестричка
0 / 0 / 0
Регистрация: 13.05.2011
Сообщений: 2
#1

составить программу подсчитывающую число посещений в поликлинике врачей специалистов

15.06.2011, 22:08. Просмотров 743. Ответов 0
Метки нет (Все метки)

помогите пожалуйста очень срочно нужно завтра сдать нужно!
нужно составить программу подсчитывающую число посещений в поликлинике врачей специалистов(отоларинголога, окулиста и хирурга). в конце дня выдать итоговое сообщение.предусмотреть возможность выдачи количества осмотренных больных в любой из дней недели каждым из специалистов.
программу я написала а вывод сделать не получается помогите
вот программа
это первая форма где происходит выбор дня недели

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, unit5;
 
{$R *.dfm}
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
form2.show;
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
form2.show;
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
form2.show;
end;
 
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
form2.show;
end;
 
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
form2.show;
end;
 
end.


это форма в которой пишется данные о больных и подсчитываеть

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
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
        type
student=record
family:string;
number:integer;
usp:array[0..29] of integer;
end;
 
var
  Form2: TForm2;
   mas:array[0..20]of student;
  q:integer;
implementation
 
uses Unit3, Unit4, unit5;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
label2.Caption:='';
if q<20 then begin
mas[q].family:=edit1.Text;
Button1.Caption:='Введите следующего студента';
inc(q);
label2.Caption:=inttostr(q);
end else begin
Button1.Caption:='Все...'; Button1.Enabled:=false; end;
 
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
form3.show;
end;
 
end.

unit3,unit4 такая же программа как и unit2
и на следующей форме хочу сделать вывод

помогите как


 Комментарий модератора 
Сообщение изменено модератором.
Для кода программ есть специальные теги в редакторе сообщений.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2011, 22:08
Ответы с готовыми решениями:

Составить программу, которая в заданное двухзначное число вписывает 0 в середину и получает трёхзначное число
Помогите решить пожалуйста Составить программу, которая в заданное двухзначное число вписывает...

Описать функцию подсчитывающую число одинаковых компонентов файлов F и G типа Ftime
Помогите, пожалуйста с задачей Type time = record Hour:0..23; ...

аписать программу подсчитывающую к-во символов в веденной строке.
Ввести строку символов. Написать программу подсчитывающую к-во символов в веденной строке. ...

Составить игровую программу Угадай число
Есть задание: Составить игровую программу «Угадай число». Программа “задумывает” число,...

Написать программу, подсчитывающую количества слов в текстовом файле
Написать программу, подсчитывающую количества слов в текстовом файле. Не могу понять как сделать....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2011, 22:08

Составьте программу, подсчитывающую количество простых цифр числа N
Составьте программу, подсчитывающую количество простых цифр числа N.

Составьте программу, подсчитывающую количество простых цифр числа N
Помогите, пожалуйста:) Составить программу, подсчитывающую количество простых цифр числа N.

Создайте программу, подсчитывающую количество нулей в записи натурального числа N
Нужно составить программу так, чтобы число например 01 программа тоже видела и говорила что есть...


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

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

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