Lenguaje de programacion 1

UNIVERSIDAD NACIONAL EXPERIMENTAL
SIMÒN RODRIGUEZ
NÙCLEO SAN CARLOS

LENGUAJE DE PROGRAMACIÒN I

PARTICIPANTES:
ALVARADO YORDANI CI: 19542762
GONZALEZ KARINA CI: 20485687

PROFESOR: JOAO CHAVEZ

SAN CARLOS, NOVIEMBRE 2001
EJERCICIOS

1.) Calcule el impuesto que debe pagar un individuo cuyosueldo no sea mayor que 10.000 bolívares, ni menor que 1000 bolívares. Considere que la tarifa es 5.85% del salario.

* PROGRAM, EMPLEADO
USES
CRT
VAR

Cont: Integer; cont2: integer; cont3: Integer
I: integer; N: Integer; sueldo: Real

Vec1: ARRAY [10]; char
Vec2; ARRAY [10] Integer
Vect; ARRAY [10]; Integer
Vecs; ARRAY [10]; Read
Vecb; ARRAY [10]; Read
Begin
Writeln ('Ingrese cuantos vendedores tiene la empresa Readln (N);
For (I=1) to (I=N) Do

Begin
Writeln (' Ingrese el nombre del trabajador');
Read (vec1 [I]);
WRITELN ('Ingrese el código del trabajador');
Readln (vec2 [I];
Writeln ('Ingrese el tiempo de servicio ');
Readln (vect [I]);
Writeln ('Ingrese el sueldo');
Readln (vecs[I]);
End

For vect (I=1) to vect (I=n) do
For vecB (I=1) to vecB(I=n) do
Begin
If (vect [I] < 20) Ther
Begin
Vec b [I] = vecs [I]*0, 20; contr = contr+. End
Vecs [I] = vecs [I] + vecb [I]
If (vect [I]>= 20) AND (vect [I] <= 30) +
Begin
Vecs H= vecs [I]* 0, 5
Vec [I] = vecs [I] +H
Contr 2= contr 2+ 1
If (vect [I]> 30) ther
Begin
Vecs [I] = vecs [I]*2
Cont 3= cont 3+1
End

Writeln (‘ nùmero total de vendedor con aumento');
Writeln (cont2);
Writeln (' vendedores retirados y sueldos ')
For (I=1) to (I=N) do
Begin
If (vect [I] >30) ther
Writeln (vec 1 [I]);
Writeln (' còdigo; vec2 [I]);
Writeln ('sueldo; vecs [I]);
End

If (vect [I]>=20) AND (vect [I]<=30)ther
Begin
Writeln ('vendedores no retirados ')
Writeln ('còdigo; vec2 [I]')
Writeln (' Bono; vec B [I]')
End
Writeln ('número devendedores retirados ');
Writeln ('cont3);
Writeln (' nùmero de vendedores con bonos');
Writeln ('cont');
End

2.) Se está realizando un proceso de elección entre tres candidatos A, BY C. al votante se le dará una tarjeta donde debe colocar (1) si su candidato es A (2) si su candidato es B y (3) si su candidato es C, se considera voto nulo todas las tarjetas que no contengan 1,2y3calcular.

* Cuantos votos obtuvo A
* Cuantos votos obtuvo B
* Cuantos votos obtuvo C
* Cuantos votos nulos

PROGRAM VOTACIÒN
USES
CRT
VAR
VOTO: CHAR
CUENTA A= INTERGER
CUENTA B= INTERGER
CUNTA C= INTERGER
CUENTA NULA= INTERGER
RES= CHAR
BEGIN

CUENTA A=0
CUENTA B=0
CUENTA C =0
CUENTA NULO=0
TOTAL DE ELECTORES =0

REPITAWRITE (Introduzca su voto)
READE (VOTO)
TOTAL DE ELECTORES: = TOTALELECTORES +1;
CASE VOTO OF
'1: CUENTA A= CUENTA A+1;
'2: CUENTA B= CUENTA B+1;
'3: CUENTA C= CUENTA C+1;
ELSE
CUENTA NULO= CUENTA NULO +1;
WRITE (¿HAY MÀS ELECTORES SI O NO?)
READE (RES)
UNTIL RES =(N)
WRITELN (CANDIDATO A; VOTOS;)
WRITELN (CANDIDATO B, VOTOS;)
WRITELN (CANDIDATO C;VOTOS;)
WRITELN (VOTOS NULOS; CUANTOS NULOS; VOTOS)
WRITELN (' TOTAL DE ELECTORES: ; TOTALELECTORES)
IF CUENTA A > CUENTA B
THEN
IF
CUENTA A> CUENTA C
THEN
WRITE (; EL GANADOR ES A;)
ELSE
WRITE (; EL GANADOR ES C;)
ELSE
IF CUENTA B >CUENTA C
THEN
WRITE (; EL GANADOR ES B;)
ELSE
WRITE (; EL GANADOR ES C;)
END

3.) Una tienda tiene tres vendedores, cuyo sueldo fijoes de bs.2500 por cada uno, más cantidad adicional mediante comisiones por ventas, tomando en cuenta los siguientes porcentajes:
* Para cada venta que tenga un costo inferior a 100 bolívares, la comisión es de 2%.
* Para un producto cuyo costo este entre 100 y1000 bolívares, la comisión es de 3%.
* Para un producto que esté por encima de los 1000 bolívares, la comisión es de 5%....