Turbo Pascal es un lenguaje de programación que tiene algunas similitudes con C++, es un lenguaje de alto nivel. Con Turbo pascal se pueden realizar diversas aplicaciones, desde las mas simples como es el de realizar operaciones aritmeticas, hasta las mas complejas como estructuras de base de datos, juegos, etc.

Código fuente

Program imprime; Uses crt; Begin Clrscr; Write('Holaaaaaaa a todos : '); Readln; End.

Código fuente

Código fuente

Program arit; Uses crt; Var a, b : Integer; s,r,m,d : Real; Begin Clrscr; Write('Ingrese el primer n£mero : '); Readln(a); Write('Ingrese el segundo n£mero : '); Readln(b); s :=a+b; r :=a-b; m :=a*b; d :=a/b; Writeln('El resultado de la suma es : ',s:0:2); Writeln('El resultado de la resta es : ',r:0:2); Writeln('El resultado de la multiplicaci¢n es : ',m:0:2); Writeln('El resultado de la divisi¢n es : ',d:0:2); Readln; End.

Código fuente

Program mayor; Uses crt; Var a, b : Integer; Begin Clrscr; Write('Ingrese el primer n£mero : '); Readln(a); Write('Ingrese el segundo n£mero : '); Readln(b); If a>b then Writeln('El mayor es : ',a) Else Writeln('El mayor es : ',b); Readln; End.

Código fuente

Program mayor; Uses crt; Var a, b, c, d, e, may : Integer; Begin Clrscr; Write('Ingrese el 1§ n£mero : '); Readln(a); Write('Ingrese el 2§ n£mero : '); Readln(b); Write('Ingrese el 3§ n£mero : '); Readln(c); Write('Ingrese el 4§ n£mero : '); Readln(d); Write('Ingrese el 5§ n£mero : '); Readln(e); If a>b then may :=a Else may :=b; If c>may then may :=c; If d>may then may :=d; If e>may then may :=e; Write('El mayor es: ',may); Readln; End.

Código fuente

Program triangulo; Uses crt; Var a, b, c : Integer; Begin Clrscr; Write('Ingrese cateto opuesto : '); Readln(a); Write('Ingrese cateto adyacente : '); Readln(b); Write('Ingrese la hipotenusa : '); Readln(c); If (a+b<c) or (a+c<b) or (b+c<a) Then Write('No forman un triangulo') else If (a=b) and (b=c) and (a=c) Then Write('forman un tri ngulo equil tero') else If (a=b) or (b=c) or (a=c) Then Write('forman un tri ngulo is¢celes') else If (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) Then Write('forman un tri ngulo rect ngulo') else Write('forman un tri ngulo escaleno'); Readln; End.