Turbo Pascal

(* FOR_01.PAS Lazo for con variable de control de tipo char. Determinar los valores ASCII's de las letras mayusculas, de las letras minusculas y de los valores numeros y mostralos en pantalla. NOTA: Aqui se muestra que la variable de control puede muy bien ser utilizada en operacions de procesamiento, pero sin cambiarle nunca su valor intrinseco.---------------------------------------------------------- *) uses crt; var Car Col Fila : char; : integer; : integer;

begin (* main *) clrscr; highvideo; Col:=20; Fila:=1; for Car:='A' to 'W' do writeln(Car:3,ord(Car):5); for Car:='a' to 'w' do begin gotoxy(Col,Fila+(ord(Car)-ord('a'))); write(Car,ord(Car):5); end; Col:=Col+20; for Car:='0' to '9' do begin gotoxy(Col,Fila+(ord(Car)-ord('0'))); write(Car,ord(Car):5); end; readkey; end.

(*FOR_2.PAS Calcular y mostrar el seno de angulos comprendidos entre 1 y 90 grados pero con un paso de 5. NOTA: Esta es una forma de cambiar el paso de un lazo for mediante un artificio. --------------------------------------------------------------- *) uses crt; const Krad var Fi Alfa SenoAlfa = : : : PI/180; integer; integer; double;

begin (* m ain *) clrscr; highvideo; for Fi:=1 to 18 do beginif(Fi=0)then Alfa:=Fi else Alfa:=Fi*5; SenoAlfa:=sin(Alfa*Krad); writeln(Alfa:10,SenoAlfa:10:3); end; readkey; end.

(* FOR_03.PAS Tomar valores no convencionales para la variable de control de un lazo for. --------------------------------------------------------------- *) uses crt; var i : integer; Linf : integer; Lsup : integer;

begin (* main *) clrscr; highvideo; Linf:=-10; Lsup:=10; fori:=Linf to Lsup do writeln(i:10); readkey; end.

(* CASE_01.PAS Desarrollar un codigo que permita ingresar un digito entre 0 y 9 y lo convierta en su equivalente literal. Por ejemplo: 2 --> DOS NOTA: Se anima a hacer modificaciones en el programa de manera que ahora tabaje con valores entre 0 y 100? --------------------------------------------------------------- *) uses crt; var N : integer;begin (* main *) clrscr; highvideo; N:=8; case N of 0 1 2 3 4 5 6 7 8 9 end; readkey; end. : : : : : : : : : : writeln(' writeln(' writeln(' writeln(' writeln(' writeln(' writeln(' writeln(' writeln(' writeln(' CERO'); UNO'); DOS'); TRES'); CUATRO'); CINCO'); SEIS'); SIETE'); OCHO'); NUEVE');

(* CASE_02.PAS Mejorar el programa anterior de manera que ahora pueda descomponer un numero enterode cualquier magnitud (longint). ---------------------------------------------------------------- *) uses crt; var N Naux Dig Fact Ndigs i : : : : : : longint; longint; integer; longint; integer; integer;

begin (* main *) clrscr; highvideo; N:=7354268; (* --- determina cantidad de digitos de N --- *) Naux:=N; Ndigs:=0; repeat Ndigs:=Ndigs+1; Naux:=Naux DIV 10; until(Naux0) do begin Dig:=N DIVFact; case Dig of 0 : writeln(' CERO'); 1 : writeln(' UNO'); 2 : writeln(' DOS'); 3 : writeln(' TRES'); 4 : writeln(' CUATRO'); 5 : writeln(' CINCO'); 6 : writeln(' SEIS'); 7 : writeln(' SIETE'); 8 : writeln(' OCHO'); 9 : writeln(' NUEVE'); end; N:=N-(N DIV Fact)*Fact; Fact:=Fact DIV 10; end; readkey; end.

(* CASE_03.PAS El siguiente programa ingresara por teclado 10 caracteres y detectara sison vocales, almacenando la cantidad de repeticiones con que salieron. Mostrar estos valores en pantalla. ---------------------------------------------------------------- *) uses crt; var Car Voc_A Voc_E Voc_I Voc_O Voc_U i : : : : : : : char; integer; integer; integer; integer; integer; integer;

begin (* main *) clrscr; highvideo; Voc_A:=0; Voc_E:=0; Voc_I:=0; Voc_O:=0; Voc_U:=0; for i:=1 to 10do begin Car:=readkey; writeln(' ',Car); case Car of 'a','A' 'e','E' 'i','I' 'o','O' 'u','U' end; end; writeln('-----------------'); writeln(' Voc_A : ',Voc_A); writeln(' Voc_E : ',Voc_E); : : : : : Voc_A:=Voc_A+1; Voc_E:=Voc_E+1; Voc_I:=Voc_I+1; Voc_O:=Voc_O+1; Voc_U:=Voc_U+1;

writeln(' Voc_I : ',Voc_I); writeln(' Voc_O : ',Voc_O); writeln(' Voc_U : ',Voc_U); readkey; end. (* CASE_04.PAS...