•Ejercicios•
- Ejercicio num 1
Analisis:
Entrada
-N, Numeros
Proceso:
-Leer N
-Leer Numero
-Invertir Numeros
Salida
- Listado de numero
invertidos
Program arreglos;
Uses crt;
Const
Max 200
Type
Listado=array [1...Max] of integer;
Var;
Listin, aux, N, Numero, X, J
Begin
Repeat
Write('Introduzca la cantidad de numeros a leer: ' ) ; Read (N) ;
For i:= 1 TO N DO
Begin
Write('Introduzca un numero:') ;
Read (Numero) ;
Listin [i]:=Numero;
End;
For J= N cownto 1 DO
Begin
Aux [J]:= Listin [X]
X:= x + 1
End;
Until repeat
End.
-Ejercicio num 2
Analisis
Entradas
-Datos tabla
-Distritos
-Candidatos
-Votos
Proceso
-Leer datos de Candidato
-Leer datos de Distrito
-Leer votos
-Imprimir tabla
-Calcular # de votos por candidato
-Calcular % de votos emitidos
-Visualizar candidato
-Calcular empate tecnico
Salida
-Tabla de votos
-Voto x Candidato
-Declarar ganador
Program elecciones 6D;
Uses crt;
Const
Tope=5; Col=5 ; Fil=5;
Type
Encabezado = array [1... tope] of string [50];
Tabla = array [1...col, 1... fil] of integer
Var
Titulos :Encabezado;
Acta_General :Tabla;
Voto x candidato, total, i, J
Begin
For i = 1 To tope do
Begin
Write (Introduzca el encabezado de la colmna: ' i);
Read (Palabra);
Titulos [i] :=Palabra;
End;
For i := 2 to col do
For J:= 1 to fil do
Begin
Write(Introduzca los datos del candidato : ' i ' en el distrito : ' ) ;
Read(Voto);
Acta_General [i, j] :=voto;
end;
For i:= 1 to fil do
Begin
WriteLn(Titulos [i]);
Write(i);
For J:= 2 to col do
Write('Acta General [ J,i]);
end;
For i = 2 to col do
Begin
For J:= 1 to fil do
Total_Votos:= Total votos + acta [ i,j ];
VotosxCandidato[i]:=Total_Votos;
Total_Votos:=0;
end;
For i:= 2 to tope do
Universo:= universo+votosxcandidatos [i];
For i:= 2 to tope do
Begin
Porcentaje 1= (Votosxcandidatox0,1)/Universo
IF Porcentaje > = 0,5
Then
Write('Ganador');
Write ('Su nombre es : ' , Encabezado [i]),
Arreglo_Porcentaje[i]:=Porcentaje;
End;
Mayor:= -5
For i:= 2 tope do
Begin
IF Arreglo_Porcentaje [i] > Mayor
then
Mayor:= Arreglo Porcentaje [i];
Else
Segundo_Mayor:= Arreglo Porcentaje [i].
End;
End.
-Ejercicio num 4
Analisis
Entrada
-Cadena de Caracteres
Proceso
-Leer cadena
-Transformar
-Visualizar
Salida
-Cadena codificada
Program cadenas;
Uses crt;
const
Type
Cadena=String;
Var
Oracion=Cadena; :Cadena;
Cons_Caracteres :Integer;
Begin
Write (Introduzca la cadena:'); Read (Oracion);
Cont_caracteres:= Length(Oracion;
For i= To Cont Caracteres DO
Aux [i] := 'x'
Write (Aux)
End.
MANERA 2
Begin
Write('Introuzca oracion:')
Write('Colocar enter para finalizar)
Repeat
Read (Letra);
Oracion:= Concat (Oracion, letra);
aux:=Concat (Aux, 'x');
Write('x')
Until letra = #65
End.