Ejemplo ciclo for pascal

-

Bueno aquí otro ejemplo en turbo pascal en esta ocasión mostrare el uso del for sacando la multiplicación de los primeros 10 números del numero introducido:

aqui el codigo
Program P3AE4 (input,output);

uses

 crt; 

Var

 numero,i,total,fact: Integer;

Begin

     writeln('Introdusca numero del cual quiere ver su multiplicacion del 1 al 10:');

  readln(numero);            

  

  for i:=1 to 10 do

    begin

    total:=numero*i;

      writeln(numero,' * ',  i,' = ',total);

  

   end;

readkey;



end.







Descargar código:



Comentarios

Publicar un comentario

Entradas más populares de este blog

Solucion al error collation desconocida: 'utf8mb4_0900_ai_ci'

-
Imagen
Exportando una base de datos en Ubuntu al querer impórtala por medio de phpmyadmin no se importa y muestra el siguiente error: collation desconocida: 'utf8mb4_0900_ai_ci' Para solucionar el problema y poder importar la base de datos deberás de abrirla por medio de tu editor de código y remplazar el texto " utf8mb4_0900_ai_ci " por " utf8mb4_general_ci " guardas la base de datos y al intentar importarla de nuevo ya te tiene que pasar. Solución hallada en:  https://www.freakyjolly.com/resolved-when-i-faced-1273-unknown-collation-utf8mb4_0900_ai_ci-error/#.X5wu14hKiUk
Read more »

Ejemplo de suma Pascal

-
Imagen
Aquí muestro un ejemplo simple de suma en pascal en el cual pide introducir dos números para luego sumarlos y mostrar el resultado : Program P3AE4 (input,output); uses crt; Var num1, num2, total: Integer; Begin writeln('Suma'); writeln('Ingrese el primer numero:'); readln(num1); writeln('Ingrese el segundo numero:'); readln(num2); total:= num1+num2; writeln('El total de la suma es: ',total); readkey; End. Si quiere restar, multiplicar o dividir solo deberían cambiar el símbolo "+" por el deseado. Descargar código: link Turbo Pascal
Read more »