Programas Basicos En Pascal

1. Escribe un programa en Pascal que dado los lados de un triangulo indique si es Equilátero, isósceles o escaleno.

program Triangulo;

uses crt;

var

a,b,c :integer ;

begin

clrscr;

writeln('Indique el lado A');

readln(a);

writeln('Indique el lado B');

readln(b);

writeln('Indique el lado C');

readln(c);

if(a=b) then

if (a=c) then

writeln('Esto es un triangulo Equilatero')

else

writeln('Esto es un triangulo Isosceles')

else

if (a=c) then

writeln('Esto es un triangulo Isosceles')

else

if (b=c) then

writeln('Esto es un triangulo Isosceles')

else

writeln('Esto es un triangulo Escaleno');

readln;

end.

2. Escribe un programa en Pascal dado dos números mostrar su sumatoria, resta, multiplicación y división.

program Calcular;

uses crt;

var

nu1,nu2: integer;

suma,resta,multiplicacion: integer;

opt : integer;

division: real;

begin

clrscr;

writeln('ingrese valor');

readln(nu1);

writeln('ingrese valor');

readln(nu2);

writeln('Para Sumar Ingrese 1');

writeln('Para Restar Ingrese 2');

writeln('Para Multiplicar Ingrese 3');

writeln('Para dividir Ingrese 4');

readln(opt);

if opt = 1 then

begin

suma:= nu1+nu2;

writeln('El resultado de la suma es :',suma);

end

else

if opt = 2 then

begin

resta:= nu1-nu2;

writeln('El resultado de la resta es:',resta);

end

else

if opt = 3 then

begin

multiplicacion:= nu1*nu2;

writeln('El resultado de la multiplicacion es:',multiplicacion);

end

else

if opt = 4 then

begin

division:= nu1/nu2;

writeln('El resultado de la division es:', division:0:2);

end

else

begin

writeln('Numero Invalido, debe ingresar entre las opciones 1,2,3 y 4');

end;

readln;

end.

3. Escribe un programa en Pascal que calcule la Equivalente en pies de una longitud de 15mts donde 1mt es igual a 39,27 pulgadas y 12pulgadas es igual a 1 pie

Program Longitudes;

Uses Crt;

Var

Result : Real;

Begin

Clrscr;

Result :=(15 * 39.27 ) / 12;

Writeln (' La Lonitud En Pies De 15 Metros Es = ', Result:0:2 , ' Pies');

Readln;

End.

4. Escribe un programa en Pascal que calcule una ecuación de 2º grado

Program Ecuacion;

Uses crt;

Var

A, B, C, result, raiz, denom, simpos, simneg : real;

Begin

Clrscr;

Writeln ('Introduce el valor de A');

Readln (A);

Writeln ('Introduce el valor de B');

Readln

...