Пример 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);
|
