programacion

Programas de Pascal


Program holamundo;
Uses crt;
Begin
Clrscr;
Write(‘hola’);
Readkey;
End.





Program suma;
Uses crt;
Var a,b,c:integer;
Begin
Clrscr;Write(‘introdusca un numero’);
Readln(a);
Write(‘introdusca otro número’);
Readln(b);
C:=a¬¬¬+b;
Write(‘el resultado es’);
Write(c);
Readkey;
End.


Program división;
Uses crt;
Var a,b,c:=integer;Begin
Clrscr;
Write(‘introdusca un numero’);
Readln(a);
Write(‘introdusca otro número’);
Readln(b);
Write(‘el resultado es:’);
C:=a/b;
Write(c);
Readkey;
End.


Program saludo;
Usescrt;
Var nombre:string;
Begin
Clrscr;
Write(‘hola cuál es tu nombre’);
Read(nombre);
Write(‘bienbenido’,nombre);
Readkey;
End.

 
Program triangulo;
Uses crt;
Var lado1,lado2,lado3:real;Begin
Clrscr;
Writeln(‘introdusca los 3 lasdos de 1 triangulo’);
Writeln(‘ ‘);
Writeln(‘lado1:’); readln(lado1);
Writeln(‘lado2:’); readln(lado2);Writeln(‘lado3:’); readln(lado3);
If(lado1=lado2) and (lado2=lado3) then
Write(‘el triangulo es equilatero’)
Else
If(lado1=lado3) or (lado2=lado3) or (lado1=lado3) then
Else
Write(‘el trianguloes escaleno’);
Readkey;
End.


















Program sentenciasifthenelse;
Uses crt;
Var n, r:integer;
Begin
Clrscr;
Randomize;
R:=random(5)+1;
Write(‘ingrese unnumero entre 1 y 5:’);
Readln(n);
If(r=n)
Then
Begin
Writeln(‘adivino!!!!!!!!!!!!!’);
Writeln(‘felicitaciones’);
End
Else
Begin
Writeln(‘no adivino!!!!!!!!’);
Writeln(‘el numeroera:’,r);
End;
Writeln;
Writeln(‘fin del programa!!!!!!!!!’);
Readkey;
End.


 
Program sentenciafor;
Uses crt;
Var x: integer;
Begin
Clrscr;
Writeln(‘numero del 10 al 1’);
For x:=10downto 1 do
Begin
Write(‘numero’);
Writeln(x);
Delay(500);
End;
Readkey;
End.

 
Program sentenciafor;
Uses crt;
Var a,b,c: integer;
Begin
Clrscr;
Write(‘introdusca un...