SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var vstup, novy,novyznak:string; |
| 1 | + | var tabletky,den,zvysok,pocet:integer; |
| 2 | - | znak:char; |
| 2 | + | |
| 3 | - | i,hodnota, pozicia: integer; |
| 3 | + | tabletky:= strtoint(inputbox('zadajte','pocet tabletiek v skatulke',''));
|
| 4 | den:= strtoint(inputbox('zadajte','pocet predpisanych tabletiek na den',''));
| |
| 5 | - | vstup:= edit1.Text; |
| 5 | + | pocet:= tabletky div den; |
| 6 | - | for i:= 1 to length(vstup) do |
| 6 | + | zvysok:= tabletky mod den; |
| 7 | memo1.Lines.add('tabletky vystacia na ' + inttostr(pocet) + ' den/dni');
| |
| 8 | - | znak:=vstup[i]; |
| 8 | + | memo1.Lines.add('v skutulke zostane ' + inttostr(zvysok) + ' tabletiek');
|
| 9 | - | hodnota:= ord(znak); |
| 9 | + | if pocet>6 then memo1.Lines.add('liecba je uspesna')
|
| 10 | - | pozicia:= hodnota +5; |
| 10 | + | else |
| 11 | - | novyznak:= chr(pozicia); |
| 11 | + | memo1.Lines.Add('liecba nie je uspesna');
|
| 12 | - | novy:= novy + novyznak; |
| 12 | + | |
| 13 | ||
| 14 | - | label1.Caption:= (novy); |
| 14 | + | |
| 15 | ||
| 16 | end. |
