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                                              

ASSEMBLER 8085

;FR    La multiplication par additions successives
;PT    MULTIPLICACAO POR SOMAS SUCESSIVAS
;EN   Multiplication by successive additions

;FR    Le résultat est valable uniquement si moins d'un octet
;PT    O RESULTADO NAO PODE EXCEDER 1 BYTE
;EN   The result is only valid if less than one byte    

DADOS        EQU 2000h
CODIGO       EQU 3000h

                   ORG DADOS
NUM1:        DB 1    
NUM2:        DB 1   
   
       
                  ORG CODIGO
BEGIN:            LXI H,NUM1       ; HL APONTA NUM1
                        LDA NUM2;
                        CMP M                ; instrucctions to put
                        JC CONDICAO    ; the counter
                        MOV A,M            ; with the less number that we have
                        LXI H,NUM2       ; to multiply
CONDICAO:    MOV C,A   
                        INR C   
                        MVI A,0
LOOP:              DCR C
                        JZ FIM
                        ADD M
                        JMP LOOP
          
FIM:                RST 1


EN: The result of multiplying NUM1 by NUM2 is in the accumulator now at the end
FR: Le acumulateur va rester avec le resultat de la multiplication de le NUM1 e NUM2
PT: O resultado da multiplicação de NUM1 pelo NUM2 fica no acumulador 

means:         ça veux dire:          quer dizer:

A=NUM1xNUM2

very nice!

EN

Welcome to the blog. I intend to publish this blog with various topics utilities (and curiosities) in various fields (mathematics, electricity, electronics, physics, programming, crafts ....) and I will support in the English French and Portuguese where possible. I will make an effort to bring information to people who do not speak more than one language and I apologize for my language errors ....

I hope soon start posting topics I'm already preparing. Go following the blog at any time there will be news.

____________________________________________________
PT

Bem vindos ao blog. Pretendo neste blog publicar temas diversos com utilidades (e também curiosidades ) em vários domínios (matematica, electricidade, electrónica, fisica, programação, trabalhos manuais....) e vou tentar dar suporte nas línguas Inglesa Francesa e Portuguesa. Vou fazer um esforço para levar a informação a pessoas que não falam mais que uma língua e peço desculpa nos meus erros de linguagem....

Espero dentro em breve começar a postar os temas que já estou a preparar. Vá seguindo o blog a qualquer momento haverá novidades.

_____________________________________________________
FR

Bienvenue sur le blog. Je compte publier ce blog avec de "choses" utiles (et curiosités) dans divers domaines (mathématiques, l'électricité, l'électronique, la physique, de la programmation, de l'artisanat ....) et je vais essayer de soutenir dans les langues anglaise français et portugais. Je vais faire un effort pour apporter des informations aux personnes qui ne parlent pas plus d'une langue et je excuses dans mes erreurs linguistiques ....

Je l'espère bientôt commencer à poster des sujets que je suis déjà en préparation. Aller suivant le blog à tout moment, il y aura des nouvelles.