Ir al contenido

Aprendiendo a programar con Free Pascal I/Introducción/Ejercicios

De Wikilibros, la colección de libros de texto de contenido libre.

Ejercicios

[editar]

1. Para iniciar y terminar un programa se usan BEGIN y END, indique cual de los siguientes programas estan escritos correctamente.

A)

Begin End;

B)

Begin End.

C)

Begin
END.

D)

BEGIN ends
END.

E)

BEGIN                                 END.

F)

BeginEnd.

2. Para colocar comentarios se usan // y {}, de los siguientes programas, verifique si la sintaxis es correcta y pueden ser reconocidos por el compilador :

A)

{Begin
 End.

B)

Begin
   {esto es un comentario}
End.

C)

(* Begin *) Begin End.

D)

(* Begin End.}

E)

Begin
   // esto es un comentario de una línea
End.

F)

{Esto es un  comentario}
Begin
End.

G)

//Begin End.

H)

Begin//End.

I)

Begin
  //comentario 1
  comentario 2
End.

3. Para declarar variables de tipo numero y texto en el programa se usa Var, integer y String, indique cual de los siguientes programas estan escritos correctamente.

A)

  Var i,j :integer;
  Begin
  End.

B)

  Begin
    Var i,j:string;
  End.

C)

  Begin
    //Var i,j : integer;
  End.

D)

  Var cad:String;
      i,j:integer;
      cad:string;
  Begin
  End.

E)

  cad : String;
  Begin
  End.

F)

  Var cad:String; i,j :integer;
  Begin
  End.

4. Para asignar un dato a una variable se usa :=, indique cual de los siguientes programas estan escritos correctamente.

A)

 Var cad:string;
 Begin cad:='hola' End.

B)

 Var cad:double;
 Begin
   cad:='hola';
 End.

C)

 Var i,j : integer;  
 Begin
   i:=56;
   j:=3;
 End.

H)

 Var
  i,j : integer,
 Begin
  i:=40;
 End.

J)

 Var cad:string;
 Begin
  cad:="hola";
 End.

5. Cree los programas que se describen a continuación.

A) Haga un programa que declare tres variables enteras a,b y aux, asigne a la variable a el número 34 y a la variable b el número 19, realice el programa de tal manera que las dos variables intercambien esos números.

B) Haga un programa que declare tres variables de tipo cadena a,b y aux, asigne a la variable a el texto : 'hola' y a la variable b el texto : 'como' , realice el programa de tal manera que las dos variables intercambien sus cadenas de caracteres.


6. Indique si los programas estan bien escritos.

A)

 Var num1,num2 : integer;
 Begin
   Writeln(num1);
 End.
 

B)

 Var cad:string;
 Begin
   cad:='Hola';
   writeln(cad,'como estas')
 End.

C)

 Begin
   writeln("hola")
 End.

7. Cree los programas que se describen a continuación.

A) Haga un programa que muestre en pantalla lo siguiente :

*
**
***
****
*****
******

B) Haga un programa que muestre por pantalla lo siguiente :

*********     ***      *        *
*       *    *   *    ***      * *
*       *   *     *  *****    *   *
*       *   *     *    *     *     *
*       *   *     *    *    *       *
*       *   *     *    *     *     *
*       *   *     *    *      *   *
*       *    *   *     *       * * 
*********     ***      *        *

C) Haga un programa que declare tres variables enteras a,b y aux, asigne a la variable a el número 34 y a la variable b el número 19, muestre por pantalla los valores de a y b, intercambie sus valores y después los muestre intercambiados.

D) Haga un programa que declare tres variables de tipo cadena Cad1,Cad2 y cadAux, asigne a la variable Cad1 el texto "hola" y a la variable cad2 el texto : "como estas ", muestre por pantalla cad1 y cad2, intercambie sus valores y después muestrelos intercambiados.

E) Haga un programa que dibuje el siguiente barco.

             _+_
           _(_|_(_
         _(___|___(_
        (_____|_____( 
     _________|_________    
     \                 /
      \_______________/

8. Para hacer una lectura de datos se usa Readln, indique si los programas a continuación estan bien escritos.

A)

 Var a : integer;
 Begin
   Readln('ingrese un entero : ',a);
 End.
 

B)

 Var a : integer;
 Begin
   Readln("ingrese un entero : ",a);
 End.
 

C)

 Var a : integer;
 Begin
   Write('ingrese un entero : ');
   Readln(a);
 End.

D)

 Var cad:string;
 Begin
   write('Ingrese un cadena de caracteres : ');
   Readln(cad)
 End.



9. Cree los programas que se describen a continuación.

A) Haga un programa que declare tres variables enteras a,b y aux, que pida por teclado valores para las variables a y b, muestre por pantalla los valores de a y b, intercambie sus valores y después los muestre intercambiados.

B) Haga un programa que declare tres variables de tipo cadena Cad1,Cad2 y cadAux, que pida por teclado valores para las variables cad1 y cad2, muestre por pantalla cad1 y cad2, intercambie sus valores y después los muestre intercambiados.