Ejemplos de Turbo Pascal

5Mar/060

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.