Deuziéme Jour de Préparation Sur le Forum

[Mr.Hicham]

Rappel du premier message :

Salam les amis alors jéspere ke vous allez bien
on commence notre préparation pr le 2eme jours
pour ceux ki ne sont pa venu hier voici le lien

https://ofppt.forummaroc.net/developpement-informatiques-f11/premier-jour-de-preparation-sur-le-forum-t275.htm?sid=d2f6deaafe9b7bdf858ed8ef1541ffdb


Aujourd'hui on va préparer le POO en VB et C#
chaqu'un peut faire la résolution des exercices avc language qui maitrise

[b]yallah Bismillah wahed Chwiya wo nbdaw wo lli 3ando chi exercices ma3rafch ykhdamhom y7atto hna bach nt3awno fih

Nb : Hta nsaliw exercice lawal apré 3ad lli bgha ydir chi exercice, pr comme sa mayaw9a3ch mélange

Bonne Chance

[fatizo]

diri la correction a hasnaa

[hassnaa66]

le voila :
Imports System.Math
Public Class Point
Private ix As Integer
Private iy As Integer
Public Sub New()
End Sub
Public Sub New(ByVal a As Integer, ByVal b As Integer)
Me.ix = a
Me.iy = b
End Sub
Public Property x() As Integer
Get
Return ix
End Get
Set(ByVal value As Integer)
Me.ix = value
End Set
End Property
Public Property y() As Integer
Get
Return iy
End Get
Set(ByVal value As Integer)
Me.iy = value
End Set
End Property
Public Function Distance() As Double
Return Sqrt(x * x + y * y)
End Function
End Class
Imports System.Console
Module Module1
Dim p As New Point
Sub Main()
WriteLine("entrer x ")
p.x = ReadLine()
WriteLine("entrer y ")
p.y = ReadLine()
WriteLine("la distance entre x et y est :")
WriteLine(p.Distance)
ReadKey()
End Sub
End Module

[hassnaa66]

j'ai copoier tt la classe et s'il ya des remarque n'hésité
pas

[nazik_lmalaika]

merci hassna

[Mr.Hicham]

ui code mzian mai madayrach x et y f parametre dial Function distance et aussi kayn wahd répétition f sub new diri ghi wahda hana ghadi ndir corrigé plus simple

[Contenu sponsorisé]