Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 3 ejercicio B6
//fpc 3.0.4 program HelloWorld; type conj = set of char; {-------------------------------------------------------------- INICIALIZACION - Inicializa las variables para comenzar el programa} procedure inicializacion(var A:boolean;var B:boolean; var letras_mayusculas:conj;var aparecieron:conj); begin A:=true; B:=true; letras_mayusculas:= ['A'..'Z']; aparecieron := [] ; end; {-------------------------------------------------------------- PARTE A - Verifica que la parte A cumpla con lo especificado} procedure part_A(var car:char; mayusculas:conj; var A:boolean;var aparecieron:conj); begin read(car); while car <> '@' do begin if not(car in mayusculas) then A:=false; aparecieron:= aparecieron + [car]; read(car); end; end; {-------------------------------------------------------------- PARTE B - Verifica que la parte B cumpla con lo especificado} procedure part_B(var car: char; aparecieron:conj;var B:boolean); begin read(car); while car <> '.' do begin if car in aparecieron then B:=false; read(car); end; end; {-------------------------------------------------------------- INFORME - Imprime los resultados de lo pedido} procedure informe(a,b:boolean); begin if a and b then begin writeln('la secuencia cumple el patrón '); end else if not a and not b then begin writeln('ninguna de las secuencias cumple el patrón'); end else if not a then begin writeln('la secuenia A no cumple el patrón'); end else writeln('la secuencia B no cumple el patrón'); end; {-------------------------------------------------------------- MAIN_PROCESS - Dirige los procesos} procedure main_process(); var letras_mayusculas,aparecieron : conj; car:char; A,B:boolean; begin inicializacion(A,B,letras_mayusculas,aparecieron); part_A(car,letras_mayusculas,A,aparecieron); part_B(car,aparecieron,B); Informe(A,B); end; {-------------------------------------------------------------- Programa principal} begin main_process(); end.
run
|
edit
|
history
|
help
0
practica 3 ejercicio B4
RENAN AZEREDO DA FONSECA 600618046
15
pdp31-final
Complemento da VS ICC II - 1º Semestre 2017
считалочка02
Naloga 8: 10.9.2008
ANDRESSA LIMA NEPOMUCENO 600624624
Tableau
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.