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

• #1973 Retekegér MODERÁTOR N!tRo #1972

  Új Válasz 2007-08-26 14:23:49 #1973

  Ú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

  

  Retekegér

  MODERÁTOR

  válasz N!tRo #1972 üzenetére

  De valamit elrontottam:
  program karakterszamolo;
  
  uses crt;
  
  var i,count:integer;
  betu: char;
  f:text;
  utvonal,s:string;
  
  begin
  clrscr;
  Write('Kerem a text allomany nevet (utvonalat): ');
  Readln(utvonal);
  Assign(f,utvonal);
  {$I-}
  Reset(f);
  If IOResult<>0 then begin
  Write('A file nem elerheto!');
  Halt(1);
  end;
  {$I+}
  betu:='l';
  count:=0;
  Readln(f,s);
  repeat
  for i:=0 to (length(s)-1) do
  if s[i ]=betu then count:=count+1;
  Readln(f,s);
  until eof(f);
  
  Writeln('Az allomanyban talalhato l betuk szama: ',s);
  Readln;
  end.
  
  Mod: Benmartin köszi, C-vel majd később foglalkozok ;)
  
  
  [Szerkesztve]

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