multiplos pascal

program multiplos;

uses crt;
var i ,num1,num2 : byte;

BEGIN
    writeln('this program list the multiples of a two numbers until 200');
    writeln('programe pour doner les multiples de deux numeros jusqua 200');
    writeln('programa para calcular os multiplos de dois numeros até 200');
    writeln;
    writeln(' first number? premier numero? primeiro numero?');
    readln(num1);
    writeln(' another number? autre numero? outro numero?');
    readln(num2);
    for i:=1 to 200 do
    if (i mod num1=0) and (i mod num2=0) then write(i,' ');
END.

ASSEMBLER ADITION BCD

EN: Program to add the contents of the BC and DE records pairs in BCD and   place the result in result

PT:   Programa para somar os conteudos dos pares de registos BC e DE em BCD e colocar o resultado em result

FR: Programme pour adictioner les paires de registres BC et DE en BCD et placer le résultat dans result



inic:   mov a,e
          add c
          daa
          sta result
          mov a,d
          adc b
          daa
          sta result+1
          mvi a,0
          adc a
          sta result+2
         
          rst 1

_____________EXAMPLES_______________________

when the program run, if BC=2749 and DE=6448,  at the end of program
execution    result has 97, result+1 has 91 and result+2 has  0

_____________

when the program run, if BC=9052 and DE=2914, at the end of program
execution    result has 66, result+1 has 19 and result+2 has 1

  :)

PT: Multiplicação de polinómios
FR: La multiplication des polynômes
EN: Multiplication of polynomials

________________________________________________________________________________

          3+5(2+4)            = 33
          _____________________________________________

          3+5(2+x)            =13+5x
          _____________________________________________
                   
          x(3+2)                 =5x
          _____________________________________________

          (x+2)(x-1)           =x²+x-2
                                                                     x + 2
                                                                X   x  -  1
                                                                    -x  -  2
                                                           x² + 2x        
                                                           x² +   x  -  2

_______________________________________________________________________________


          (3x³-2x²+4x-2)(2x²-x+1)            =6x⁵-7x⁴+13x³-10x²+6x-2

                                               3x³- 2x² + 4x - 2
                                         X           2x²  -   x +1
                                            3x³ -   2x² + 4x - 2
                               - 3x⁴ +  2x³ -   4x² + 2x
                         6x⁵ - 4x⁴ +  8x³ -   4x²               
                         6x⁵ - 7x⁴ +13x³ -10x²  + 6x - 2
          _________________________________________________________________     


          (3x³+x) (x²+2)                        =3x⁵+7x³+2x
                                     
                                            3x³+ 0x² +   x  + 0
                                       X             x² +  0x + 2
                                           6x³ + 0x² +  2x +0
                         3x⁵ + 0x⁴ +  x³ + 0x²          
                         3x⁵         +  7x³          +  2x

______________________________________________________________________________

          (-2x³+2x²+3x-2)(-2x²-3x+2)          =4x⁵+2x⁴-16x³-x²+12x-4

                                                          -2x³ + 2x²+ 3x  -  2
                                                   X              -2x²  - 3x + 2
                                                      -    4x³ + 4x² + 6x  - 4
                                                6x⁴ -   6x³  -  9x² + 6x
                                       4x⁵ -  4x⁴ -   6x³ + 4x²               
                                      4x⁵ + 2x⁴ - 16x³  -   x²  +12x  - 4

         _________________________________________________________________

          (-2x³+x+3)(2x²+3)                          =-4x⁵-4x³+6x²+3x+9

                                                         -2x³ + 0x² +    x + 3
                                                     X            2x² +  0x + 3
                                                       - 6x³  + 0x² +  3x + 9
                                     -4x⁵ + 0x⁴ + 2x³  + 6x²               
                                     -4x⁵          -   4x³  + 6x² +  3x + 9