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: Tablas de multiplicar

Ejemplo de cómo escribir en pantalla las tablas de multiplicar, usando

Lenguaje: Pascal (compilador: FreePascal)

Categoría: Básico

(* Fuente procedente de ErrorDeSintaxis.es *)
(* Ejemplo de cómo escribir en pantalla las *)
(*  tablas de multiplicar, usando  *)
(* 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=116 *)

Program For3;
 
var
  tabla, numero: integer;
 
begin
  for tabla := 1 to 5 do
    begin
    for numero := 1 to 10 do
      writeln( tabla, ' por ', numero ,' es ', tabla * numero );
    writeln;                 (* Línea en blanco *)
    end;
end. 
 

 
Resultado:

1 por 1 es 1
1 por 2 es 2
1 por 3 es 3
1 por 4 es 4
1 por 5 es 5
1 por 6 es 6
1 por 7 es 7
1 por 8 es 8
1 por 9 es 9
1 por 10 es 10

2 por 1 es 2
2 por 2 es 4
2 por 3 es 6
2 por 4 es 8
2 por 5 es 10
2 por 6 es 12
2 por 7 es 14
2 por 8 es 16
2 por 9 es 18
2 por 10 es 20

3 por 1 es 3
3 por 2 es 6
3 por 3 es 9
3 por 4 es 12
3 por 5 es 15
3 por 6 es 18
3 por 7 es 21
3 por 8 es 24
3 por 9 es 27
3 por 10 es 30

4 por 1 es 4
4 por 2 es 8
4 por 3 es 12
4 por 4 es 16
4 por 5 es 20
4 por 6 es 24
4 por 7 es 28
4 por 8 es 32
4 por 9 es 36
4 por 10 es 40

5 por 1 es 5
5 por 2 es 10
5 por 3 es 15
5 por 4 es 20
5 por 5 es 25
5 por 6 es 30
5 por 7 es 35
5 por 8 es 40
5 por 9 es 45
5 por 10 es 50