Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
practica 9 ejercicio 3
lala
sum_example1
Tri 1.0
1 2 9
practica 7 ejercicio 11
pares entre a y b
zadacha7
Удвоенное число с одинаковыми цифрами
Calculatrice (case of)