Turbo Pascal

Estructura de control. Lenguage de programación. Programación estructurada. Entrada-Salida de datos. Arrays. Cadenas. Punteros. Ficheros

  • Enviado por: Rómulo Merino Vallecillo
  • Idioma: castellano
  • País: México México
  • 20 páginas
publicidad
publicidad

Program Uno;

Var

Nombre:String[20];

Numero:Integer;

Begin

Writeln(' ¨Cu L Es Tu Nombre?');

Readln(Nombre);

Writeln(' Digite Un N£Mero ',Nombre);

Readln(Numero);

Writeln(' El Doble Del N£Mero Es ', Numero+Numero);

Writeln(' El Cuadrado Del N£Mero Es ',Numero*Numero);

Writeln(' El Inverso Del N£Mero Es ',1/Numero);

Writeln(' Adios ',Nombre);

Readln;

End.

Program Sumanum;

Var

N,E,S:Integer;

Begin

Writeln('Tecle El Numero A Sumar');Read(N);

E:=0;

S:=0;

Readln;

Repeat

E:=E+1;

S:=S+E;

Until (E=N);

Writeln(S);

Readln;

End.

Program Ciclos;

Uses

Wincrt;

Var

Z:Integer;

Begin

Writeln('El Valor Es: ',Z:7);

Z:=Z+1

Until Z=10001;

Readln;

End.

Program Suma;

Uses

Wincrt;

Var

Num,Contador,Contabis:Integer;

Begin

Writeln('Ingrese Un Numero');Readln(Num);

Contador:=0;

Contabis:=0;

Repeat

Contador:=Contador+1;

Contabis:=Contabis+Contador;

Writeln(Contador);

Until(Contador=Num);

Writeln(Contabis);

Readln

End.

Program Pract2;

Var

Costo,Depreciacion,Valor_Recuperacion:Real;

Valor_Actual,Acumulada,Valor_Anual:Real;

Anio,Vida_Util:Integer;

Begin

Write('Introduce El Costo :');Read(Costo);

Write('Introduce El Valor De Recuperacion:');Read(Valor_Recuperacion);

Write('Introduce La Vida Util :');Read(Vida_Util);

Write('Introduce El A¥O :');Read(Anio);

Valor_Actual:=Costo;

Depreciacion:=(Costo-Valor_Recuperacion)/Vida_Util;

Acumulada:=0;

Write('A¥O':7,2);

Write('Depreciacion Acumulada':15,2);

Writeln(Valor_Anual:14,2);

While Anio<Vida_Util Do

Begin

Acumulada:=Acumulada+Depreciacion;

Valor_Actual:=Valor_Actual-Depreciacion;

Write(Anio:8, Depreciacion:11:1, Acumulada:17);

Anio:=Anio+1;

Readln;

End

End.

Program Numeros;

Uses

Crt;

Var

Numero:Real;

Begin

Gotoxy(10,10);

Writeln('Introduzca Un Numero');

Read(Numero);

If Numero>0.0

Then

Writeln('El Numero Es Positivo')

Else

Writeln('El Numero Es Negativo');

Readln;

Gotoxy(30,25);

Writeln('Por Aqui Siempre Pasa El Programa');

Readln;

End.

Program Numeros;

Uses

CRT;

VAR

Numero:Real;

Begin

Clrscr;

Textcolor(GREEN);

Gotoxy (28,10);

Writeln ('Introduzca Un Numero');

Textcolor(Cyan);

Gotoxy (37,12);

Read(Numero);

Textcolor(RED);

Gotoxy (28,14);

If

Numero>0.0

Then

Writeln ('El Numero Es Positivo')

Else

Writeln('El Numero Introducido Es Negativo');

Readln;

Gotoxy (22,16);

Write('Por Aqui Siempre Pasa El Programa');

Readln;

End.

Program Compara;

Var

Nombre:String[30];

Cuatri:Integer;

Carrera:String[30];

Num1,Num2,Num3,Num4,Num5:Integer;

Begin

Writeln('Cual Es Su Nombre');Readln(Nombre);

Writeln('Su Cuatrimestre(1-9)');Readln(Cuatri);

Writeln('Que Carrera Estudia?');Readln(Carrera);

Writeln('Ingrese El Primer Numero ',Nombre);Readln(Num1);

Writeln('Ingrese El Segundo Numero ',Nombre);Readln(Num2);

Writeln('Ingrese El Tercer Numero ',Nombre);Readln(Num3);

Writeln('Ingrese El Cuarto Numero ',Nombre);Readln(Num4);

Writeln('Ingrese El Quinto Numero ',Nombre);Readln(Num5);

If Num1>Num2

Then

If Num1>Num3

Then

If Num1>Num4

Then

If Num1>Num5

Then

Writeln('El Mayor Es ',Num1);

If Num2>Num1

Then

If Num2>Num3

Then

If Num2>Num4

Then

If Num2>Num5

Then

Writeln('El Mayor Es ',Num2);

If Num3>Num1

Then

If Num3>Num2

Then

If Num3>Num4

Then

If Num3>Num5

Then

Writeln('El Mayor Es ',Num3);

If Num4>Num1

Then

If Num4>Num2

Then

If Num4>Num3

Then

If Num4>Num5

Then

Writeln('El Mayor Es ',Num4);

If Num5>Num1

Then

If Num5>Num2

Then

If Num5>Num3

Then

If Num5>Num4

Then

Writeln('El Mayor Es ',Num5);

Readln

End.

Program Tres;

Uses

Wincrt;

Var

Num1:Integer;

Num2:Integer;

Num3:Integer;

Begin

Clrscr;

Writeln('Indica Tres Numeros ');

Writeln;

Write('Numero 1: ');

Readln(Num1);

Write('Numero 2: ');

Readln(Num2);

Write('Numero 3: ');

Readln(Num3);

If Num1>Num2

Then

If Num1>Num3

Then

Write('El ',Num1,' Es El Mayor');

If Num2>Num3

Then

Write('El ',Num2,' Es El Mayor');

If Num3>Num1

Then

If Num3>Num2

Then

Write('El ',Num3,' Es El Mayor');

Readln;

End.

Program Cubo;

Var

Lado,Peri,Areac,Vol:Integer;

Begin

Writeln('Ingrese El Lado Del Cubo');Readln(Lado);

Peri:=Lado+Lado+Lado+Lado;

Areac:=Lado*Lado;

Vol:=Lado*Lado*Lado;

Writeln('El Perimetro Es: ',Peri);

Writeln('El Area Es: ',Areac);

Writeln('El Volumen Es: ',Vol);

Readln

End.

Program Ciclo1;

Var

X:Integer;

Begin

Repeat

Write('El Valor Es: ' ,X:7);

X:=X+1;

Until X=10001;

Readln;

End.

Program MIENTRAS;

VAR

I:Integer;

BEGIN

I:=1;

While I<= 99 Do

Begin

I:=I+4;

Writeln(I);

Readln;

Readln;

End;

END.

Program Algo;

Uses Crt;

Var

I:Integer;

Begin

Clrscr;

For I:=1+0 To 6 Do

Writeln('Numero[I]');

Readln;

Readln;

End.

Program Compara;

Var

Nombre:String[30];

Cuatri:Integer;

Carrera:String[30];

Num1,Num2,Num3,Num4,Num5:Integer;

Begin

Writeln('Cual Es Su Nombre');Readln(Nombre);

Writeln('Su Cuatrimestre(1-9)');Readln(Cuatri);

Writeln('Que Carrera Estudia?');Readln(Carrera);

Writeln('Ingrese El Primer Numero ',Nombre);Readln(Num1);

Writeln('Ingrese El Segundo Numero ',Nombre);Readln(Num2);

Writeln('Ingrese El Tercer Numero ',Nombre);Readln(Num3);

Writeln('Ingrese El Cuarto Numero ',Nombre);Readln(Num4);

Writeln('Ingrese El Quinto Numero ',Nombre);Readln(Num5);

If Num1>Num2

Then

If Num1>Num3

Then

If Num1>Num4

Then

If Num1>Num5

Then

Writeln('Muy Bien ',Nombre);

Writeln('El Mayor Es ',Num1);

If Num2>Num1

Then

If Num2>Num3

Then

If Num2>Num4

Then

If Num2>Num5

Then

Writeln('Muy Bien ',Nombre);

Writeln('El Mayor Es ',Num2);

If Num3>Num1

Then

If Num3>Num2

Then

If Num3>Num4

Then

If Num3>Num5

Then

Writeln('Muy Bien ',Nombre);

Writeln('El Mayor Es ',Num3);

If Num4>Num1

Then

If Num4>Num2

Then

If Num4>Num3

Then

If Num4>Num5

Then

Writeln('Muy Bien ',Nombre);

Writeln('El Mayor Es ',Num4);

If Num5>Num1

Then

If Num5>Num2

Then

If Num5>Num3

Then

If Num5>Num4

Then

Writeln('Muy Bien ',Nombre);

Writeln('El Mayor Es ',Num5);

Readln

End.

Program Procedimientos;

Uses

Crt,Dos;

Procedure Estrellas;

{Visualiza 15 Asteriscos}

Begin

Write('***************');

End;

Begin

Clrscr;

Estrellas;

Write('U.N.I.T.E.C.');

Estrellas;

Delay(3000);

End.

Program Uno;

Uses

Crt, Dos;

Var

Nombre: String[20];

Numero: Integer;

Procedure Estrellas;

{Visualiza 15 Asteriscos}

Begin

Write('***************');

End;

Begin

Clrscr;

Gotoxy(1,1);

Estrellas;

Write(' Cual Es Su Nombre ');

Estrellas;

Read(Nombre);

Gotoxy (4, 4);

Estrellas;

Write (' Digite Un Numero ', Nombre);

Estrellas;

Read(Numero);

Gotoxy (8, 8);

Estrellas;

Write('El Doble Del Numero Es ' , Numero + Numero );

Gotoxy (10,10);

Estrellas;

Write('El Cuadrado Del Numero Es ' , Numero * Numero );

Gotoxy (12,12);

Estrellas;

Write('El Inverso Del Numero Es ' , 1/Numero );

Gotoxy (14,14);

Estrellas;

Write(' Adios ', Nombre );

Delay(5000);

End.

Program KILOMETRAJE;

Var

Kmi,Kmf,Km: Integer;

Begin

Writeln ('Introduzca Km Inicial');

Read(Kmi);

Writeln('Kilometraje Final');

Readln(Kmf);

Writeln ('El Km Recorrido Es:',Kmf-Kmi);

Km:= Kmf - Kmi;

Begin

If Km <=300 Then

Writeln ('La Cantidad A Pagar Son: $5000')

Else

If Km <= 1000 Then

Writeln ('La Cantidad A Pagar Es:', 5000 + (Km-300)*30)

Else

If Km > 1000 Then

Writeln ('La Cantidad A Pagar Es:',((700*30)+ (Km-1000)*20))

Else

End;

Readln

End.

Program Grados;

Uses Crt;

Const Valf=1;

Var Farenheit:Real;

Centigrado:Real;

Ch:Char;

Mod1:Real;

Procedure Error;

Begin

Clrscr;

Gotoxy (11,12);

Writeln ('La Opcion Seleccionada No Es Valida, Vuelvelo A Intentar');

Gotoxy (20,22);

Writeln ('Presiona <Enter> Para Continuar.');

Ch:=Readkey;

End;

Procedure Grado1;

Begin

Clrscr;

Gotoxy (20,5);

Writeln ('De Grados Centigrados A Farenheit');

Gotoxy (15,10);

Write ('Dame Los Grados Centigrados : ');

Readln (Centigrado);

Farenheit:=Centigrado/(5/9)+32;

Gotoxy(15,14);

Writeln ('Los Grados Farenheit Son : ',Farenheit:8:2);

Gotoxy (20,22);

Writeln ('Presiona <Enter> Para Continuar.');

Ch:=Readkey;

End;

Procedure Grado2;

Begin

Clrscr;

Gotoxy (20,5);

Writeln ('De Grados Farenheit A Centigrados');

Gotoxy (15,10);

Write ('Dame Los Grados Farenheit : ');

Readln (Farenheit);

Centigrado:=(Farenheit-32)*(5/9);

Gotoxy(15,14);

Writeln ('Los Grados Centigrados Son : ',Centigrado:8:2);

Gotoxy (20,22);

Writeln ('Presiona <Enter> Para Continuar.');

Ch:=Readkey;

End;

Procedure General;

Begin

Repeat

Clrscr;

Gotoxy (25,5);

Writeln ('Menu Principal');

Gotoxy (10,10);

Writeln ('1. Convercion De Centigrados A Farenheit');

Gotoxy (10,14);

Writeln ('2. Convercion De Farenheit A Centigrados');

Gotoxy (10,18);

Writeln ('0.Salir');

Gotoxy (10,22);

Write ('Elige Tu Opcion : ');

Readln (Mod1);

If Mod1 <3 Then

Begin

If Mod1 =1 Then

Grado1;

If Mod1 =2 Then

Grado2;

End

Else

Error;

If Mod1 =0 Then

Begin

Clrscr;

Gotoxy (30,12);

Writeln ('Se Acabo El Programa');

Delay (5000);

Exit;

End;

Until Valf = 10;

End;

Begin

General;

End.

Program Examen1;

Var

Nombre:String[25];

Grupo:String[10];

Cuenta,Telefono:String[10];

Numero,Numdoble,Numcuad:Integer;

Edocivil:String[1];

Sexo:String[1];

Begin

Writeln('Ingrese Su Nombre: ');Readln(Nombre);

Writeln('Ingrese Su Cuenta(No Poner Guion): ');Readln(Cuenta);

Writeln('Ingrese Su Grupo: ');Readln(Grupo);

Writeln('Ingrese Su Telefono: ');Readln(Telefono);

Writeln('Ingrese Sexo ');Readln(Sexo);

Writeln('Edo.Civil S:Solt. C:Cas. V:Viud, U:Ulibre D:Divor.');

Readln(Edocivil);

Writeln('Ingrese Un Numero');Readln(Numero);

Writeln('Su Nombre Es ',Nombre);

Writeln('Su Cuenta Es ',Cuenta);

Writeln('Su Grupo Es ',Grupo);

Writeln('Su Telefono Es ',Telefono);

Writeln('Su Estado Civil Es: ',Edocivil);

Writeln('Sexo: ',Sexo);

Numdoble:=(Numero+Numero);

Numcuad:=(Numero*Numero);

Writeln('El Doble Del Numero Es ',Numdoble);

Writeln('El Cuadrado Es ',Numcuad);

Writeln('Que Le Vaya Bien ',Nombre);

Readln;

End.