programa em pascal

program exemplo;
uses crt;
var quantidade:real;
   preco:real;
begin
  clrscr;
  writeln;
  writeln('Programa para calcular o custo total de uma certa quantidade');
  writeln('de mercadoria a um determinado preço');
  writeln;
  repeat
     writeln;
     writeln('quantas unidades ? "introduza 0 para saír"'); 
     readln(quantidade);
     if(quantidade>0) then
     begin
       writeln('qual o preço de cada unidade?');
       readln(preco);
       if(preco>0) then writeln(' tem a pagar ', quantidade*preco);
     end;
  until quantidade=0;
end.

------------------------ output do programa-----------------------------------------------

A=(2,1) B=(-1,-2) C=(3,-2) D=(-3,1) E=(0,4) F=(0,-1) G=(4,0) H=(-2,0)

PT: Marcação de pontos no referencial cartesiano
EN: Plot points in the cartesian reference
FR: Tracer de points dans le repere cartesian
A=(2,1)  B=(-1,-2)   C=(3,-2)  D=(-3,1)  E=(0,4)   F=(0,-1)   G=(4,0)   H=(-2,0)

PT:  sistema de duas equações a duas incógnitas.

EN: two equations with two unknowns system.
FR: deux équations à deux inconnues système.

PT:  Os funcionarios de uma empresa são 12. A quantidade de mulheres que trabalha na empresa é o dobro dos homens. Quantas mulheres e quantos homens trabalham na empresa?
vamos fazer x=quantidade de homens e y =quantidade de mulheres, então vem:

|  x+y=12       | x+2x=12         | 3x=12       | x=12/3     |  x=4    | ---          |x=4
|  2x=y           |  ---------------     | ----------       | ----------     | -------    | y=2*4   |y=8

Temos então a trabalhar na empresa 4 homens e 8 mulheres.
_______________________________________________________________________________

EN: The employees of a company are 12. The number of women working in the company is twice that of men. How many women and men working in the company?
we'll do x = the number of men and y = number of women, then comes:

|  x+y=12       | x+2x=12         | 3x=12       | x=12/3     |  x=4    | ---          |x=4
|  2x=y           |  ---------------     | ----------       | ----------     | -------     | y=2*4   |y=8

In the company work 4 men and 8 women.
________________________________________________________________________________

FR:  Les employés d'une entreprise sont 12. Le nombre de femmes qui travaillent dans l'entreprise est le double de celui des hommes. combien de femmes et d'hommes travaillant dans l'entreprise?

nous ferons x = le nombre d'hommes et y = nombre de femmes, puis vient:

|  x+y=12       | x+2x=12         | 3x=12       | x=12/3     |  x=4    | ---          |x=4
|  2x=y           |  ---------------     | ----------       | ----------     | -------     | y=2*4   |y=8

la société fonctionne avec 4 hommes et 8 femmes.

PT: Substituição de uma torneira no jardim

EN: Replacing a faucet in the garden

FR: Remplacement d'un robinet dans le jardin
___________________________________________________

PT:material utilizado       EN: material needed         FR:matériau utilisé

PT:  como fazer

EN:  how to make

FR:  comment faire

 

 

EN:  Electronic components

FR:  Composants électroniques

PT:  Componentes para electrónica

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