Různé programy do Pascala – Pascal – Fórum – Programujte.com

Opět hledám chybu... :(
Program by měl z textového souboru načíst data a pak je rozdělit do dvou na muže a ženy.
Soubory M a Z to vytvoří, ale nenaplní je to požadovaným obsahem (muži a ženy)

var jm,pr:string [10];

    p,vz,vek:byte;

    plat:real;

    f,m,z:text;

    pru,prum,pocet,mplat,rp,ppz,ppm,plz,plm:real;



begin

assign(f,'c:\TP\projekty\test2\text.txt');

reset(f);



assign(m, 'c:\TP\projekty\test2\m.txt');

rewrite(m);

assign(z, 'c:\TP\projekty\test2\z.txt');

rewrite(z);



while not eof(f) do

begin

readln(f, jm,pr,p,vz,vek,plat);



if (p=0) then begin

		writeln(m, jm, pr, ' ',p,' ' ,vz, ' ' ,vek, ' ' ,plat:10:0);

		end



	else begin

		writeln(m, jm, pr, ' ',p,' ' ,vz, ' ' ,vek, ' ' ,plat:10:0);

		end;



end;

close(m);

close(z);

end.

opět mám někde chybu, chjo.... :( Program by měl počítat znaky B v souboru

var

    z,poc:real;

    f:text;

    

begin

assign(f,'c:\TP\projekty\test2\text.txt');

reset(f);



while not eof(f) do

begin

read(f, z);

if z = 'b' then poc:=poc+1;

end

V tom prvním programu je chyba tady:
if (p=0) then begin writeln(m, jm,...
Tam by místo m mělo být z, jinak ti všechno skončí v jednom souboru.

V tom druhém jsou chyby dvě. První, že proměnnou z máš deklarovanou jako real místo char. A druhá, že před začátkem počítání nevynuluješ proměnnou poc. A spíš bych pro ni zvolil typ longint než real, ale na tom už celkem nezáleží.
Potom si nejsem úplně jistý, jestli se Read nezastaví na konci řádku. Při čtení stringů to tak je, u charů nevím. Spíš bych pro tuhle úlohu použil typ File of char než Text.

Jinak to vypadá dobře.