ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

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 *)


Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399
 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