SHOW:
|
|
- or go back to the newest paste.
| 1 | var | |
| 2 | - | Ret, novyRet: string; |
| 2 | + | obdobie: string; |
| 3 | - | i, posun: integer; |
| 3 | + | cislo : integer; |
| 4 | begin | |
| 5 | - | Ret:= Edit1.Text; |
| 5 | + | cislo:= strtoint (edit1.Text); |
| 6 | - | novyRet:= ''; |
| 6 | + | case cislo of |
| 7 | - | posun := ord('a') - ord('A');
|
| 7 | + | 3,4,5 : obdobie := 'JAR'; |
| 8 | - | for i:=1 to length(Ret) do |
| 8 | + | 6,7,8 : obdobie := 'LETO'; |
| 9 | - | if (Ret[i] >= 'a') and (Ret[i] <= 'z') then |
| 9 | + | 9,10,11 : obdobie := 'JESEN'; |
| 10 | - | novyRet:= novyRet + chr (ord(Ret[i]) - posun) |
| 10 | + | 12,1,2 : obdobie := 'ZIMA'; |
| 11 | - | else novyRet:= novyRet + Ret[i]; |
| 11 | + | else |
| 12 | - | Memo1.Lines.Add (novyRet); |
| 12 | + | memo1.Lines.add ('zly mesiac');
|
| 13 | - | end; |
| 13 | + | end; |
| 14 | memo1.Lines.add (obdobie); | |
| 15 | end; | |
| 16 | end. |
