Estructura de datos

Programación con turbo Pascal

1. Escribir un programa en Pascal que sume dos números:

a = 4 b = 3

PROGRAM sumar;

var a, b, c: INTEGER;

BEGIN

{Empezamos con lo básico, un programa que escribe la suma de 2 números en pantalla}

a:=4;
b:=3;

{Se asigna un valor cualquiera a las variables "a" y "b"}

c:=a+b;

WRITE (c); {Muestra enpantalla 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 operacionesfundamentales;
USES CRT; {Nos va a permitir limpiar la pantalla junto con ClrScr}
VAR x ,y: INTEGER;
VAR 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}
ClrScr; {Limpia la pantalla}
WRITE ('SUMA:'); WRITELN (suma);
WRITE ('RESTA:'); WRITELN (rest);
WRITE ('MULTIPLICACION:'); WRITELN (mult);
WRITE ('DIVISION:'); WRITE (divi);
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 arearectangulo;

USES CRT;

VAR lado1,lado2:INTEGER;

VAR area: INTEGER;

BEGIN
{Este programa nos va a servir para calcular el area de un rectángulo}
{Damos valores para las variables}
lado1:=3;
lado2:=4;area:=lado1*lado2; {Calculamos el area}
ClrScr;
WRITE ('AREA DEL RECTANGULO: '); WRITE (area); {Lo mostramos en pantalla}
END.

4. Escribir un programa en Pascal que calcule el área de un triángulo:

base = 7 altura = 4 área del triángulo = (base * altura)/2
PROGRAM areatriangulo;

USES CRT;

VAR base,altura:REAL;

VAR area:REAL;

BEGIN
base:=7;
altura:=4;area:=(base * altura) / 2;
ClrScr;
WRITE ('AREA DEL TRIANGULO: '); WRITE (area:5:2);
{:5:2 sirve para dar el formato de salida al numero, 5 posiciones y 2 decimales}
END.

5. 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 * radio2PROGRAM longitud;

USES CRT;

VAR radio:REAL;

VAR longitud,area:REAL;

BEGIN
radio:=4;
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
ClrScr;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN (longitud:5:2);
WRITE ('AREA DE LA CIRCUNFERENCIA:'); WRITE (area:5:2);
END.

6. Escribir un programa en Pascal que calcule la velocidad de unproyectil que recorre 2
Km en 5 minutos. Expresar el resultado en metros/segundo.
Velocidad = espacio/tiempo
PROGRAM velocidad;
USES CRT;
VAR espacio, tiempo: REAL;
VAR velocidad: REAL;
BEGIN
espacio:=2;
tiempo:=5;
velocidad:=(espacio*1000)/(tiempo*60);
ClrScr;
WRITE ('VELOCIDAD DEL PROYECTIL:');
WRITE (velocidad:5:2); WRITE ('m/s');END.



7. Escribir un programa en Pascal que calcule el volumen de una esfera:

Radio = 3 volumen de la esfera = 4/3 * PI * radio3
PROGRAM volumen;

USES CRT;

VAR radio: REAL;

VAR volumen: REAL;

BEGIN
radio:=3;
volumen:=(4/3)*3.1416*(radio*radio*radio);
ClrScr;
WRITE ('VOLUMEN DE LA ESFERA:'); WRITE(volumen);
END.

8. Escribir unprograma en Pascal que evalúe la siguiente expresión:

(a+7*c)/(b+2-a)+2*b a = 3,b = 6,c = 4
PROGRAM evaluar;

USES CRT;

VAR a,b,c:REAL;

VAR resultado:REAL;

BEGIN
a:=3;
b:=6;
cresultado:=(a+7*c)/(b+2-a)+2*b;
ClrScr;
WRITE ('RESULTADO:'); WRITE (resultado:5);
END.

9. Escribir un programa en Pascal que evalúe la siguiente expresión:

(a+5) * 3 /...