Text -> pole : boolean – Pascal – Fórum – Programujte.com

Dobrý den, potřeboval bych poradit jak dostat hodnoty z textovýho souboru vypadajícího nějak takhle:

uddudud

duududd

uududdd

do 2D pole typu boolean, kdy pro u = true a f = false.
Zatím jsem vymyslel toto, nicméně správně to zapíše pouze první řádek pole, zbytek je s porovnání s text. souborem špatně.

var
i,j : integer;
s : char;
T : text;
const
  N = 7;
  M = 30;
var
spin : array [1..N,1..M] of boolean;
begin
  assign (T, 'C:');
  reset(T);
  i := 0;
  j := 0;
  while not eof(T) do
        begin
        j := j+1;
        read(T,s);
        write(s);
        if s = 'd' then spin[1,j] := false else spin[1,j] := true;
        end;

Protože nastavuješ jen první řádek. spin[ 1 ,j]

#2 gna
jak bych to měl tedy prosím správně napsat?

Je tu nekolik nejasnosti, o kterych bych rad hodil rec.

uddudud
duududd
uududdd
'u = true a f = false'
!!! v ukazce je 'u' a 'd'

'zapíše pouze první řádek pole'
- read cte znak po znaku
- readln precte 1 radek
- pokud tvuj kod cte znak po znaku do EOF,
-- pak kazdy \n (hex: 0D0A, konec radku) bude vyhodnocen jako false, false
-- radkovani se tudiz bude ignorovat
-- j := j+1; read(T,s); if s = 'd' then spin[1,j] := false else spin[1,j] := true;
---- vse zapisujes do radku 1: spin[1,...

Takze bych soubor nacital pres readln a pak tu promennou prochazel znak po znaku. A nebo bych pouzil, co mas a kontroloval navic znaky pro 0D 0A. Nevim, jak se to ted v paskalu zapisuje, ale bezne jako znak="\n" nebo znak==0x0D or znak==0x0A.

#4 peter
 Oprava, znak bude vyhodnocen jako true, cili <>'d'

#5 peter
jsem to měl rozepsaný podobně, zapoměl jsem svůj příspěvek odeslat kolem 11:30h.

#1 Filda
také bych řekl že vzhledem k tomu že to načítá binárně mu tam chybí ošetření znaků konce řádku,

osobně bych použil čtení po řádkách readln

s : string;

I:=1;

while not eof(T) do
begin
        readln(T,s);
        for j := 1 to length(s)
               if s[j] = 'd' 
                      then spin[i,j] := false
                      else spin[i,j] := true;
        write(s);  'wirteln(s);
        inc(i);

end;

#6 MilanL
 Njn, jsem zkratka rychlejsi :) Ale zas uz neznam presne ten kod. Kazdopadne, bylo by fajn, neindexujici promenne pojmenovat aspon 3 pismeny, jako treba misto 's' pouzit 'str', 'T' 'TXT' nebo zrovna 'soubor'.

'wirteln -> writeln
Jo, a pokud by slo o mapu, ctvercovou, treba, tak by bylo fajn doplnit prazdne polozky.

Nevím, jestli tenhle řádek:

assign (T, 'C:');

tak vypadal už původně, nebo ho jenom server špatně zobrazil kvůli zpětnému lomítku. V každém případě musí obsahovat celé jméno souboru, který chceme otevřít, ne jenom písmeno disku:

assign (T, 'C:\adresar\soubor.txt');

případně bez té absolutní cesty, aby program fungoval kdykoli, když má ten soubor ve stejném adresáři:

assign (T, 'soubor.txt');