Programas Tarea Progra

1. PROGRAMA QUE CALCULE EL ESPACIO DE UN PROYECTIL

Program proyectil;
Uses crt;
Var L,F: integer;
Begin
Clrscr;
Writeln (‘cálculo del espacio de un proyectil’);
Writeln (‘introduzca velocidad de proyectil’);
Readln (L);
Writeln (‘introduzca tiempo del proyectil’);
Readln(F);
Writeln (‘dado velocidad y tiempo su espacio es’);
Writeln (L*F);
Readkey;
End.


2. PROGRAMA QUE CALCULE EL RADIO DE UNCIRCULO

Program proyectil;
Uses crt;
Var R,Y :integer;
Begin
Clrscr;
Writeln(‘calculo de el radio de un circulol’);
Writeln(‘introduzca área del circulo’);
Readln(R);
Writeln(‘introduzca diámetro del circulo’);
Readln(Y);
Writeln(‘dado área y diámetro el radio es’);
Writeln(R DIV Y);
Readkey;
End.



3. PROGRAMA QUE CALCULE LA ALTURA DE UN RECTANGULO

Program proyectil;
Uses crt;
Var a,b:integer;
Begin
Clrscr;
Writeln (‘cálculo de la altura de un rectángulo’);
Writeln (‘introduzca área del rectangulo’);
Readln(a);
Writeln(‘introduzca la base del rectangulo’);
Readln(b);
Writeln(‘dado área y base la altura es’);
Writeln (a*b);
Readkey;
End.

4. PROGRAMA QUE CALCULE EL PROMEDIO DE CUATRO NOTAS Y ME DIGA SI APROBO O REPROBO


program edad;
uses crt;
var N1,N2,N3,N4 :integer;
var P:Realbegin
clrscr;
writeln (‘ingrese notas’);
readln (N1,N2,N3,N4);
p:= N1+N2+N3+N4 div 4;
IF p>60
then writeln (‘Aprobado’)
ELSE writeln (‘Reprobado’);
readkey;
end.



5. PROGRAMA QUE VERIFIQUE SI ES MAYOR O MENOR DE EDAD

program edad;
uses crt;
var a :integer;
begin
clrscr;
writeln (‘ingrese edad’);
readln (a);
IF a>18
then writeln (‘Mayor de Edad’)
ELSE writeln (‘Menor de Edad’);
readkey;
end.6. PROGRAMA QUE VERIFIQUE SI EL NUMERO ES POSITIVO O NEGATIVO

Program NUMERO;
Uses crt;
Var a:integer;
Begin
Clrscr;
Writeln(‘introduzca un numero’);
Readln(a);
If a>0
Then writeln(‘el numero es positivo’)
Else writeln(‘el numero es negativo’);
Readkey;
End.











7. PROGRAM QUE VERIFIQUE SI EL NUMERO ES MAYOR O MENOR A 10

Program NUMERO;
Uses crt;
Var a: integer;
Begin
Clrscr;Writeln(‘introduzca un numero’);
Readln(a);
If a>10
Then writeln(‘el numero es mayor a 10’)
Else writeln(‘el numero es menor a 10’);
Readkey;
End.

8. PROGRAMA QUE HAGA LAS OPERACIONES BASICAS

Program NUMERO;
Uses crt;
Var a,b: integer;
Begin
Clrscr;
Writeln(‘introduzca dos numero’);
Readln(a,b);
Writeln(‘la suma de dos numero es’ , a+b);
Writeln(‘la resta de dos numero es’ , a-b);
Writeln(‘la multiplicación dedos numero es’ , a*b);
Writeln(‘la division de dos numero es’ , a div b);
Readkey;
End.






9. PROGRAMA QUE CALCULE A QUE MES CORRESPONDE EL NUMERO

Program Calendario;
Uses crt;
Var a: integer;
Begin
Clrscr;
Writeln(‘introduzca un numero del rango del 1 al 12’);
Readln(a);
If a=1
Then writeln(‘el mes es Enero’);
If a=2
Then writeln(‘el mes es Febrero’);
If a=3
Then writeln(‘el mes es Marzo’);If a=4
Then writeln(‘el mes es Abril’);
If a=5
Then writeln(‘el mes es Mayo’);
If a=6
Then writeln(‘el mes es Junio’);
If a=7
Then writeln(‘el mes es Julio’);
If a=8
Then writeln(‘el mes es Agosto’);
If a=9
Then writeln(‘el mes es Septiembre’);
If a=10
Then writeln(‘el mes es Octubre’);
If a=11
Then writeln(‘el mes es Noviembre’);
If a=12
Then writeln(‘el mes es Diciembre’);
Readkey;
End.


10.PROGRAMA QUE DIGA DIA DE LAS SEMANA ES ATRAVEZ DE UN NUMERO

Program semana;
Uses crt;
Var a:integer;
Begin
Clrscr;
Writeln(‘introduzca un numero del rango del 1 al 7’);
Readln(a);
If a=1
Then writeln(‘el dia es Domingo’);
If a=2
Then writeln(‘el dia es lunes’);
If a=3
Then writeln(‘el dia es martes’);
If a=4
Then writeln(‘el dia es miercoles’);
If a=5
Then writeln(‘el dia es Jueves’);
If a=6
Thenwriteln(‘el dia es Viernes’);
If a=7
Then writeln( ‘el dia es Sabado’ );
Readkey;
End.












11. PROGRAM QUE CALCULE EL INGRESO ANUAL DE UN EMPLEADO DEPENDIENDO DE LOS INGRESOS SEMANALES

Program ingreso;
Uses crt;
Var a,s:integer;
Begin
Clrscr;
Writeln(‘introduzca su ingreso semanal’);
Readln(a);
s:=a*52;
Writeln(‘su ingreso anual es de’ ,s);
Readkey;
End.



12. PROGRAMA QUE DE A...