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 à 17:40, depuis l'adresse IP 105.108.x.x. La présente page de téléchargement du fichier a été vue 295 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.

Public Sub PREMIERM2()
Dim i, X As Integer
Dim T As Boolean
T = False
MsgBox ("La valeur de x:")
X = InputBox(" x=")
For i = 2 To X / 2
If (X Mod i = 0) Then
T = True
End If
Next
If (T = True) Then
MsgBox (X & " est non premier")
Else
MsgBox (X & " est premier")
End If
End Sub

2

Public Sub pgcd()
Dim A, B, X, Y As Integer
Call MsgBox("Lisez moi la valeur de A et B")
A = InputBox(" A=")
B = InputBox(" B=")
X=A
Y=B
While (A <> B)
If (A >= B) Then
A=A-B
Else
B=B-A
End If
Wend
Call MsgBox("Le pgcd entre " & X & " et " & Y & " = " & A)
End Sub

3

Public Sub PREF()
Dim i, X As Integer
Dim T As Boolean
T = False
Call MsgBox("La valeur de x: ")
X = InputBox(" X=")
For i = 2 To X - 1
If (X Mod i = 0) Then
T = True
End If
If (T = True) Then
Call MsgBox(X & " est non premier")
Else
Call MsgBox(X & " est premier ")
End If
End Sub


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
facebook 1
array exemple
tp2pascal correctionserie
tp4
testealgo1