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.

Vamos hoje determinar a equação da reta que passa por dois pontos A e B:
Let us determine the equation of the line passes through two points A and B:
Déterminer l'équation de la ligne passe par deux points A et B:

                            A(-3,-1)
                            B(3,2)


Temos muitas formas de determinar a equação desta reta.
Vamos usar o metodo de sistema de duas equacões.
We have many ways to determine the equation of this line.
Let's use the two equations method.
Nous avons plusieurs façons de déterminer l'équation de cette ligne.
Nous allons utiliser la méthode de deux équations.
 
sabemos que a equação da reta é da forma y=mx+b
we know that the equation of the line is of the form y = mx + b
nous savons que l'équation de la ligne est de la forme y = mx + b

vamos usar o ponto A e substituir e determinamos uma equação
we will use the point A, and replace and determine an equation
nous allons utiliser le point A, et de le remplacer et de déterminer une équation
                 
                             -1 = m*(-3) +b

vamos usar o ponto B e substituir e determinamos outra equação
we will use the point B and replace and determine another equation
on vas utiliser le point B et remplacer et determiner autre  equation

                           

                              2=m*3+b

da resolução deste sistema de equacoes determinamos os valores de m e de b e teremos a nossa equação da reta que passa em A e B
the resolution of this system equations determine the values of m and b and we will have our equation of the line passes at A and B
La résolution de ce système d'équations de déterminer les valeurs de m et b, et nous aurons notre équation de la droite passe en A et B

-1=-3m+b
2=3m+b 
----------------  vamos usar o metodo de adicão já estudado neste blog e youtube associado
1=2b         we use the addition method already studied this blog and youtube associated
                      nous utilisons la méthode d'addition déjà étudié ce blog et YouTube associé

b=1/2 <------ este é o valor de b, substituimos na equacao a seguir e determinamos o m
                         this is the value of b, we substitute the following equation and determine the m
                    ceci est la valeur de b, nous substituons l'équation suivante et de déterminer les m

• 2=3m+b
• 
  
• 2=3m+1/2
• 4=6m+1
•  4-1=6m
• 3=6m
• m=1/2

nossa equação de reta:
our straight equation:
notre équation linéaire:

      y=x/2 +1/2

PT: programa que pede numeros inteiros ao utilizador
      enquanto numero diferente de zero e coloca depois ao terminar,
      no terminal a soma dos numeros introduzidos.

EN: program that asks the user to integers.
       When number entered is zero, the program terminates.  
       It appears in the terminal the sum of input numbers.

FR: programme qui demande à l'utilisateur de nombres entiers.
       Lorsque le numéro entré est zéro, le programme se termine. 
       Il apparaît dans le terminal la somme des nombres d'entrée.

The  Output of the program

The text of the Program

program soma;

uses crt;
var value,total : integer;

begin
    total:=0;
    writeln;
    writeln;
    writeln;
    writeln('PT: Escreva numeros inteiros, termine com 0');
    writeln('EN: Write integer numbers, write 0 to the end');
    writeln('FR: Ecrivez de numero entiere. mettre 0 pour finir');
    repeat
       read(value);
       total:=total+value;
    until value=0;
    writeln;
    writeln('PT: A soma dos valores introduzidos é ',total);
    writeln('EN: The sum of the numbers is ',total);
    writeln('FR: La adition de ces numeros est ',total);
end.

PT: Programa em c++ para calcular o máximo divisor comum

EN: Program c++ to calculate the greatest common divisor

 FR: Programme c++ de calculer le plus grand commun diviseur

------------------------------------------------------------------------------------------------------------------------------------

#include <stdio.h>
#include <stdlib.h>
#include <iostream>

int main()
{   int aux, max_divisor, value1, value2; 
    printf("\nPT: introduz um numero inteiro\n");
    printf("EN: put a integer number\n");
    printf("FR: tappez un numero entiere\n");
    scanf("%d",&value1);
    printf("\nPT: introduz outro numero\n");
    printf("EN put another integer number\n");
    printf("FR: tappez un autre numero\n");
    scanf("%d",&value2);
    if (value1<value2) aux=value1; else aux=value2;
    for(int it=1; it<= aux ;it++)
    { if ((value1%it ==0)||(value2%it==0))
        printf("\n%d mod %d =%d    %d mod %d =%d",value1, it, value1%it ,value2, it, value2%it);
        if ((value1%it ==0) &&( value2%it==0)) max_divisor=it;
    }
   
    printf("\n\nPT: O maximo divisor comum é %d\n",max_divisor);
    printf("EN: maximum common divisor %d\n",max_divisor);
    printf("FR: diviseur commun maximale %d\n",max_divisor);

    return 0;
}
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
the output of the program when i put the integers 100 and 80

100 mod 1 =0    80 mod 1 =0
100 mod 2 =0    80 mod 2 =0
100 mod 4 =0    80 mod 4 =0
100 mod 5 =0    80 mod 5 =0
100 mod 8 =4    80 mod 8 =0
100 mod 10 =0    80 mod 10 =0
100 mod 16 =4    80 mod 16 =0
100 mod 20 =0    80 mod 20 =0
100 mod 25 =0    80 mod 25 =5
100 mod 40 =20    80 mod 40 =0
100 mod 50 =0    80 mod 50 =30
100 mod 80 =20    80 mod 80 =0

PT: O maximo divisor comum é 20
EN: maximum common divisor 20
FR: diviseur commun maximale 20
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
another output
PT: introduz um numero inteiro
EN: put a integer number
FR: tappez un numero entiere
3

PT: introduz outro numero
EN put another integer number
FR: tappez un autre numero
5

3 mod 1 =0    5 mod 1 =0
3 mod 3 =0    5 mod 3 =2

PT: O maximo divisor comum é 1
EN: maximum common divisor 1
FR: diviseur commun maximale 1

divisao polinómios 2ªparte

Area do circulo - Perimetro da circunferencia

 Pi       π = 3.14159  

Calculate area (A) and perimeter (P)

Calcular área (A) e perimetro (P)

Calculer la superficie (A) et le périmètre (P)

 R=3 m

P=2 * pi * R
P=2 * pi * 3
P=6 pi 
P=18,84954 metro

A= pi * R²
A= pi * 3 * 3
A= 9 pi
A= 28,27431 metro²

divisaopolinomios 1ª parte

video