home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / internet / Jeremy / tp / ulohy / 10.pr < prev    next >
Encoding:
Text File  |  1999-08-03  |  496 b   |  31 lines
  1. Reseni ulohy c. 10 (28.07.98)
  2. =============================
  3.  
  4. Program Kodovani;
  5.  
  6. var t1,t2: text;
  7.  
  8. procedure Zakoduj(var vst, vyst: text);
  9. var pom,p: string; I: integer;
  10. begin
  11.     reset(vst);
  12.     rewrite(vyst);
  13.     
  14.     while not eof(vst) do
  15.      begin
  16.         readln(vst,pom);
  17.         for I:=1 to Length(pom) do p[i]:=chr(ord(pom[i])+1);
  18.         p[0]:=pom[0];
  19.         writeln(vyst,p);
  20.      end;
  21.     
  22.     Close(vst);
  23.     Close(vyst);
  24. end;
  25.  
  26. BEGIN
  27.     assign(t1,'PRVNI.TXT');
  28.     assign(t2,'DRUHY.TXT');
  29.     Zakoduj(t1,t2);
  30. END.
  31.