Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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







Дата добавления: 2014-11-10; просмотров: 362. Нарушение авторских прав; Мы поможем в написании вашей работы!

Studopedia.info - Студопедия - 2014-2022 год . (0.016 сек.) русская версия | украинская версия