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

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.