Trabajo pascal, Pascal

Trabajo pascal

program QRDecoder;

var
    Escritores: file of char;
    Salida: file of char;
    v: char;
    S:integer;
    A: integer;
    E: integer;
    F: integer;
    Asia, Europa, Africa, America: boolean;
    contError: integer;
    contCharF: integer;
    contChar: integer;
    ERROR:integer;
Begin
    assign(Escritores,'Escritores.dat');
    {$I-}
    reset(Escritores);
    ERROR:= IOResult;
    {$I+}
    if ERROR <> 0 then
     Begin
         Writeln('Error: El archivo texto.dat existe?');
         halt(2);
     end;
    assign(Salida,'Salida.dat');  
    rewrite(Salida);
    A:=0;
    E:=0;
    F:=0;
    S:=0;
    contError:=0;
    contChar:=0;
    while not eof(Escritores) do
    begin
        America:= false;
        Africa:=false;
        Europa:=false;
        Asia:=False;
        read(Escritores,v);
        case v of 
            'A': America:= true;
            'F': Africa:= true;
            'E': Europa:= true;
            'S': Asia:= true;
        end;      
        If America then
        begin
            read(Escritores, v);
            if (v = '2') then
            begin
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                contChar:= contChar + 5;
                while (v <> '|') do
                begin
                    write(Salida, v);
                    read(Escritores, v);
                    contChar:= contChar + 1;
                end;
                write(Salida, '/'); 
            end
            else
            begin        
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                contChar:= contChar + 5;
                while (v <> '|') do
                begin
                    contChar:= contChar + 1;
                end;
            end;    
            A:= A + 1;
        end;
        If Africa then
            begin
                read(Escritores, v);
                contCharF:=0;
                if (v = '2') then
                begin
                    read(Escritores, v);
                    read(Escritores, v);
                    read(Escritores, v);
                    read(Escritores, v);
                    contChar:= contChar + 5;
                    while (v <> '|') do
                    begin
                        contCharF:= contCharF + 1;
                        if (contCharF mod 3 = 0) then
                        begin
                            case v of
                                '4':
                                begin 
                                    v:='a';
                                    contError:= contError + 1;
                                end;
                                '3':
                                begin 
                                    v:='e';
                                    contError:= contError + 1;
                                end;
                                '1':
                                begin
                                    v:='i';
                                    ContError:= contError + 1;
                                end;
                                '0':
                                begin
                                    v:='o';
                                    contError:= contError + 1;
                                end;
                                '8': 
                                begin
                                    v:='u';
                                    contError:= contError + 1;
                                end;
                            end;         
                        end;
                        write(Salida, v);
                        read(Escritores, v);
                        contChar:= contChar + 1;
                    end;
                    write(Salida, '/');
                end
                else
                begin
                    read(Escritores, v);
                    read(Escritores, v);
                    read(Escritores, v);
                    read(Escritores, v);
                    contChar:= contChar + 5;
                    while (v <> '|') do
                    begin
                        contChar:= contChar + 1;
                    end;
                end;
        F:= F + 1;
        end;               
        If Europa then
        begin
            read(Escritores, v);
            if (v = '2') then
            begin
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                contChar:= contChar + 5;
                while (v <> '|') do
                begin
                    write(Salida, v);
                    read(Escritores, v);
                    contChar:= contChar + 1;
                end;
                write(Salida, '/'); 
            end
            else
            begin        
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                contChar:= contChar + 5;
                while (v <> '|') do
                begin
                    contChar:= contChar + 1;
                end;
            end;    
            E:= E + 1;
        end;
        If Asia then  
        begin
            read(Escritores, v);
            if (v = '2') then
            begin
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                contChar:= contChar + 5;
                while (v <> '|') do
                begin
                    write(Salida, v);
                    read(Escritores, v);
                    contChar:= contChar + 1;
                end;
                write(Salida, '/'); 
            end
            else
            begin        
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                read(Escritores, v);
                contChar:= contChar + 5;
                while (v <> '|') do
                begin
                    contChar:= contChar + 1;
                end;
            end;    
            S:= S + 1;
        end;
    end;
    close(Escritores);
    close(Salida);
    writeln('Hay ',A,' escritores de origen americano, ',E,' de origen europeo, ',F,' de origen africano y ',S,' de origen asiático.');
    writeln('El porcentaje de errores en la secuencia es el siguiente: ',contError*100/contChar,'%');
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development