pgcd def, Visual Basic

pgcd def

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
            Dim a,b,p as integer 
            console.writeline("valeur de a?")
            a=console.readline()
            console.writeline("valeur de b?")
            b=console.readline()
            
            do  
                If a>b then
                    do
                        a=a-b 
                    loop until a<=b
                else if a<b then
                    do
                        b=b-a
                    loop until b<=a  
                end if
            loop until a=b 
            
            console.writeline("le PGCD vaut" & a)
                  
                 
        End Sub
    End Module
End Namespace


run \| edit \| history \| help	0

Please log in to post a comment.