Ejercicios de a estructura

REPUBLICA BOLIVARIANA DE VENEZUELA

MINISTERIO DEL PODER POPULAR PARA LA DEFENSA

UNIVERSIDAD NACIONAL EXPERIMENTAL POLITECNICA

DE LA FUERZA ARMA BOLIVARIANA

UNEFA-NUCLEO LARA

Ejercicios de programación

Bachilleres:

Francelis Ocanto C.I 24400103

Osgreily Prado C.I 24679549

Orlannys Primera C.I 24326994

Sección: 3T1IE

Profesor: Edgar Lizcano

Materia: Programación

Especialidad: Ing. Eléctrica

-2013-

Ejercicios de a estructura WHILE

Ejercicio 1: Calcule la suma dos números enteros entre 1 y 10.

Program SumaNE

Var

N_1, N_2 , Contador, Suma: Interger;

Begin

Write (‘Este programa suma números’);

Read (Leer Respuesta);

Write (‘Introduzca el primer número del 1 al 10’);

Read (N_1);

Write (‘Introduzca el segundo número del 1 al 10’);

Read (N_2);

Contador: = 0;

suma: =0;

While contador < 10 do

Begin

Read (N_1);

Read (N_2);

suma: = suma + Contador

Contador: = Contador + 1

End;

Writhe (‘La suma de 'N_1' y 〖'N〗_2' es’, Suma’)

End.

Ejercicio 2: El usuario introduce números y el ordenador cuenta cuantos son positivos.

Program Positivos

Var

Numero: Interger;

Positivo: Boolean;

Begin

White (‘Introducir numero’);

Read (‘numero’);

Positivo: =0;

Contador: =0;

While numero <>999

Begin

Conta = conta + 1

if numero >0 then positivos = positivos +1

White (‘Introduce número’);

Read (numero);

End;

White (‘Has introducido numero‘);

Read (numero)

White (‘y es positivos‘);

Read (positivo);

End.

Ejercicios de la estructura REPEAT

1.Realice un algoritmo que ejecute la estructura REPEAT, que calcule el sueldo semanal de un trabajador en base a las horas trabajadas y el pago por horas trabajadas.

Horas (60 horas de trabajo) – 5.000 . pago/hora

1.7 veces precios por horas

PROGRAM SUELDO;

USES CRT;

VAR HorasT,PagoH :REAL; {Horas trabajadas y pago hora}

VAR NhorasE; HorasE: REAL; {Numero de horas extra y horas extra}

VAR Sueldo Semanal: REAL;

BEGIN

ClrScr;

WRITE ('Introduzca las horas trabajadas y las pago/hora que se cobran ');

WRITELN ('para calcular el sueldo semanal.'); WRITE ('Horas trabajadas: ');

WRITE ('Pts/hora: ');

WRITE ('Horas extra: ');

horasE:=Nhextra * (pagoh * 1.5);

sueldo_semanal:= (horasT) * (pagoh) + horasE;

WRITE ('El sueldo_semanal son ',sueldo_semanal:7:0,' pago.');

END.

PROGRAM SUELDO;

USES CRT;

VAR Precio_hor,hor_trabajadas,hor_extras,sueldo_sem: REAL;

BEGIN

ClrScr;

precio_hor:=5000;

WRITE('Horas trabajadas ');

IF hor_trabajadas<=60 THEN

sueldo_sem:=hor_trabajadas*precio_hor

...