Pascal: Operaciones aritméticas
Ejemplo de cómo realizar las principales operaciones aritméticas, usando Pascal
Lenguaje: Pascal (compilador: FreePascal)
Categoría: Básico
(* Fuente procedente de ErrorDeSintaxis.es *)
(* Ejemplo de cómo realizar las principales *)
(* operaciones aritméticas, usando Pascal *)
(* Lenguaje: Pascal *)
(* Compilador: FreePascal *)
(* Nivel: Básico *)
(* Disponible desde 28/06/2011 *)
(* Aportado por Nacho *)
(* Autor original: Nacho Cabanes *)
(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=49 *)
program operaciones; var e1, e2: integer; (* Numeros enteros *) r1, r2, r3: real; (* Números reales *) begin e1:=17; e2:=5; r1:=1; r2:=3.2; writeln('Empezamos...'); r3:=r1+r2; writeln('La suma de r1 y r2 es :', r3); writeln(' o también ', r1+r2 :5:2); (* Indicando el formato *) writeln('El producto de r1 y r2 es :', r1 * r2); writeln('El valor de r1 dividido entre r2 es :', r1 / r2); writeln('La diferencia de e2 y e1 es : ', e2 - e1); writeln('La división de e1 entre e2 : ', e1 / e2); writeln(' Su división entera : ', e1 div e2); writeln(' Y el resto de la división : ', e1 mod e2); writeln('El opuesto de e2 es :', -e2); end.
Resultado:
Empezamos... La suma de r1 y r2 es : 4.20000000000000E+000 o también 4.20 El producto de r1 y r2 es : 3.20000000000000E+000 El valor de r1 dividido entre r2 es : 3.12500000000000E-001 La diferencia de e2 y e1 es : -12 La división de e1 entre e2 : 3.4000000000000000E+0000 Su división entera : 3 Y el resto de la división : 2 El opuesto de e2 es :-5