|
|
- Escribir un programa que lea dos números enteros A y B, y obtenga
los valores A div B, A mod B.
PROGRAM EJERDIV;
Uses Crt;
Var A,B: Integer;
Var soluc: Integer;
Begin
ClrScr;
WRITELN('Introduzca dos numeros:');
WRITELN;
WRITE('A: '); READLN(A);
WRITE('B: '); READLN(B);
WRITELN;
WRITE('A div B = ');
soluc := A div B; {div hace la division de 2 numeros
enteros}
WRITELN(soluc);
WRITELN;
WRITE('A mod B = ');
soluc := A mod B; {mod muestra el resto de una
division de 2 numeros enteros}
WRITELN(soluc);
End.
- Escribir un programa en Pascal que muestre un mensaje afirmativo
si el numero introducido es múltiplo de 5.
PROGRAM EJER32;
USES CRT;
var num:Integer;
Begin
ClrScr;
WRITE('Introduzca un numero : '); READLN(num);
IF num mod 5 = 0 THEN
WRITE('El numero introducido es múltiplo de 5')
ELSE
WRITE('El numero introducido no es múltiplo de 5');
End.
- Escribir un programa en Pascal que lea un numero y lo devuelva
multiplicado por 5 y dividido por 7.
PROGRAM EJER34;
USES CRT;
var num, soluc:Real;
Begin
ClrScr;
WRITE('Introduzca un numero: ');
READLN(num);
WRITELN;
{multiplicamos y dividimos el numero obtenido}
soluc := (num * 5) / 7;
WRITE('(',num:5:2,' * 5) / 7) = ',soluc:5:2);
{Poniendo ":5:2" le decimos el formato de salida del numero,
5 posiciones y 2 decimales - Prueba a cambiarlo como mas te guste}
End.
- Escribir un programe en Pascal que resuelva una matriz 3 x
(sin bucles).
PROGRAM DETER3;
USES CRT;
VAR a11,a12,a13,a21,a22,a23,a31,a32,a33:REAL;
VAR M:REAL;
BEGIN
ClrScr;
WRITELN ('Introduzca los valores de la matriz 3x3');
WRITELN (' ');
WRITE ('a11: '); READLN (a11);
WRITE ('a12: '); READLN (a12);
WRITE ('a13: '); READLN (a13);
WRITE ('a21: '); READLN (a21);
WRITE ('a22: '); READLN (a22);
WRITE ('a23: '); READLN (a23);
WRITE ('a31: '); READLN (a31);
WRITE ('a32: '); READLN (a32);
WRITE ('a33: '); READLN (a33);
WRITELN (' ');
M:=(a11*a22*a33)+(a21*a32*a13)+(a31*a12*a23)
-(a13*a22*a31)-(a11*a23*a32)-(a12*a21*a33);
WRITE ('El resultado es: '); WRITE (M:5:2);
END.
- Escribir un programa que convierta un número de segundos en su
equivalente en minutos y segundos.
PROGRAM EJERSEG;
Uses Crt;
var seg0,seg,min: Integer;
Begin
ClrScr;
WRITE('Introduzca los segundos: '); READLN(seg0);
WRITELN;
min := seg0 div 60;
seg := seg0 mod 60;
WRITE(seg0,' segundos son ',min,' minutos y ',seg,'
segundos.');
End.
- Imprimir la media de los elementos que se encuentran en las
posiciones pares y la media de los elementos que se encuentran en
las posiciones impares de un vector numérica.
PROGRAM EJEMEDIA;
Uses Crt;
var sumapar,sumaimp,n_par,n_imp: Integer;
var i: Integer;
var media_p,media_i: Real;
const num=10;
var numeros: Array[1..num] of Real;
Begin
ClrScr;
WRITELN('Introduzca los ',num,' numeros');
WRITELN;
sumapar := 0;
sumaimp := 0;
n_par := 0;
n_imp := 0; {Inicializamos las variables a 0 para evitar
sorpresas}
For i := 1 to 10 do
Begin
WRITE('Introduzca el numero ',i,' : '); READLN
(numeros[i]);
If num mod 2 = 0 then {para que sea par, el
resto de una division debe ser 0}
Begin
n_par := n_par + 1; {tambien se puede
hacer con "inc(n_par)"}
sumapar := sumapar + num;
End
Else {si no es par, DEBE ser impar}
Begin
n_imp := n_imp + 1;
sumaimp := sumaimp + num;
End;
End;
{Vamos a hallar la media de los pares y los impares}
WRITELN;
media_p := sumapar / n_par;
media_i := sumaimp / n_imp;
WRITELN('La media de los numeros pares es: ',media_p:5:2);
WRITELN;
WRITELN('La media de los numeros impares es: ',media_i:5:2);
End.
- Escribir un programa que muestre en pantalla VS2 realizado por
nosotros (usar PROCEDURE).
PROGRAM VS2 (INPUT, OUTPUT);
Uses Crt;
PROCEDURE letra_V;
BEGIN WRITELN('V V');
WRITELN(' V V ');
WRITELN(' V V ');
WRITELN(' V V ');
WRITELN(' V ');
END;
PROCEDURE letra_S;
BEGIN
WRITELN('SSSSSSS');
WRITELN('S ');
WRITELN('SSSSSSS');
WRITELN(' S');
WRITELN('SSSSSSS');
END;
PROCEDURE num_2;
BEGIN
WRITELN('2222222');
WRITELN(' 2');
WRITELN('2222222');
WRITELN('2 ');
WRITELN('2222222');
END;
BEGIN {empezamos el programa principal}
ClrScr;
letra_V; WRITELN;
letra_S; WRITELN;
num_2;
REPEAT Until Keypressed; {mantenemos la pantalla viendo la
solución hasta que se pulse una tecla}
END.
- Hacer un programa que incremente un número usando un
PROCEDURE.
PROGRAM incrementar (INPUT, OUTPUT);
Uses Crt;
VAR num: INTEGER;
PROCEDURE incremento;
BEGIN
num := num + 1;
END;
BEGIN
ClrScr;
WRITE('Introduzca un numero para incrementarle: '); READLN(num);
WRITELN;
incremento;
WRITE('El numero, incrementado en una unidad, es: ',num);
REPEAT Until Keypressed;
END.
- Escribir un programa que, utilizando procedimientos con parámetros, lea desde el teclado
las unidades y el precio que quiere comprar, y en funcion de las unidades introducidas le haga un
descuento o no.
PROGRAM productos (INPUT, OUTPUT);
Uses Crt;
CONST
Desc = 15; {le haremos un 15% de descuento}
VAR
Unidades, precio: INTEGER;
Total, cantDesc: REAL;
PROCEDURE descuento (VAR cantidad, descuento: REAL; porciento: INTEGER);
BEGIN
Descuento := cantidad * porciento/100; {el descuento es
el 15% del total}
Cantidad := cantidad - descuento; {la cantidad final
es la cantidad - el descuento}
END;
BEGIN
ClrScr;
WRITE('Introduzca el numero de unidades: ');
READLN(unidades);
WRITELN;
WRITE('Introduzca el precio: ');
READLN(precio);
WRITELN;
Total := precio * unidades; {Calculamos el total}
IF (unidades > 5) THEN descuento (total, cantDesc, desc) {aplicamos
el descuento}
ELSE cantDesc := 0;
WRITELN('Total: ',total:5:2,' Descuento: ',cantdesc:5:2); {
escribimos en pantalla el total y el descuento}
REPEAT Until Keypressed;
END.
- Hacer un programa que calcule el area de un círculo (usar un PROCEDURE).
PROGRAM area (INPUT, OUTPUT);
Uses Crt;
VAR radiocirc, resultado: REAL;
PROCEDURE areacirculo (radio: REAL; VAR area: REAL);
CONST pi = 3.1415926535;
BEGIN
area := pi * SQR(radio);
END;
BEGIN
ClrScr;
WRITE('Introduzca el radio del circulo: '); READLN
(radiocirc);
WRITELN;
IF (radiocirc > 0) THEN
BEGIN
areacirculo(radiocirc, resultado); {radiocirc se
corresponde con radio y resultado con area}
GOTOXY(20,5);
WRITELN('El area del circulo es: ',resultado:8:2);
END
ELSE
WRITE('No puede introducir un radio negativo.');
REPEAT Until Keypressed;
END.
|
|