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

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

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 сек.) русская версия | украинская версия