Ejemplos de Turbo Pascal
Programa Trivial2.pas
Bueno este es un pequeño programa al estilo “Hellow World”, como estamos comenzado con pascal es un programa corto y de fácil compresion
trivial2.pas
| program hacer_algo; uses crt; begin clrscr; Writeln(‘este programa’); Writeln(‘ya hace algo (uff)..’); repeat until keypressed; end. |
Otro programa bastante fácil es el Trivial3.pas
El fin de este programa es unir dos lineas en una sola.
Trivial3.pas
| program UNA_LINEA; uses crt; begin clrscr; Write(‘Esto esta’); Write(‘ en ‘); Writeln(‘una sola línea.’); repeat until keypressed; end. |
El siguiente programa bueno.. a-comen.pas
Este programa es un poco del humor en la programación y bueno no muy lejano de la realidad.
a-comen.pas
| program de_todo_en_comentarios; uses crt; begin {este es el inicio del main program} (*Este tambien es un comentario ignorado por el programa*) {este tambien es ignorado} Writeln(‘Papa: Soy un estudiante de Pascal’); (*Comentario*) Writeln(‘Todos los estudiantes etamos siempre sin plata’); {comentario} (* Writeln(‘Enviame dinero’); Writeln(‘Enviame dinero’); *) Writeln(‘Realmente estoy pasando hambre’);end. (*Este es el final del main program *) |
Un programa de Enteros exint.pas
Este es un programa de manejo de variables integer.
exint.pas
| program enteros_extendidos; uses crt; var Index : integer; Big_int : longint; Small_int : shortint; Pos_int : word;Begin Clrscr; Index := MaxInt; Small_int := 127; Pos_int := Index + 256 * Small_int; Big_int := 1000 * MaxInt + 1234; Writeln(‘Index = ‘, Index:12); Writeln(‘Small_int = ‘, Small_int:12); Writeln(‘Pos_int = ‘, Pos_int:12); Writeln(‘Big_int = ‘, Big_int:12); Writeln; Big_int := 1000 * MaxInt + 1234; Writeln(‘Big_int = ‘,Big_int:12); repeat until keypressed; end. |
Programa de manejo variables allvars.pas
Bueno este programa usa las variables más importante a usar en pascal.
allvars.pas
| program tipos_de_Variables; uses crt; var A,B :integer; C,D :byte; Dog_Tail :real; Puppy :boolean; Animal_Cookies : char; begin clrscr; A := 4; B := 5; C := 212; D := C + 3; Dog_Tail := 345.12456; Puppy := B > A; (* como B es mayor que A, a Puppy se le asignara el valor Tre *) Animal_Cookies := ‘R’; (*este es un caracter *) Writeln (‘Los ingegers son: ‘,A:5,B:5); Writeln (‘Los Bytes son: ‘,C:5,D:5); Writeln (‘La variable real es: ‘,Dog_Tail:12:4); Writeln; Writeln (‘El valor de la varialbe booleana es: ‘, Puppy,Puppy:13); Writeln (‘El valor de la variable char es: ‘, Animal_Cookies); repeat until keypressed; end. |
Programa de manejo variables tipo boolean(Verdadero,Falso) boolmath.pas
Un ejemplo bastante completo diría yo soble el manejo de las variables tipo boolean.
boolmath.pas
| program Ilustra_varialbes_Booleanas; uses crt; var A,B,C,D : boolean; un_nombre_bien_booleano_grande_puede_ser_usado : boolean; Junk,Who : integer; begin clrscr; (*Clear Screen*) Junk := 4; Who := 5; A := Junk = Who; (*como Junk no es igual que Who A es False *) B := Junk = (Who – 1); {esto es True} C := Junk < Who; {esto es True} D := Junk > Who; {esto es False} un_nombre_bien_booleano_grande_puede_ser_usado := A or B ; {como B es True, el resultado es True} Writeln(‘El resultado de A es: ‘,A); Writeln(‘El resultado de B es: ‘,B); Writeln(‘El resultado de C es: ‘,C); Writeln(‘El resultado de un_nombre_bien_booleano_grande_puede_ser_usado es: ‘,un_nombre_bien_booleano_grande_puede_ser_usado); {a seguir algunas expresiones booleanas} A := A and C and D; Writeln(‘El resultado de A es: ‘,A); A := (B and C) or not D; Writeln(‘El resultado de A es: ‘,A); A := B or C or D; Writeln(‘El resultado de A es: ‘,A); A := (B and C) or not (C and D); Writeln(‘El resultado de A es: ‘,A); A := (Junk = Who -1) or (Junk = Who); Writeln(‘El resultado de A es: ‘,A); repeat until keypressed; end. |
Manejo de variables de tipo Char chardemo.pas
Manejo de variables tipo char al estilo pascal.
chardemo.pas
| program Demostracion_de_caracteres; uses crt; var Letter : char; Number : char; Dogfood : char; begin clrscr; Letter := ‘P’; Number := ‘A’; Dogfood := ‘S’; Write(Letter,Number,Dogfood); Letter := Number; Number := ‘L’; Dogfood := ‘C’; Write (Dogfood,Letter,Number); Writeln; repeat until keypressed; end. |