Ejercicios resueltos con pascal

Solo disponible en BuenasTareas
  • Páginas : 74 (18434 palabras )
  • Descarga(s) : 0
  • Publicado : 5 de marzo de 2011
Leer documento completo
Vista previa del texto
Ejercicios de Pascal

METODOLOGÍA DE LA PROGRAMACIÓN. Programación en Pascal 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. ☺Escribir un programa en Pascal que sume dos números: a=4 b=3
email: victorss18@hotmail.com}

PROGRAM EJER01; {Autor: Victor SanchezSanchez 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; {Autor: Victor Sanchez Sanchez USES CRT; VAR a,b,c:INTEGER; BEGIN ClrScr;

email: victorss18@hotmail.com}

WRITELN ('Esteprograma 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.

PROGRAM EJER01; var a,b,c:INTEGER; BEGIN a:=4; b:=3; c:=a+b; WRITE(c); END.

1

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

PROGRAM EJER02; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com} 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 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 ydivisión} ClrScr; {Limpia la pantalla} WRITE WRITE WRITE WRITE END. ('SUMA:'); ('RESTA:'); ('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma); WRITELN (rest); WRITELN (mult); WRITE (divi);

PROGRAM EJER2B; {Autor: Victor Sanchez Sanchez USES CRT; VAR x,y:REAL; VAR suma,rest,mult:REAL; VAR divi:REAL;

email: victorss18@hotmail.com}

{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:=x divi:=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 rest:=x mult:=x divi:=x + y; - y; * y; div y;

2

Ejercicios de Pascal

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 delrectángulo=lado1 * lado2
PROGRAM EJER03; {Autor: Victor Sanchez Sanchez USES CRT; VAR lado1,lado2:INTEGER; VAR area:INTEGER; BEGIN {Este programa nos va a servir para calcular el area de un rectángulo} lado1:=3; lado2:=4; {Damos valores para las variables} area:=lado1*lado2; {Calculamos el area} ClrScr; WRITE ('AREA DEL RECTANGULO: '); END. WRITE (area); {Lo mostramos en pantalla} email:victorss18@hotmail.com}

PROGRAM EJER3B; {Autor: Victor Sanchez Sanchez USES CRT; VAR lado1,lado2:REAL; VAR area:REAL; BEGIN

email: victorss18@hotmail.com}

{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);

PROGRAM EJER03; USES CRT; VARlado1,lado2:INTEGER; VAR area:INTEGER; BEGIN lado1:=3; lado2:=4; area:=lado1*lado2; ClrScr;

3

Ejercicios de Pascal

WRITE('AREA DEL RECTANGULO: '); END.

WRITE(area);

☺Escribir un programa en Pascal que calcule el área de un triángulo: base = 7 altura = 4 área del triángulo = (base * altura)/2
email: victorss18@hotmail.com}

PROGRAM EJER04; {Autor: Victor Sanchez Sanchez USES...
tracking img