•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.