FaceBook .pdf


Nom original: FaceBook.pdfAuteur: user

Ce document au format PDF 1.5 a été généré par Microsoft® Office Word 2007, et a été envoyé sur fichier-pdf.fr le 22/09/2017 à 18:32, depuis l'adresse IP 105.108.x.x. La présente page de téléchargement du fichier a été vue 70 fois.
Taille du document: 118 Ko (3 pages).
Confidentialité: fichier public


Aperçu du document


1

La résolution d’un nombre premier ainsi le PGCD entre deux nombres avec
d’autres méthodes, programmée par l’enseignante et auteure en informatique :
Madame Kherbache Faiza née Choubane.

program PremierMethode1;
uses wincrt;
var i,x:integer;
T:boolean;
begin
T:=false;
writeln('La valeur de x:');
read(x);
for i:=2 to x -1 do
if (x mod i=0) then
T:=true;
if(T=true) then
writeln(x, ' est non premier')
else
writeln(x, ' est premier');
end.
*****************************************************************
program PremierMethode2;
uses wincrt;
var i,x:integer;
T:boolean;

2

begin
T:=false;
writeln('La valeur de x:');
read(x);
for i:=2 to x div 2 do
if (x mod i=0) then
T:=true;
if(T=true) then
writeln(x, ' est non premier')
else
writeln(x, ' est premier');
end.

program PGCDM2;
uses wincrt;
var A,B,X,Y:integer;
begin
writeln('Lisez moi la valeur de A et B');
read(A,B);
X:=A;
Y:=B;
while(A<>B) do
if (A>=B) then
A:=A-B

3

else
B:=B-A;
writeln(' Le pgcd entre ', X, ' et ' ,Y,' = ', A);
end.


FaceBook.pdf - page 1/3


FaceBook.pdf - page 2/3


FaceBook.pdf - page 3/3


Télécharger le fichier (PDF)


FaceBook.pdf (PDF, 118 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


facebook 1
testealgo1
tp5correction
tp4
manuel pascal2
tp3correction

Sur le même sujet..