Ejemplos de Turbo Pascal

GeoAvila — Sun, 05 Mar 2006 18:08:24 +0000

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.

Turbo Pascal

GeoAvila — Sun, 05 Mar 2006 18:04:57 +0000

Turbo Pascal:
Bueno aqui estan dos herramientas muy utilies las cuales escogí de de muchas otras otras una de ellas el Turbo Pascal 7, que es uno de los mejores pero para salir de la rutina y comenzar a ver el Pascal el pantalla tipo Windows® entonces dejo aqui el TMT, el cual posee esta caracteristica con Windows® , Bueno yo por lo particular utilizo como herramienta de compresion el Winrar el cual lo podemos encontrar en www.rarlab.com aqui seguidamente el Turbo pascal.

DesgararTurboPascal

ya teniendo esto pasamos a un par de ejemplo que básicamente son los que le comienza a uno a programar la parte de los tipos se los debo por el momento así que monto directamente un par de ejemplos.

nos vemos..

GeoAvila (Geovanny G. Avila) » Pascal

Ejemplos de Turbo Pascal

Turbo Pascal