Pascal
1
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. Primero pondré varias soluciones realizadas por mí, y por último muestro las soluciones de mi profesor de la asignatura a los ejercicios (salvo unos pocos). 1. Escribir un programa en Pascal que sume dos números: a=4 b=3 email: victorss18@hotmail.com}
PROGRAM EJER01; {Autor: Victor Sanchez Sanchez 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); …ver más…
PROGRAM EJER4B; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com} 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; WRITE ('EL AREA DEL TRIANGULO ES: '); END. WRITE (area:5:2);
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: '); END. WRITE(area:5:2);
Autor: Víctor Sánchez Sánchez Email: victorss18@hotmail.com 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 * radio 2
PROGRAM EJER05; {Autor: Victor Sanchez Sanchez 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:'); WRITE ('AREA DE LA