3 Ejercicios en dev pascal resueltos - parte 1

3 Ejercicios en pascal resueltos #1

1- programa hecho en pascal que descubra por si solo si el número que haz agregado es positivo o negativo.

program pos_neg;

uses crt;

var

n:integer;

begin

writeln ('introduzca un numero');

readln (n);

if (n>=0) then

 begin

  writeln ('el numero es positivo');

 end

else // n<0

 begin

  writeln ('el numero es negativo');

 end;

readln;

end.

2-Escribir un programa en pascal que determine el mayor, el intermedio y el menor de tres números tipo integer

program compara_numeros(input,output);

var

numero_a,numero_b,numero_c,mayor,intermedio,menor:integer;

begin

writeln('ingrese primer numero');

readln(numero_a);

writeln('ingrese segundo numero');

readln(numero_b);

writeln('ingrese tercer numero');

readln(numero_c);

if(numero_a=numero_b) and (numero_a=numero_c) then

begin

writeln('los 3 numeros son iguales');

writeln('presione ENTER para terminar');

readln;

end;

begin

if(numero_a>numero_b) and (numero_a>numero_c) then mayor:=numero_a;

if(numero_b>numero_a) and (numero_b>numero_c) then mayor:=numero_b;

if(numero_c>numero_a) and (numero_c>numero_a) then mayor:=numero_c;

if(numero_a<numero_b) and (numero_a<numero_c) then menor:=numero_a;

if(numero_b<numero_a) and (numero_b<numero_c) then menor:=numero_b;

if(numero_c<numero_a) and (numero_c<numero_b) then menor:=numero_c;

if(numero_a<mayor) and (numero_a>menor) then intermedio:=numero_a;

if(numero_b<mayor) and (numero_b>menor) then intermedio:=numero_b;

if(numero_c<mayor) and (numero_c>menor) then intermedio:=numero_c;

writeln('el numero mayor es: ',mayor);

writeln('el numero menor es: ',menor);

writeln('el numero intermedio es: ',intermedio);

writeln('presione ENTER para terminar');

readln;

end;

end.

 

3- Obtenga en pascal dos números y muestre por pantalla la suma, el producto, la resta, el residuo y la división de esos dos números. 

program demostracion_de_calculacion;

var

numero1,numero2,suma:integer;

numero3,numero4,resta:integer;

numero5,numero6,multiplicacion:integer;

numero7,numero8,division:integer;

procedure pedirsuma;

begin

 writeln('introduzca numero1');

 readln(numero1);

 writeln('introduzca numero2');

 readln(numero2);

end;

procedure calcularsuma;

begin

 suma:=numero1+numero2;

end;

procedure mostrarsuma;

begin

 writeln('su suma es: ',suma);

end;

 procedure pedirresta;

begin

 writeln('introduzca numero3');

 readln(numero3);

 writeln('introduzca numero4');

 readln(numero4);

end;

procedure calcularresta;

begin

 resta:=numero3-numero4;

end;

procedure mostrarresta;

begin

 writeln('su resta es: ',resta);

end;

  procedure pedirmultiplicacion;

begin

 writeln('introduzca numero5');

 readln(numero5);

 writeln('introduzca numero6');

 readln(numero6);

end;

procedure calcularmultiplicacion;

begin

 multiplicacion:=numero5*numero6;

end;

procedure mostrarmultiplicacion;

begin

 writeln('su multiplicacion es: ',multiplicacion);

end;

 procedure pedirdivision;

begin

 writeln('introduzca numero7');

 readln(numero7);

 writeln('introduzca numero8');

 readln(numero8);

end;

procedure calculardivision;

begin

 division:=numero7 div numero8;

end;

procedure mostrardivision;

begin

 writeln('su division es: ',division);

end;

begin

 pedirsuma;

 calcularsuma;

 mostrarsuma;

 pedirresta;

 calcularresta;

 mostrarresta;

 pedirmultiplicacion;

 calcularmultiplicacion;

 mostrarmultiplicacion;

 pedirdivision;

 calculardivision;

 mostrardivision;

 readln;

end.