Metodologia de la programación. Programación en pascal

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....¡¡¡