Delphi визуалды программалау ортасы

Ішкі бағдарламаның листингі

жүктеу 1,5 Mb.

бет	76/94
Дата	03.02.2022
өлшемі	1,5 Mb.
	#35447

1 ... 72 73 74 75 76 77 78 79 ... 94

Delphi визуалды программалау жүйесі

11. Пайызды есептеу

Ішкі бағдарламаның листингі:

procedure Tform1.ScrollBar1Change (Sender: TObject);

begin

if num then Shape1.Left := ScrollBar1.Position else Shape2.Left := ScrollBar1.Position

end;

procedure Tform1.ScrollBar2Change (Sender: TObject); begin

if num then Shape1.Top := ScrollBar2.Position else Shape2.Top := ScrollBar2.Position

end;

procedure Tform1.Shape1MouseMove

(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Shape1.Brush.Color := clAgua; Shape1.Brush.Color := clFuchsia; Num := True;

ScrollBar1.Position:= Shape1.Left; ScrollBar2.Position:= Shape1.Top; end;

procedure Tform1. Shape2MouseMove

(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Shape2.Brush.Color := clFuchsia; Shape2.Brush.Color := clAgua; Num := False;

ScrollBar1.Position:= Shape2.Left; ScrollBar2.Position: = Shape2.Top; end;

procedure Tform1. FormCreate (Sender: TObject); begin

num := True; end;

№ 11. Пайызды есептеу

Жұмыстың мақсаты - мына әрекеттерді орындайтын бағдарлама құру:

1. Бағдарлама іске қосылғанда пішінге үш мәтін өрісін шығару.

2. Бірінші өріске сан енгізіледі. Екінші өріске пайыз енгізіледі. Сонда «Есептеу» батырмасын басқанда үшінші өрісте санның есептелген пайызы шығуы тиіс.

жүктеу 1,5 Mb.

Достарыңызбен бөлісу:

1 ... 72 73 74 75 76 77 78 79 ... 94