PT: Resolução de sistemas de 2 equações a 2 incógnitas pelo método dos determinantes. Regra de Cramer

EN: Resolution of 2 equations to 2 unknowns by the method of determining systems. Rule Cramer

FR:Résolution des équations 2 à 2 inconnues par la méthode de détermination systèmes. Règle Cramer


|-ax+k=by     
|cx-dy+w=0  

PT: Quando temos um sistema temos de o arrumar: x , y e termo independente

EN: When we have a system we have to fix: x, y independent term 

FR:Lorsque nous avons un système que nous avons à fixer: x, y terme indépendant

|-ax-by=-k       |-a   -b|
|cx-dy=-w       |c    -d|

  

     |-k   -b|

     |-w  -d|         (-k * -d ) - (-w * -b)

x= ------------  = ---------------------------------

      |-a   -b|        (-a * -d) - (c * -b)

      |c    -d|

     |-a   -k|
     |c    -w|         (-a * -w ) - (c * -k)
y= ------------  = ---------------------------------
      |-a   -b|        (-a * -d) - (c * -b)
      |c    -d|

PT: Resolução de sistemas de 2 equações a 2 incógnitas pelo método da adição
EN:Resolution of 2 equations with 2 unknowns by the addition method
FR:Résolution des équations 2 à 2 inconnues par la méthode des ajouts 


| x+y=12             há que passar este 2x para o outro lado
| y=2x <-- pass the 2x to the left side  
                            passer le 2x pour le autre cote


|   x+y=12             multiplicar aqui por -1
|-2x+y=0 <-- multiplication here by -1
                             faire la multiplication pour le -1

| x+y=12               somar as duas equações
|2x-y=0                  do the adition of this two equations      

----------------              faire la aditions de ce 2 equations
  3x  =12
 x=12/3 => x=4
                                
                                 multiplicar aqui por 2
|   x+y=12 <--  multiplication here by 2
|-2x+y=0                  multiplier ici pour 2


| 2x+2y=24           add the 2 equations  somar as 2 equações
|-2x+ y=0              ajouter les deux équations
-----------------
      3y=24  <=> y=24/3 => y=8

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-----------------------------------------------