Пример 5. Приведем еще одно полноэкранное приложение решения следующей задачи

Приведем еще одно полноэкранное приложение решения следующей задачи.

В каждой больничной палате четыре койки. Введите количество палат, количество больных мужчин и количество больных женщин. Определите, можно ли разместить всех больных по палатам (в одну палату кладут больных одного пола).

Изобразите на форме схематично палаты с занятыми и свободными местами.

Форма показана на рис. 1.11

 

Рис. 1.11 Форма примера 5

 

Текст Unit-а

 

{В каждой больничной палате четыре койки.

Введите количество палат, количество больных мужчин и количество больных женщин. Определите, можно ли разместить всех больных по палатам (в одну палату кладут больных одного пола). Изобразите на форме схематично палаты с занятыми и свободными местами.

}

unit Unit1;

 

Interface

 

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

 

Type

TForm1 = class(TForm)

Button1: TButton;

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormActivate(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

 

Var

Form1: TForm1;

 

Implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

Var

i, n, m, x, y, man, women, pm, pw, k: integer;

Begin

Form1.Image1.Canvas.Brush.Color: =clWhite;

n: =strtointdef(Form1.Edit1.Text, 0);

m: =round(sqrt(n));

image1.Height: =(m+1)*42;

image1.Width: =(m+1)*50;

Image1.Canvas.Rectangle(0, 0, image1.Width, image1.Height);