Programación y condiconales en turbo pascal

Practica 2 Programación                                  

Sentencia If

Ejemplo 1 Sentencia If

1. programCircunferencia;
2. const Pi=3.14156;
3. var
4. radio : Integer;
5. entrada : char;

1. begin

1. write('¿Necesitas calcular la circunferencia? [S/N]:'); readln(entrada);
2. if (entrada='s') or (entrada='S') then
3. begin
4. write('Escribe el radio: '); readln(radio);
5. write('La circunferencia es ');
6. writeln(2*PI*radio);
7. end
8. else writeln ('No se ha calculado la circunferencia.');
9. end.

Ejemplo 2 Sentencia If

1. PROGRAM Evaluar_Edad;

1. USES Crt;

1. VAR edad: BYTE;

1. BEGIN        {Inicio del programa}
2. ClrScr;
3. Write('Digite su edad: ');  {Solicita al usuario su edad}
4. Read(edad);  {Almacena el dato en la variable Edad}

1. IF edad < 18 THEN    {Evalúa si la edad < 18}

1. BEGIN    {Ejecuta la cláusula sí es mayor de 18}

1. WriteLn('Eres un Menor de Edad);

1. END      {Fin de la cláusula If}

1. ELSE

1. BEGIN    {Ejecuta la cláusula sí no es mayor de 18}

1. Write('Eres un Adulto');

1. END;     {Fin de la cláusula Else}

1. WriteLn('Presione cualquier tecla para salir');
2. ReadKey;   {Espera a que se presione cualquier tecla}

END.         {Fin del programa}

Sentencia Case

Ejemplo 1 Sentencia Case

1. PROGRAM Calculadora2;
2. USES
3. crt;

1. VAR
2. numero1, numero2, resultado: REAL;
3. operador: CHAR;

1. BEGIN

1. ClrScr;        {Borra la pantalla y coloca el cursor al principio}
2. numero1 := 0;  {Inicialización de variables}
3. numero2 := 0;
4. resultado := 0;
5. WriteLn('Operaciones Básicas');   {Mostrar mensajes al usuario}
6. Write('Digite un número: ');
7. ReadLn(numero1);                  {Lee el primer número}
8. Write('Digite otro número: ');
9. ReadLn(numero2);                  {Lee el segundo número}
10. WriteLn('Digite el signo de operación [+, -, *, /]: ');
11. operador := ReadKey;              {Lee el operador}

1. CASE operador OF
2. '+': resultado := numero1 + numero2; {Operación de Suma}
3. '-': resultado := numero1 - numero2; {Operación de Resta}
4. '*': resultado := numero1 * numero2; {Operación de Multiplicación}
5. '/': resultado :=numero1 / numero2;  {Operación de División}
6. ELSE         {En caso de que se ingrese un operador diferente}
7. Write('¡Operador invalido!');
8. END;         {Fin de la estructura CASE}

1. WriteLn('Resultado sin formato : ',resultado:0:2); {Muestra el resultado}
2. ReadKey;     {Espera a que se presione cualquier tecla}

1. END.           {Fin del programa}

Ejemplo 2 Sentencia Case

1. PROGRAM Case;
2. VAR
3.       Numero : Integer;
4. BEGIN
5. WriteLn(‘Introduzca un número entero del 1 al 5: ‘);
6. ReadLn(Numero);
7. CASE Numero OF
9. 1 : WriteLn(‘El número fué 1’);
10. 2 : WriteLn(‘El número fué 2’);
11. 3 : WriteLn(‘El número fué 3’);
12. 4 : WriteLn(‘El número fué 4’);
13. 5 : WriteLn(‘El número fué 5’);
14. ELSE WriteLn(‘El número no estaba en el rango indicado’);
15. End

Sentencia For

Ejemplo 1 Sentencia For

1. Program For1;

1. var
2. contador: integer;

1. begin
2. for contador := 1 to 10 do
3. writeln( contador );
4. end.

Ejemplo 2 Sentencia For

1. Program For2;

1. var
2. letra: char;

1. begin
2. for letra := 'a' to 'z' do
3. write( letra );
4. end.

Sentencia While

Ejemplo 1 Sentencia While

1. program noDividirEntreCero2;
2. var
3. dividendo, divisor: integer;
4. begin
5. write('Dime el dividendo: ');
6. readln(dividendo);
7. write('Dime el divisor: ');
8. readln(divisor);
9. while divisor = 0 do
10. begin
11. write('No debe ser 0. Dimelo otra vez: ');
12. readln(divisor);
13. end;
14. writeLn('La división es ', dividendo / divisor);
15. readln;
16. end.

        Ejemplo 2 Sentencia While        

1. program While1;
2. var
3. num: integer;
4. begin
5. writeLn('Dime numeros y te dire su doble. Usa 0 para terminar.');
6. write( 'Primer numero? ' );
7. readLn( num );
8. while num <> 0 do

1. begin
2. writeLn( 'Su doble es ', num*2 );
3. write( 'Siguiente numero? ' );
4. readLn( num );
5. end
6. end.

Sentencia Repeat-Until

        Ejemplo 1 Sentencia Repeat-Until        

1. program Repeat2;
2. var
3. claveCorrecta, intento: integer;
4. begin
5. claveCorrecta := 1234;
6. repeat
7. WriteLn( 'Introduce la clave de acceso...' );
8. ReadLn( intento )
9. if intento <> claveCorrecta then

1. WriteLn( 'Acceso no permitido' );

1. until intento = claveCorrecta;
2. WriteLn( 'Acceso concedido' );
3. end.

        Ejemplo 2 Sentencia Repeat-Until        

1. program Repeat-Until;
2. var
3. valor: Integer;
4. begin
5. repeat
6. Write('Ingrese un valor entre 0 y 999 - (Cero para finalizar):');
7. ReadLn(valor);
8. if valor >= 100 then
9. begin
10. WriteLn('El numero tiene 3 dígitos');
11. end
12. else
13. begin
14. if valor >= 10 then
15. begin
16. WriteLn('El numero tiene 2 dígitos');
17. end
18. else
19. begin
20. WriteLn('El numero tiene 1 dígito');
21. end;
22. end;
23. until valor = 0;
24. Write('Fin del programa');
25. ReadLn;
26. end.

...