Új hozzászólás Aktív témák

• #509 Protezis őstag WN31RD #507

  Új Válasz 2004-11-09 12:41:37 #509

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Protezis

  őstag

  válasz WN31RD #507 üzenetére

  
  Function kicsi2nagy (szoveg: string): string;
  var
  i: integer;
  tarolo: string;
  begin
  for i:=1 to length(szoveg) do
  if ((szoveg>='a') and (szoveg<='z')) then
  
  tarolo:=chr(ord(szoveg)-(ord('a')-ord('A')))
  else
  tarolo:=szoveg;
  kicsi2nagy:=tarolo;
  end;
  
  Így csináltam meg. Viszont erre a bemenetre nem jó:
  hurka!]a kocsi derival''+ favago: 3 5=sok
  kimenet:
  derival a favago hurka kocsi sok
  
  [Szerkesztve]

Új hozzászólás Aktív témák