citanie z txt

daniel.daniel

mam taky problem neviem ako mam v programe pascal citat z txt suboru nejake hodnoty. txt subor obsahuje Z4M5Z4 a ja mam z neho vycitat a nasledne vykreslit 4 znaky 5 medzier a 4 znaky. pomohol by mi niekto ako mam nacitat aspon tu prvu hodnotu?

pheo

Na tejto adrese nádeš všetky potrebé informácie:

http://pascalsource.ic.cz/orion/viewtopic.php?t=34

Kód: Vybrať všetko

program Project2;

var i,j:integer;
  vstup:textfile;
  znak:char;
  medzera:boolean;

  function jecislo(vstup:char):boolean;
  var x:integer;
  begin
    val(znak,j,x);
    if x=0 then begin
      result:=true;
      end else result:=false;
  end;

begin
  assign(vstup,'vstup.txt');
  reset(vstup);
  medzera:=false;
  while not(eof(vstup)) do begin
    read(vstup,znak);
    if not(jecislo(znak)) then if znak='M' then medzera:=true else medzera:=false else
      for I:=1 to J do if medzera then write(' ') else write('x');
  end;
end.