El objetivo de este documento es proveer ejercicios resueltos en pascal, que parten del nivel mas básico, para todas aquellas personas que de una u otra manera se les dificulta el anilisis y la comprención de la programación en pascal.
1. Escribir un programa en Pascal que sume dos números:
a = 4, b = 3
PROGRAM EJER01;
var
a, b, c: integer;
BEGIN
{Empezamos con lo básico, un programa que escribe la suma de 2 numeros en pantalla}
a:= 4;
b:= 3;
{Se asigna un valor cualquiera a las variables "a" y "b"}
c := a+b;
c := 4+3;
c := 7;
write (c); {Muestra en pantalla el valor de la suma}
END.
2. Escribir un programa en Pascal que sume, reste, multiplique y divida dos números:
x = 10, y = 2
PROGRAM EJER02;
VAR
x,y: integer;
suma,rest,mult,divi: integer;
BEGIN
x:=10;
y:=2;
suma:= x + y;
rest:= x - y;
mult:= x * y;
divi:= x div y;
{Con estas 4 variables realizamos las cuatro operaciones aritméticas fundamentales: suma,resta, multiplicación y división}
END.
3. Escribir un programa en Pascal que calcule el área de un rectángulo:
lado1 = 3, lado2 = 4
área del rectángulo= lado1 * lado2
PROGRAM EJER03;
VAR
lado1,lado2: integer;
area: integer;
BEGIN
lado1:=3;
lado2:=4;
area:=lado1*lado2; {Calculamos el area}
write ('area del rectangulo: ');
END.
4. Escribir un programa que calcule la longitud y el área de una circunferencia:
radio = 4, longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio^2
PROGRAM EJER04;
VAR
radio: real;
longitud,area: real;
BEGIN
radio:=4;
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:');
WRITE ('AREA DE LA CIRCUNFERENCIA:');
END.
5. Escribir un programa en Pascal que calcule el volumen de una esfera:
radio = 3 volumen de la esfera = 4/3 * PI * radio^3
PROGRAM EJER05;
VAR
radio: real;
volumen: real;
BEGIN
radio:=3;
volumen:= (4/3)*3.1416*(radio*radio*radio);
WRITE ('VOLUMEN DE LA ESFERA:');
END.
6. Escribir un programa en Pascal que evalúe la siguiente expresión:
(a+7*c) / (b+2-a)+ 2* b, a = 3, b = 6, c = 4
PROGRAM EJER06;
VAR
a,b,c: real;
resultado: real;
BEGIN
a:=3;
b:=6;
c:=4;
resultado:=(a+7*c)/(b+2-a)+2*b;
WRITE ('RESULTADO:');
END.
7. Escribir un programa en Pascal que evalúe la siguiente expresión:
(a+5) * 3 / 2 * b - b, a = 3, b = 6
PROGRAM EJER07;
VAR
a,b: real;
resultado: real;
BEGIN
a:=3;
b:=6;
resultado:=((a+5)*3) / (2*b-b);
WRITE ('RESULTADO: ');
END.
8. Escribir un programa en Pascal que calcule el área y el volumen de un hexaedro:
A = (l*l) * 6
V = l3
PROGRAM EJER08;
VAR
lado: real;
area,volumen: real;
BEGIN
lado:=4;
area:= (lado * lado) * 6;
volumen:= sqr(lado) * lado;
WRITE ('AREA DEL HEXAEDRO:');
WRITE ('VOLUMEN DEL HEXAEDRO:');
END.
9. Escribir un programa en Pascal que calcule el área y el volumen de un cilindro:
radio = 3
altura = 4
PROGRAM EJER09;
VAR
radio, altura: real;
area, volumen: real;
BEGIN
radio:=3;
altura:=4;
area:= 2 * (3.1416 * sqr(radio)) + ((2 * 3.1416 * radio) * altura);
volumen:= (3.1416 * sqr(radio)) * altura;
WRITE ('EL AREA DEL CILINDRO ES: ');
WRITE ('EL VOLUMEN ES: ');
END.
10. Escribir un programa que lea dos números enteros A y B, y obtenga los valores A div B, A mod B.
PROGRAM EJER10;
Var
A,B: Integer;
soluc1, soluc2: Integer;
Begin
writeln('digite los numeros');
readln(a,b);
soluc1 := A div B; {div hace la division de 2 numeros enteros}
soluc2 := A mod B; {mod muestra el resto de una division de
2 numeros enteros}
WRITE('soluc1, soluc2:');
End.
Lazarus es una herramienta de desarrollo rápido de aplicaciones basada en el lenguaje de programación Pascal.
Se trata de una alternativa libre y gratuita a Delphi, desarrollada como proyecto de software libre a partir de Free Pascal.
Este es el link http://sourceforge.net/projects/lazarus/files/Lazarus%20Windows%2032%20bits/Lazarus%200.9.30/ para que puedan descargarlo y tener una mayor comprención acerca de lo que es.. y todo lo que pueden hacer en él....¡¡¡
1. Escribir un programa en Pascal que sume dos números:
a = 4, b = 3
PROGRAM EJER01;
var
a, b, c: integer;
BEGIN
{Empezamos con lo básico, un programa que escribe la suma de 2 numeros en pantalla}
a:= 4;
b:= 3;
{Se asigna un valor cualquiera a las variables "a" y "b"}
c := a+b;
c := 4+3;
c := 7;
write (c); {Muestra en pantalla el valor de la suma}
END.
2. Escribir un programa en Pascal que sume, reste, multiplique y divida dos números:
x = 10, y = 2
PROGRAM EJER02;
VAR
x,y: integer;
suma,rest,mult,divi: integer;
BEGIN
x:=10;
y:=2;
suma:= x + y;
rest:= x - y;
mult:= x * y;
divi:= x div y;
{Con estas 4 variables realizamos las cuatro operaciones aritméticas fundamentales: suma,resta, multiplicación y división}
END.
3. Escribir un programa en Pascal que calcule el área de un rectángulo:
lado1 = 3, lado2 = 4
área del rectángulo= lado1 * lado2
PROGRAM EJER03;
VAR
lado1,lado2: integer;
area: integer;
BEGIN
lado1:=3;
lado2:=4;
area:=lado1*lado2; {Calculamos el area}
write ('area del rectangulo: ');
END.
4. Escribir un programa que calcule la longitud y el área de una circunferencia:
radio = 4, longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio^2
PROGRAM EJER04;
VAR
radio: real;
longitud,area: real;
BEGIN
radio:=4;
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:');
WRITE ('AREA DE LA CIRCUNFERENCIA:');
END.
5. Escribir un programa en Pascal que calcule el volumen de una esfera:
radio = 3 volumen de la esfera = 4/3 * PI * radio^3
PROGRAM EJER05;
VAR
radio: real;
volumen: real;
BEGIN
radio:=3;
volumen:= (4/3)*3.1416*(radio*radio*radio);
WRITE ('VOLUMEN DE LA ESFERA:');
END.
6. Escribir un programa en Pascal que evalúe la siguiente expresión:
(a+7*c) / (b+2-a)+ 2* b, a = 3, b = 6, c = 4
PROGRAM EJER06;
VAR
a,b,c: real;
resultado: real;
BEGIN
a:=3;
b:=6;
c:=4;
resultado:=(a+7*c)/(b+2-a)+2*b;
WRITE ('RESULTADO:');
END.
7. Escribir un programa en Pascal que evalúe la siguiente expresión:
(a+5) * 3 / 2 * b - b, a = 3, b = 6
PROGRAM EJER07;
VAR
a,b: real;
resultado: real;
BEGIN
a:=3;
b:=6;
resultado:=((a+5)*3) / (2*b-b);
WRITE ('RESULTADO: ');
END.
8. Escribir un programa en Pascal que calcule el área y el volumen de un hexaedro:
A = (l*l) * 6
V = l3
PROGRAM EJER08;
VAR
lado: real;
area,volumen: real;
BEGIN
lado:=4;
area:= (lado * lado) * 6;
volumen:= sqr(lado) * lado;
WRITE ('AREA DEL HEXAEDRO:');
WRITE ('VOLUMEN DEL HEXAEDRO:');
END.
9. Escribir un programa en Pascal que calcule el área y el volumen de un cilindro:
radio = 3
altura = 4
PROGRAM EJER09;
VAR
radio, altura: real;
area, volumen: real;
BEGIN
radio:=3;
altura:=4;
area:= 2 * (3.1416 * sqr(radio)) + ((2 * 3.1416 * radio) * altura);
volumen:= (3.1416 * sqr(radio)) * altura;
WRITE ('EL AREA DEL CILINDRO ES: ');
WRITE ('EL VOLUMEN ES: ');
END.
10. Escribir un programa que lea dos números enteros A y B, y obtenga los valores A div B, A mod B.
PROGRAM EJER10;
Var
A,B: Integer;
soluc1, soluc2: Integer;
Begin
writeln('digite los numeros');
readln(a,b);
soluc1 := A div B; {div hace la division de 2 numeros enteros}
soluc2 := A mod B; {mod muestra el resto de una division de
2 numeros enteros}
WRITE('soluc1, soluc2:');
End.
Lazarus es una herramienta de desarrollo rápido de aplicaciones basada en el lenguaje de programación Pascal.
Se trata de una alternativa libre y gratuita a Delphi, desarrollada como proyecto de software libre a partir de Free Pascal.
Este es el link http://sourceforge.net/projects/lazarus/files/Lazarus%20Windows%2032%20bits/Lazarus%200.9.30/ para que puedan descargarlo y tener una mayor comprención acerca de lo que es.. y todo lo que pueden hacer en él....¡¡¡
