Deuziéme Jour de Préparation Sur le Forum

par Mr.Hicham Sam Mai 29, 2010 9:17 pm

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

par Mr.Hicham Dim Mai 30, 2010 12:11 am

Imports System.Math
Public Class Equation
Public nb1, nb2, nb3 As Integer
Public x, x1, x2 As Single
Public delta As Integer
Public Sub New(ByVal a As Integer, ByVal b As Integer)
nb1 = a
nb2 = b
End Sub
Public Sub equation1()
If nb1 <> 0 Then
x = -nb2 / nb1
Console.WriteLine(" x = " & x)
ElseIf (nb1 = 0 And nb2 <> 0) Then
Console.WriteLine(" Impossible ")
If (nb2 = 0 And nb2 = 0) Then
Console.WriteLine(" IR ")
End If
End If
End Sub

Public Sub New(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
nb1 = a
nb2 = b
nb3 = c
End Sub

Public Sub equation2()
If (nb1 = 0 And nb2 <> 0 And nb3 <> 0) Then
x = -nb3 / nb2
Console.WriteLine(" x = " & x)
ElseIf (nb1 = 0 And nb2 = 0 And nb3 = 0) Then
Console.WriteLine(" x = IR ")
ElseIf (nb1 = 0 And nb2 = 0 And nb3 <> 0) Then
Console.WriteLine(" Impossible ")
ElseIf (nb1 <> 0) Then
delta = Pow(nb2, 2) - (4 * nb1 * nb3)
x1 = (-nb2 + Sqrt(delta)) / (2 * nb1)
x2 = (-nb2 - Sqrt(delta)) / (2 * nb1)
If (delta > 0) Then
Console.WriteLine("les solutions sont : " & "x1 =" & x1 & " et " & " x2 =" & x2)
ElseIf (delta < 0) Then
Console.WriteLine(" Pas de Solution dans (IR)")
If (delta = 0) Then
x = (-nb2) / (2 * nb1)
Console.WriteLine("la Solution est : " & x)
End If
End If
End If
End Sub
End Class

Module Module1
Dim choix As Integer
Dim p As Char

Sub Main()

Console.Title = " Resoudre Equation 1er et 2eme Degré "
Dim j As Integer = 1
While (j)
Console.WriteLine(" *************************************************************")
Console.WriteLine(" * *")
Console.WriteLine(" * °*°MENU°*° *")
Console.WriteLine(" * *")
Console.WriteLine(" * 1.Realiser une équation de 1er degré : ax+b=0 *")
Console.WriteLine(" * 2.Realisez une équation 2eme degré : ax^2+bx+c=0 *")
Console.WriteLine(" * 3.Quitter *")
Console.WriteLine(" * *")
Console.WriteLine(" *************************************************************")

Console.WriteLine(" Taper Votre choix ? ")

choix = Console.ReadLine
Select Case choix
Case 1
Console.WriteLine(" a = ")
Dim a As Integer = Console.ReadLine
Console.WriteLine(" b = ")
Dim b As Integer = Console.ReadLine
Dim equ1 As New Equation(a, b)
equ1.equation1()
Case 2
Console.WriteLine(" a = ")
Dim a As Integer = Console.ReadLine
Console.WriteLine(" b = ")
Dim b As Integer = Console.ReadLine
Console.WriteLine(" c = ")
Dim c As Integer = Console.ReadLine
Dim equ2 As New Equation(a, b, c)
equ2.equation2()
Case 3
j = 0
Console.Write("Click ")
Dim originalcolor As ConsoleColor = Console.ForegroundColor
Console.ForegroundColor = ConsoleColor.Green
Console.Write("ENTRER")
Console.ForegroundColor = originalcolor
Console.WriteLine(" pour Quitter")
End Select
End While
Console.ReadKey()
End Sub
End Module

par Mr.Hicham Dim Mai 30, 2010 12:13 am

Voici hadi la résolution dial equation 1er et 2eme degré en POO
alor si ya d'autre exercices dirohom hna nt3awno fihom

par rihab Dim Mai 30, 2010 12:17 am

dsl rani mn gbiila wana hna mais ma3raftch kifch ntala3e 3la chno kaydore entre vous dsl svp

par rihab Dim Mai 30, 2010 12:21 am

m personnes sont assises
autour d'une table circulaire et
entament le jeu suivant. Elles se fixent entre-elles un entier k>0
et une personne P1 par laquelle elles commenceront le jeu. On commence à compter de 1 à k
en partant de P1 et en tournant à droite. La k^ièmepersonne quitte la table et on continue
à compter de 1 à k à partir de la personne suivante encore
à table. La personne gagnante est la dernière qui reste à table. Analyser ce problème
et faire un programme permettant de réaliser ce jeu EN C Deuziéme Jour de Préparation Sur le Forum - Page 14 Icon_smile

merci

par Mr.Hicham Dim Mai 30, 2010 12:23 am

Variante 2 2009 hhh a hada rani 9bila 3iyet m3ah f café mai had lila man3ass hta nsaybo ok ghadi yakhod wa9t Deuziéme Jour de Préparation Sur le Forum - Page 14 Icon_smile

par Contenu sponsorisé

Deuziéme Jour de Préparation Sur le Forum

Deuziéme Jour de Préparation Sur le Forum

Re: Deuziéme Jour de Préparation Sur le Forum

Re: Deuziéme Jour de Préparation Sur le Forum

Re: Deuziéme Jour de Préparation Sur le Forum

Re: Deuziéme Jour de Préparation Sur le Forum

Re: Deuziéme Jour de Préparation Sur le Forum

Re: Deuziéme Jour de Préparation Sur le Forum