# If n>121 then

Доверь свою работу кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Begin

Form1.Edit1.Text:='121';

n:=121;

end;

man:=strtointdef(Form1.Edit2.Text,0);

women:=strtointdef(Form1.Edit3.Text,0);

pm:=man div 4;

If man mod 4>0 then

pm:=pm+1;

pw:=women div 4;

If women mod 4>0 then

pw:=pw+1;

if (pw+pm<=n) and (pw+pm<>0) then

Begin

x:=1;

y:=1;

for i:=1 to n do

Begin

Form1.Image1.Canvas.Rectangle(x*50-40,y*40-30,x*50,y*40);

inc(x);

If x>m then

Begin

inc(y);

x:=1;

end;

end;

x:=1;

y:=1;

k:=0;

for i:=1 to n do

Begin

if k=0 then

Begin

If man>0 then

Form1.Image1.Canvas.Brush.Color:=clBlue

Else

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

Form1.Image1.Canvas.rectangle(x*50-35,y*40-25,x*50-30,y*40-20);

dec(man);

If man>0 then

Form1.Image1.Canvas.Brush.Color:=clBlue

Else

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

Form1.Image1.Canvas.rectangle(x*50-15,y*40-25,x*50-10,y*40-20);

dec(man);

If man>0 then

Form1.Image1.Canvas.Brush.Color:=clBlue

Else

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

Form1.Image1.Canvas.rectangle(x*50-35,y*40-15,x*50-30,y*40-10);

dec(man);

If man>0 then

Form1.Image1.Canvas.Brush.Color:=clBlue

Else

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

Form1.Image1.Canvas.rectangle(x*50-15,y*40-15,x*50-10,y*40-10);

dec(man);

if man<=0 then k:=1;

End

Else

Begin

If women>0 then

Form1.Image1.Canvas.Brush.Color:=clRed

Else

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

Form1.Image1.Canvas.rectangle(x*50-35,y*40-25,x*50-30,y*40-20);

dec(women);

If women>0 then

Form1.Image1.Canvas.Brush.Color:=clRed

Else

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

Form1.Image1.Canvas.rectangle(x*50-15,y*40-25,x*50-10,y*40-20);

dec(women);

If women>0 then

Form1.Image1.Canvas.Brush.Color:=clRed

Else

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

Form1.Image1.Canvas.rectangle(x*50-35,y*40-15,x*50-30,y*40-10);

dec(women);

If women>0 then

Form1.Image1.Canvas.Brush.Color:=clRed

Else

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

Form1.Image1.Canvas.rectangle(x*50-15,y*40-15,x*50-10,y*40-10);

dec(women);

end;

inc(x);

If x>m then

Begin

inc(y);

x:=1;

end;

end;

End

Else

Form1.Image1.Canvas.TextOut(10,10,'Невозможно разместить больных');

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

Close;

end;

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

Var

edit:tedit;

Begin

edit:=sender as tedit;

Case key of

'0'..'9',#8:;

#13: case edit.TabOrder of

1:Form1.Edit2.SetFocus;

2:Form1.Edit3.SetFocus;

3:Form1.button1.SetFocus;

end;

Else

key:=#0;

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

Begin

edit1.SetFocus;

end;

end.

Результат выполнения приложения показан на рис. 1.12.

Если количество палат превышает 121, то оно считается равным 121 палате. Рекомендуем самостоятельно изучить данное приложение. Приведенное решение содержит операторы цикла да еще с внутренними ветвлениями, поэтому таких решений можно требовать от учащихся при выполнении второй или даже пятой лабораторных работ.

Рис.1.12 Результат выполнения программы

 Дата добавления: 2014-11-10; просмотров: 366. Нарушение авторских прав; Мы поможем в написании вашей работы!
Studopedia.info - Студопедия - 2014-2022 год . (0.015 сек.) русская версия | украинская версия