SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var tabletky,den,zvysok,pocet:integer; |
| 1 | + | |
| 2 | randomize; | |
| 3 | - | tabletky:= strtoint(inputbox('zadajte','pocet tabletiek v skatulke',''));
|
| 3 | + | image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255)); |
| 4 | - | den:= strtoint(inputbox('zadajte','pocet predpisanych tabletiek na den',''));
|
| 4 | + | image1.Canvas.Rectangle(100,100,300,199); |
| 5 | - | pocet:= tabletky div den; |
| 5 | + | randomize; |
| 6 | - | zvysok:= tabletky mod den; |
| 6 | + | image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255)); |
| 7 | - | memo1.Lines.add('tabletky vystacia na ' + inttostr(pocet) + ' den/dni');
|
| 7 | + | image1.Canvas.Rectangle(100,100,300,166); |
| 8 | - | memo1.Lines.add('v skutulke zostane ' + inttostr(zvysok) + ' tabletiek');
|
| 8 | + | randomize; |
| 9 | - | if pocet>6 then memo1.Lines.add('liecba je uspesna')
|
| 9 | + | image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255)); |
| 10 | - | else |
| 10 | + | image1.Canvas.Rectangle(100,100,300,133); |
| 11 | - | memo1.Lines.Add('liecba nie je uspesna');
|
| 11 | + | |
| 12 | ||
| 13 | end. |
