Víctor sánchez -- programación en pascal

Solo disponible en BuenasTareas
  • Páginas : 96 (23994 palabras )
  • Descarga(s) : 0
  • Publicado : 7 de junio de 2011
Leer documento completo
Vista previa del texto
METODOLOGÍA DE LA PROGRAMACIÓN. Programación en Pascal
Victor Sanchez2 www.victorsanchez2.net El objetivo de este documento es proveer de una gran batería de ejercicios resueltos en Pascal que parten del nivel más básico hasta llegar a estructuras de datos más complejas. Al final podréis ir encontrando las prácticas que voy realizando en mi universidad. Gracias a todos por vuestra confianza.☺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; WRITE (c); {Muestra en pantalla el valor de la suma} END.

PROGRAM EJER1B; USES CRT; {Lo usamos para poder borrar la pantalla} VARa,b,c:INTEGER; BEGIN ClrScr; {Limpiamos la pantalla} WRITELN ('Este programa suma dos numeros:'); WRITELN (' '); WRITE ('Introduzca un numero: '); READLN (a); WRITE ('Introduzca otro numero: ' ); READLN (b); WRITELN (' '); c:=a+b; WRITE ('EL RESULTADO ES: '); WRITE (c); END.

☺Escribir un programa en Pascal que sume, reste, multiplique y divida dos números: x = 10 y=2

1

PROGRAM EJER02; USESCRT; {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 rest:=x mult:=x divi:=x + y; - y; * y; 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 WRITE WRITE WRITE END. ('SUMA:'); ('RESTA:');('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma); WRITELN (rest); WRITELN (mult); WRITE (divi);

PROGRAM EJER2B; USES CRT; VAR x,y:REAL; VAR suma,rest,mult:REAL; VAR divi:REAL; {suma, resta, multiplica y divide 2 numeros reales} BEGIN WRITELN ('Este programa suma, resta, multiplica y divide:'); WRITELN ('Escriba dos numeros reales'); WRITELN (' ');

Read(x); Read(y); suma:=x rest:=x mult:=xdivi:=x ClrScr; WRITE WRITE WRITE WRITE END. ('SUMA:'); ('RESTA:'); ('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma:3:0); WRITELN (rest:3:0); WRITELN (mult:3:0); WRITE (divi:5:2); + * / y; y; y; y;

PROGRAM EJER02; USES CRT; VAR x,y:INTEGER; VAR suma,rest,mult,divi:INTEGER; BEGIN x:=10; y:=2; suma:=x + y; rest:=x - y; mult:=x * y;

2

divi:=x div y; ClrScr; WRITE('SUMA:'); WRITE('RESTA:');WRITE('MULTIPLICACION:'); WRITE('DIVISION:'); END. WRITELN(suma); WRITELN(rest); WRITELN(mult); WRITELN(divi);

☺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; 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 valorespara las variables} lado1:=3; lado2:=4; area:=lado1*lado2; {Calculamos el area} ClrScr; WRITE ('AREA DEL RECTANGULO: '); END. WRITE (area); {Lo mostramos en pantalla}

PROGRAM EJER3B; USES CRT; VAR lado1,lado2:REAL; VAR area:REAL; BEGIN {Este programa calcula el area de un rectangulo} ClrScr; WRITELN ('Escriba los lados del rectangulo'); Read(lado1); Read(lado2); WRITELN (' '); area:=lado1*lado2;WRITE ('AREA DEL RECTANGULO:'); END. WRITE (area:5:2);

☺Escribir un programa en Pascal que calcule el área de un triángulo: base = 7 altura = 4 área del triángulo = (base * altura)/2

3

PROGRAM EJER04; 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 formatode salida al numero, 5 posiciones y 2 decimales} END.

PROGRAM EJER4B; USES CRT; VAR base,altura:REAL; VAR area:REAL; BEGIN {Este programa sirve para calcular el area de un triangulo} ClrScr; WRITELN ('PARA CALCULAR EL AREA DE UN TRIANGULO:'); WRITELN (' '); WRITE ('ESCRIBE LA BASE: '); READLN (base); WRITE ('ESCRIBE LA ALTURA: '); READLN (altura); WRITELN (' '); area:=(base * altura) / 2;...
tracking img