1.- REALIZAR UN PROGRAMA QUE A PARTIR DE 2 NUMEROS INGRESADOS LOS INTERCAMBIE ENTRE SUS RESPETIVAS VARIABLES, SOLO SI AMBOS NUMEROS SON MAYORES DE 45..

[pic 1][pic 2]                                                                                                                              [pic 3]

[pic 4][pic 5][pic 6][pic 7]

1.- REALIZAR UN PROGRAMA QUE A PARTIR DE 2 NUMEROS INGRESADOS LOS INTERCAMBIE ENTRE SUS RESPETIVAS VARIABLES, SOLO SI AMBOS NUMEROS SON MAYORES DE 45.

-Algoritmo.

1. Inicio
2. Teclea el valor de A
3. Teclea el valor de B
4. Si A y B son > a 45 entonces:

• C=A
• A=B
• B=C
• El valor actual de A es (A), el valor actual de B es (B).

1. Fin.

-Pascal.

program nueve;

        Uses crt;

        Var A, B, C: Integer;

Begin

        Clrscr;

        Write(‘Teclea el valor de A:  ‘);

        Readln(A);

        Writeln(‘Teclea el valor de B:  ‘);

        Readln(B);

If (A > 45) And (B > 45) then

Begin

        C:=A;

        A:=B;

        B:=C;

Writeln(‘El valor actual de A es:  ‘,A);

Writeln(‘El valor actual de B es:  ‘,B);

End;

Readln;

End.

[pic 8]

[pic 9]

[pic 10]

[pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19]

[pic 20]

[pic 21][pic 22]

[pic 23]

2.- REALIZAR UN PROGRAMA QUE OBTENGA EL AREA DEL CIRCULO SI EL RADIO SE ENCUENTRA COMPRENDIDO ENTRE LOS VALORES 100 Y 200.

-Algoritmo.

1. Inicio.
2. Teclea el radio del círculo (r)
3. Si r es > a 100 y < a 200 entonces:

• A= 3.1416(r2)
• El área del círculo es A

1. Fin.

-Pascal.

program diez;

   Uses crt;

   Var r, A: Real;

Begin

   Clrscr;

   Write(‘Teclea el valor del radio:  ’);

   Readln(r);

If (r > 100) And (r < 200) then

   A:= 3.1416*(r*r);

   Writeln(‘El área del círculo es:  ‘,A);

End;

Readln;

End.

[pic 24]

[pic 25]

[pic 26]

[pic 27][pic 28][pic 29][pic 30][pic 31][pic 32][pic 33][pic 34][pic 35]

[pic 36]

[pic 37][pic 38]

[pic 39]

3.- REALIZAR UN PROGRANMA QUE OBTENGA EL AREA DE UN TRAINGULO SOLO SI EL AREA DEL CUADRADO PREVIAMENTE OBTENIDA ES MENOR DE 200.

-Algoritmo.

1. Inicio
2. Teclea el valor de uno de los lados del cuadrado (l)
3. A= (l)*(l)
4. El área del cuadrado es A
5. Si A es < a 200 entonces

• Teclea el valor de los lados del triángulo equilátero (t)
• Tecla la altura del triángulo (h)
• a=(t)*(h)/2
• El área del triángulo es a

1. Fin.

-Pascal.

program once;

        Uses crt;

        Var l, A: Integer;

...