GeoAvila (Geovanny G. Avila) Desarrollo.. de software.

5Mar/060

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.
No TweetBacks yet. (Be the first to Tweet this post)
Filed under: Pascal Leave a comment
Comments (0) Trackbacks (0)

No comments yet.


Leave a comment


No trackbacks yet.

Sigueme en Twitter

Recent Posts

Amigos de Twitter

xanderall
_Narima
_Narima
glorialonzo
xanderall
eljorgeluis
anissette
gnduran
arigalt
wgavila
machpablo
romerogt
WendyGalvez
novell
google
lfer31
lexsoul
darkvander
SilvitaGG
anitagt
Microsoft
AlcaldeArzu
mysql
axelopez
magjogui
darkela
andreitaQC
Ale928
titiburgos
rudygiron
josuepalacios
elsum
muniguate
mitsumits
saburack
veruku
Friends: 180 Followers: 280

Categories

Sitios amigos

Algunos Derechos Reservados

Blog bajo licencia Creative Commons Attribution-ShareAlike 3.0 License
Creative Commons License