Datos

toc =__**DATOS y PARTES DE UN PROGRAMA**__= > > **Dato es cualquier información manipulada por el computador y que necesita de un espacio de almacenamiento en la memoria del computador durante la ejecución del programa.**

code format="pascal" PROGRAM Perimetro_Rectangulo ; {$MODE TP} CONST CM_PULGADA = 2.54 ; VAR Largo, Ancho, Perimetro : Integer ;

BEGIN { PROGRAMA PRINCIPAL } { Presentar el programa } WriteLn ('Calculo del perimetro de un rectangulo') ; Writeln ;

{ Leer las dimensiones del rectánculo } Write  (' Largo (en cm): ') ; ReadLn (Largo) ; Write  (' Ancho (en cm): ') ; ReadLn (Ancho) ;

{ Calcular el perímetro en cm } Perimetro := (Largo + Ancho) * 2 ;

{ Mostrar el perímetro en cm y en pulgadas } Writeln ; WriteLn ('    Perimetro: ', Perimetro, ' cm ',            ' ( ', Perimetro / CM_PULGADA :0:2 , '" ) ') ;

WriteLn ; Write ('Pulsa una tecla para finalizar') ; ReadLn ;

END. { FIN del PROGRAMA }

NOTA: Se podría haber puesto: WriteLn ('    Perimetro: ', Perimetro, ' cm ', ' ( ', Perimetro / CM_PULGADA :0:2, '" ) ') ;

code

code format="pascal" PROGRAM FraccionIrreducible ; {$MODE TP} VAR iNumerador_1, iDenominador_1, iNumerador_2, iDenominador_2, iMCD: Integer ;

{ Subprograma (función) que calcula el Maximo Común Divisor de dos números positivos } FUNCTION fniCalcularMCD (iNum_1, iNum_2 : Integer) : Integer ; BEGIN WHILE iNum_1 <> iNum_2 DO       IF iNum_1 > iNum_2 THEN iNum_1 := iNum_1 - iNum_2 ELSE iNum_2 := iNum_2 - iNum_1 ;

fniCalcularMCD := iNum_1 END ;

BEGIN { PROGRAMA PRINCIPAL }

{ Leer los datos de la fracción: Numerador y denominador } WriteLn ('Escribe una fraccion') ;

Write ('  Numerador: ') ; Readln (iNumerador_1) ;

Write ('Denominador: ') ; Readln (iDenominador_1) ;

{ Cálculo Del Máximo Común Divisor } iMCD := fniCalcularMCD (Abs (iNumerador_1), Abs (iDenominador_1)) ;

{ Cálculo de fracción equivalente (nuevos numerador y denominador) } iNumerador_2  := iNumerador_1   DIV iMCD ; iDenominador_2 := iDenominador_1 DIV iMCD ;

{ Mostrar ambas fracciones } Writeln ; Writeln (iNumerador_1 :7, iNumerador_2 :10) ; Writeln ('---':7,  '  =  ', '---') ; Writeln (iDenominador_1 :7, iDenominador_2 :10) ;

Writeln ; ReadLn ;

END. { Fin del programa FracIrr.PAS }

code

=Programas propuestos=


 * Escribir un programa que sirva para calcular la longitud de una circunferencia
 * Escribir un programa que, a partir de una fecha (mes y dia) calcule los dias transcurridos del año. Se supondrá que todos los meses tiene 30 días.