Matematické Fórum

hans66 · 18. 06. 2013 18:04 — Editoval hans66 (18. 06. 2013 18:05)

AHoj, opet se na vas obracim s prosbou.program má zpracovavat diskovy textvovy soubor.ten obsahuje bezny anglicky text, program zjisti kolik je v textu bezprostredne po sobe jdoucich skupin cislic.
prosim o radu s podminkou,(skupina cislic je podle me ze skupina>=2(napr:21))
děkuji za jakoukoli radu
tady je muj kod:

Code:

var
  Application: TMyApplication;
  f:textfile;
  znak:char;
 pocet:integer;
begin
  writeln('posobe jdouci cislice');
  assignfile(f,'d:\pokus.txt');
  reset(f);
  pocet:=0;
  while not eof(f) do begin
  read(f,znak);
  if (znak>='0') and (znak<='9') then begin
       if podminka then pocet:=pocet+1;
     end;

  end;
close(f);
writeln('pocet:',pocet);
readln;

end.

moje predstavfa je takova, otestuju zda v souboru je cislo od 0-9, potom bych chtel zjisti jestli ma za sebou dalsi cisla a to bych bral jako skupinu, ale nevim jak to napsat:-(

martisek · 18. 06. 2013 23:23

↑ hans66:

const Cislice =['0'..'9'];
var
Application: TMyApplication;
f:textfile;
znak:char;
pocet:integer;

begin
writeln('posobe jdouci cislice');
assignfile(f,'d:\pokus.txt');
reset(f);
pocet:=0;
while not eof(f) do
begin
read(f,znak);
if znak in Cislice then
begin
read(f,znak);
if Znak in Cislice then
begin
Pocet:=Pocet+1;
While (Znak in Cislice) and not eof(f) do
read(f,znak);
end;
end;
end;
close(f);
writeln('pocet:',pocet);
readln;

end.

Matematické Fórum

#1 18. 06. 2013 18:04 — Editoval hans66 (18. 06. 2013 18:05)

pascal-skupina bezprostredne posobe jdoucich cislic

Code:

#2 18. 06. 2013 23:23

Re: pascal-skupina bezprostredne posobe jdoucich cislic

Zápatí