Expresiones+aritméticas

toc =Cociente y resto con variables de tipo real=

code format="pascal" PROGRAM CocienteResto_Real ; VAR rCociente, rResto, rDividendo, rDivisor : Real ; BEGIN write ('Dividendo: ') ; readln (rDividendo) ;

write (' Divisor: ') ; readln (rDivisor) ;

cociente := Int (rDividendo / rDivisor) ;

resto   := Frac (rDividendo / rDivisor) * rDivisor ;

writeln ('cociente: ', cociente:0:2) ; writeln ('  resto: ', resto:0:2) ;

Readln ; END.

code

=Cociente y resto con variables de tipo entero=

code format="pascal" PROGRAM Garrafas_1 ; VAR iLitros, iGarrafas_15, iGarrafas_6, iResto : Integer ; BEGIN Writeln ('Programa que lee los litros de un pedido y luego') ; WriteLn ('indica las garrafas de 15 y de 6 litros necesarias') ; WriteLn ; Write ('Nº de litros del pedido: ') ; Readln (iLitros) ;

iGarrafas_15 := iLitros DIV 15 ; iResto      := iLitros MOD 15 ;

iGarrafas_6 := iResto DIV 6 ; iResto      := iResto MOD 6 ;

WriteLn ; WriteLn ('Se necesitan ', iGarrafas_15:3, ' de 15 litros') ; WriteLn ('            ', iGarrafas_6 :3, ' de  6 litros') ; WriteLn ; WriteLn ('No se pueden servir: ', iResto, ' Litros') ;

Readln ;

END. { Fin de Garraf_1.PAS } code

=Suma de los dígitos de un número entero de tres cifras=

code format="pascal" PROGRAM suma_digitos ; VAR iNumero, iSuma, iCantidad : Integer ; BEGIN Write ('Escribe un número entero (-999 .. 999): ') ; ReadLn (iNumero) ;

iNumero := Abs (iNumero) ;

iSuma := 0 ;

iCantidad := iNumero MOD 10 ; { unidades del número inicial } iNumero  := iNumero DIV 10 ; { parte restante del nº } iSuma := iSuma + iCantidad ;

iCantidad := iNumero MOD 10 ; { decenas del número inicial } iNumero  := iNumero DIV 10 ; { parte restante del nº } iSuma := iSuma + iCantidad ;

iCantidad := iNumero MOD 10 ; { centenas del número inicial } iSuma := iSuma + iCantidad ;

WriteLn ('Sus dígitos suman: ', iSuma) ;

Readln ; END. code