Programas en pascal

Solo disponible en BuenasTareas
  • Páginas : 7 (1685 palabras )
  • Descarga(s) : 7
  • Publicado : 3 de agosto de 2010
Leer documento completo
Vista previa del texto
program suma;
Var
s1,s2,r: integer;
begin
writeln (‘ Este es un programa que suma 2 numeros’);
writeln (‘ Introduce un numero’);
read (s1);
writeln (‘ Introduce otro numero’);
read (s2);
r: = s1+s2
writeln (‘ El resultado de su suma es: ‘, r);
readkey;
end.

program resta;
Var
s1,s2,r: integer;
begin
writeln (‘ Este es un programa que resta 2 numeros’);
writeln (‘ Introduceun numero’);
read (s1);
writeln (‘ Introduce otro numero’);
read (s2);
r: = s1-s2
writeln (‘ El resultado de su resta es: ‘, r);
readkey;
end.

program multiplica;
Var
s1,s2,r: integer;
begin
writeln (‘ Este es un programa que multiplica 2 numeros’);
writeln (‘ Introduce un numero’);
read (s1);
writeln (‘ Introduce otro numero’);
read (s2);
r: = s1*s2
writeln (‘ El resultadode su multiplicacion es: ‘, r);
readkey;
end.

program divide;
Var
s1,s2,r: integer;
begin
writeln (‘ Este es un programa que divide 2 numeros’);
writeln (‘ Introduce un numero’);
read (s1);
writeln (‘ Introduce otro numero’);
read (s2);
r: = s1 div s2
writeln (‘ El resultado de su division es: ‘, r);
readkey;
end.

program menu;
uses crt;
var
num1, num2, res, opc: integer;begin
clrscr;
writeln (‘ Menu’);
writeln (‘ 1: Suma’);
writeln (‘2: Resta’);
writeln (‘ 3: Multiplicacion’);
writeln (‘4: Division ’);
writeln (‘ 5: Salir ’);
writeln (‘ 5: Selecciona una opcion ’);
read (opc );
case opc of
‘1’:
Begin
clrscr;
writeln(‘Estas en la opcionsuma ‘);
writeln (‘ Introduce un numero’);
read (num1);
writeln (‘ Introduce otro numero’);
read (num2);
res: = num1+num2
writeln (‘ El resultado de su suma es: ‘, res);
readkey;
end;
‘2’:
Begin
clrscr;
writeln(‘Estas en la opción resta‘);
writeln (‘ Introduce un numero’);read (num1);
writeln (‘ Introduce otro numero’);
read (num2);
res: = num1-num2
writeln (‘ El resultado de su resta es: ‘, res);
readkey;
end;

‘3’:
Begin
clrscr;
writeln(‘Estas en la opción multiplicacion‘);
writeln (‘ Introduce un numero’);
read (num1);
writeln (‘ Introduce otronumero’);
read (num2);
res: = num1*num2
writeln (‘ El resultado de su multiplicacion es: ‘, res);
readkey;
end;

‘4’:
Begin
clrscr;
writeln(‘Estas en la opción division‘);
writeln (‘ Introduce un numero’);
read (num1);
writeln (‘ Introduce otro numero’);
read (num2);
res: =num1 div num2
writeln (‘ El resultado de su division es: ‘, res);
readkey;
end;
‘5’:
Exit
Else
Writeln (‘Tecla no valida’);
Readkey;
end;
End.

Program areas;
Uses crt;
Var
Lado, base, altura, res: integer;
Begin
Repeat
Clrscr;
Writeln (‘Menú’);
Writeln (‘1. Área de cuadrado’);
Writeln (‘2. Área de triangulo’);
Writeln (‘3.Salir’);
Writeln (‘Selecciona una opción’);
Read (opc);
Case opc of
‘1’:
Begin
Clrscr;
Writeln (‘Estas en la opción área de cuadrado’);
Writeln (‘Estas en la opción área de cuadrado’);
Read (lado);
Res:= lado*lado;
Writeln(‘El resultado de tu cuadrado es:’ , res);
readkey;
end;
‘2’:
Begin
Clrscr;
Writeln (‘Esta es laopción área de triangulo’);
Writeln (‘Teclea el valor de la base de triangulo’);
Read (base);
Writeln ( Teclea el valor de la altura’);
Read (altura);
Res:= ((base*altura) div 2);
Writeln (‘El resultado de tu área de triangulo es:’, res);
Readkey;
End;
‘3’: exit
Else
Writeln(‘Tecla no valida’);
Readkey;
End;
Until (opc=’5’);
End.

Program escribeenteros;...
tracking img