English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky
Kategória: Reťazce

Autor: Pheo
web: pascalsource.ic.cz

Program: Nahradenie_pismen.pas
Potrebné: Vstup.txt
Program ktorý v danom súbore nahradí všetky malé písmená veľkými.
Zobrazené: x


{ NAHRADENIE_PISMEN.PAS                          Copyright (c) Pheo }
{ Program ktorý v danom súbore nahradí všetky malé písmená vežkými. }
{                                                                   }
{ Datum:06.04.2005                             http://www.trsek.com }
 
program nahradenie_pismen;
var s1,s2:Text;
    c:char;
begin
  assign(s1,'vstup.txt'); reset(s1);
  assign(s2,'vystup.txt'); rewrite(s2);
  
  while not(Eof(s1)) do 
  begin
          read(s1,c);
          if (c>='a') and (c<='z') then
              c:=chr(ord(c)-ord('a')+ord('A'));           
          write(s2,c);
  end;
  close(s1);
  close(s2);
  
  writeln('Hotovo.');
  readln;
end.
 
 

[Uložiť] [Tlač] [Poslať e-mailom]