Паскаль Помогите.

[Lunik]

Подскажите пожалуйста, почему цифры не выводяться в текстовый документ gist.txt
туда должны выводиться цифры без нуля и 2
Фал с цирами прикреплен ниже.
Вот сам код

Код:

var
p,i,g:integer;
s: set of byte;     
f,l:text; ch:char;
begin
                                                        
 assign(f,'c:\trash.txt'); 
 reset(f);                 
 assign(l,'c:\gist.txt');
 rewrite(l);
 writeln('Ishodnii text:');        
 While not eof(f) do         
   begin
   read(f,ch);
   write(ch);  
   end;
 writeln;  
 reset(f);

 writeln('Text bez 0 i 2:');
 While not eof(f) do
   begin
   read(f,ch); 
   g:=ord(ch)-48;     
   if (g<>0)and(g<>2) then     
      if g=-16 then write(' ')      
               else write(g);
   end;
 reset(f);
                                           
 i:=1;        
 s:=[];
 write(l, i, ' ');       
  While not eof(f) do
   begin
   read(f,ch);
   g:=ord(ch)-48;
     if g=-16 then        
                begin
                  writeln(l);
                  p:=0;            
                  s:=[];           
                  i:=i+1;          
                  write(l, i, ' ');
                end

              else
                if not(g in s) then  
                                 begin
                                   p:=p+1;   
                                   include(s,g); 
                                 end;
   end;
 writeln(l);
 close(f);      
 close(l);   
 writeln;
 writeln('Process complete!');

 readln;
 end.

[Sla]

расскажи что ты здесь делаешь

Код:

reset(f);
                                           
 i:=1;        
 s:=[];
 write(l, i, ' ');       
  While not eof(f) do
   begin
   read(f,ch);
   g:=ord(ch)-48;
     if g=-16 then        
                begin
                  writeln(l);
                  p:=0;            
                  s:=[];           
                  i:=i+1;          
                  write(l, i, ' ');
                end

              else
                if not(g in s) then  
                                 begin
                                   p:=p+1;   
                                   include(s,g); 
                                 end;
   end;

Первая часть работает как задумано?

[Lunik]

Код не мой, девушка попросила посмотреть написала хрен знает что.
Поэтому к вам и обрашаюсь в паскале не селен сильно.

[Sla]

Так пусть девушка и расскажет...
Телепаты в отпуске...

[Lunik]

Вот так пойдет?

Код:

 i:=1;           {s4et4ik koli4estva cifr}
 s:=[];          {obnuliaem mnojestvo}
 p:=0;
 assign(l,'c:\gist.txt'); {sozdaetsya fail v ukazannom meste s ukazannim nazvaniem i raswireniem}
 rewrite(l);             {otkrivaem fail dlia zapisi}
 write(l, i, ' ');       {zapisivaem 1 dlia pervogo 4isla}
  While not eof(f) do
   begin
   read(f,ch);
   g:=ord(ch)-48;
     if g=-16 then         {esli dohodim do probela, to ponimaem 4to dalshe drugoe 4islo}
                begin
                  writeln(l, p);   {zapisivaem s4et4ik razli4nih cifr predidush. 4isla i perehodit na druguju stroku}
                  p:=0;            {obnuliaem s4et4ik}
                  s:=[];           {obnuliaem mnojestvo}
                  i:=i+1;          {s4itaet, kakoe 4islo idet po poriadku}
                  write(l, i, ' ');{zapisivaet sledujushij poriadkovii nomer}
                end

              else         {esli ne 'probel', togda s4itaem kol-vo razli4nih cifr v 4isle}
                if not(g in s) then  {esli 4islo(ot 0 do 9) ne vo mnojestve, togda}
                                 begin
                                   p:=p+1;   {uveli4ivaem s4et4ik raznih cifr na +1}
                                   include(s,g); {vkl'u4aem dannuju cifru vo mnojestvo, dabi ona ne povtorialas'}
                                 end;
   end;
 writeln(l, p);  {zapisivaem kol-vo cifr poslednego 4isla}

 close(f);       {zakrivaem otkritii logi4eskii fail}
 close(l);       {zakrivaem otkritii logi4eskii fail}
 writeln;
 writeln('Process complete!');

[x77]

Lunik, а как изначально формулировалась задача? потому что тут всё - ахинения. например, в первой части можно просто написать

Код:

  if (ch <> '2') and (ch <> '0') then
    WriteLn (<...>);

,

там никакого смысла нет высчитывать байтовый код. тоже касается и второй части, всё это можно упростить до десятка строк, но для этого надо понимать, а что, собственно, изначально требовалось.