ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[بنت الرضى]

أين المساعدة؟

[جَسَّاس]

السلام عليكم
الرجاء من اخواني مساعدتي في وضع Algorithmes +programme لهذا التمرين

centre du carré la clé est élevé au carre on enlevé du résultat un nombre 4 chiffres à partir de la 4 eme position
puis on multiplie ce nombre par le nombre d'adresse on extrait à nouveau 4 chiffres à partir de la 2 eme position
lesquels vont . composer l'adresse de l’enregistrent

[الحآذق]

بليز قولولي كيفاه ncree une liste simple chainee trie et doublement trie

[bellamina21]

aidez moi a realiser des memoires M1et M2 fi had la calculatrice en delphiiii hada houwa le programme rahou juste il manque les memoires bark ma3raftch ndirhoum help me pliiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iiiizzzzzzzzzzzzT].

unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls;
 
 type
   TForm1 = class(TForm)
     EditChiffres: TEdit;
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
     ButtonDivi: TButton;
     ButtonMult: TButton;
     Button6: TButton;
     Button7: TButton;
     Button8: TButton;
     Button9: TButton;
     Button10: TButton;
     Button11: TButton;
     ButtonMoins: TButton;
     Button13: TButton;
     ButtonVirgule: TButton;
     ButtonResultat: TButton;
     ButtonPlus: TButton;
     Button17: TButton;
     Button4: TButton;
     memoire1: TButton;
     memoire2: TButton;
     procedure ButtonVirguleClick(Sender: TObject);
     procedure Button9Click(Sender: TObject);
     procedure Button10Click(Sender: TObject);
     procedure Button11Click(Sender: TObject);
     procedure Button8Click(Sender: TObject);
     procedure Button7Click(Sender: TObject);
     procedure Button6Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure Button13Click(Sender: TObject);
     procedure ButtonPlusClick(Sender: TObject);
     procedure ButtonMoinsClick(Sender: TObject);
     procedure ButtonMultClick(Sender: TObject);
     procedure ButtonDiviClick(Sender: TObject);
     procedure ButtonResultatClick(Sender: TObject);
     procedure Button17Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure memoire1Click(Sender: TObject);
          
   private
     { Déclarations privées }
   public
     { Déclarations publiques }
   end;
 
 var
   Form1: TForm1;
   Operande1: Real;
   Operation:string;
   Operande2:real;
 
  implementation
 
 {$R *.DFM}
 procedure TForm1.ButtonVirguleClick(Sender: TObject);
 begin
  EditChiffres.Text:=EditChiffres.Text+','
 end;
 procedure TForm1.Button9Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'1'
 end;
 procedure TForm1.Button10Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'2'
 end;
 procedure TForm1.Button11Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'3'
 end;
 procedure TForm1.Button8Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'4'
 end;
 procedure TForm1.Button7Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'5'
 end;
 procedure TForm1.Button6Click(Sender: TObject);
 begin
  EditChiffres.Text:=EditChiffres.Text+'6'
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'7'
 end;
 procedure TForm1.Button2Click(Sender: TObject);
 begin
 EditChiffres.Text:=EditChiffres.Text+'8'
 end;
 
 procedure TForm1.Button3Click(Sender: TObject);
 begin
  EditChiffres.Text:=EditChiffres.Text+'9'
 end;
 procedure TForm1.Button13Click(Sender: TObject);
 begin
   EditChiffres.Text:=EditChiffres.Text+'0'
 end;
 procedure TForm1.ButtonPlusClick(Sender: TObject);
 begin
 Operande1:=StrToFloat(EditChiffres.Text);
   Operation:='+';
   EditChiffres.Text:='';
 end;
 procedure TForm1.ButtonMoinsClick(Sender: TObject);
 begin
  Operande1:=StrToFloat(EditChiffres.Text);
   Operation:='-';
   EditChiffres.Text:='';
 end;
 procedure TForm1.ButtonMultClick(Sender: TObject);
 begin
 Operande1:=StrToFloat(EditChiffres.Text);
   Operation:='*';
   EditChiffres.Text:='';
 end;
 procedure TForm1.ButtonDiviClick(Sender: TObject);
 begin
 Operande1:=StrToFloat(EditChiffres.Text);
   Operation:='/';
   EditChiffres.Text:='';
 end;
 procedure TForm1.ButtonResultatClick(Sender: TObject);
 begin
  Operande2:=StrToFloat(EditChiffres.Text);
   if Operation='+' then
   EditChiffres.Text:=FloatToStr(Operande1+Operande2);
   if Operation='-' then
   EditChiffres.Text:=FloatToStr(Operande1-Operande2);
   if Operation='*' then
   EditChiffres.Text:=FloatToStr(Operande1*Operande2);
   if Operation='/' then
    EditChiffres.Text:=FloatToStr(Operande1/Operande2);
 end;
 procedure TForm1.Button17Click(Sender: TObject);
 begin
   EditChiffres.Text:='';
 end;
 procedure TForm1.Button4Click(Sender: TObject);
 begin
 close;
 end;
 end.

[tomba]

centre du produit,l'indicatif est découpé en 2 parties,une composée des 3 primaires positions et l'autre des 4 suivantes, ensuite on effectue le produit de ces 2 parties. on extrait de produit 4 chiffres a partir de la 2eme position que l'on considère comme un nombre aléatoire compris entre 0 et 1. on multiplie ce nombre par le nombre total d'enregistrements et on prend la partie entière comme adresse.

[enemi05]

المشاركة الأصلية كتبت بواسطة assem20

بليز قولولي كيفاه ncree une liste simple chainee trie et doublement trie

had pdf y3awnke



https://www.gulfup.com/?wB94r3

[enemi05]

المشاركة الأصلية كتبت بواسطة فضلاوي عيسى

باركل الله فيك وجعلها في ميزان حسناتك

ان امكنك تكون في ملف doc او pdf
او رابط موقع إوجدة

dsl
c mn cours ana/num

polycopie
scanithom

[بنت الرضى]

المشاركة الأصلية كتبت بواسطة بنت الرضى

السلام عليكم
أريد حل هذه الخوارزمية وهي لـ mike keith في الباسكال سنة أولى.

pour une date la forme jour/mois/année,ou'

"jour" prend une valeur de 01 à 31;

"mois" de 01 à 12;

et "année" de 1583 à 9999.

on utilise la formule suivante pour déterminer le jour de la semaine << j >> de cette date.

j=(jour + a (a div 4) - (a div 100) + (a div 400) + (31*m div 12)) mod 7

la réponse obtenue pour j correspond alors à un jour de la semaine de la manière suivante:

0=dimanche, 1=lundi, 2= mardi,..., 6=samedi.

pour utiliser la formule il faut d'abord calculer "c" pour calculer "a" et "m" qui sont utilisés dans la formule:

c=(14 - mois)div 12; en fait, c=1 pour janvier et février, c=0 pour les autres mois .

a=année - c.

m=mois + (12*c) - 2.

conseils: Attention aux dates invalides.

exemples de dates invalides:

31/04/2000; 29/02/2003; 34/01/1830.donc, vous devriez forcer l'utilisateur à introduire une date valide.

structure du programme:

program jour_de_lasemaine;

..................................{déclaration des variables}

.................................. {lecture et vérification de la validité des données (pensez à la boucle repeat)}

……………………..{calcul de j}

……………………..{edition du résultat (vous devriez utiliser la structure à choix multiples << case >> )}

fin.

أين المساعدة
أريد حل ه>ه الخوارزمية في أسرع وقت ممكن

[youcef 16]

من فضلكم انا بحاجة ماسة للمساعدة
ecrire un algorithme qui lit une suite de nombre et calcul :la some des nombres,la some des nombre paires ,et le max et le min des nombres
طالب سنة أولى ساعدوني

[pericolo]

salam alikoum
dans un tableau on peut faire une désincrémentation

i

i.e ; pour i<- --N a 1
merciii

[تقرت30]

المشاركة الأصلية كتبت بواسطة بنت الرضى

السلام عليكم
أريد حل هذه الخوارزمية وهي لـ Mike Keith في الباسكال سنة أولى.

pour une date la forme jour/mois/année,ou'

"jour" prend une valeur de 01 à 31;

"mois" de 01 à 12;

et "année" de 1583 à 9999.

on utilise la formule suivante pour déterminer le jour de la semaine << j >> de cette date.

j=(jour + a (a div 4) - (a div 100) + (a div 400) + (31*m div 12)) mod 7

la réponse obtenue pour j correspond alors à un jour de la semaine de la manière suivante:

0=dimanche, 1=lundi, 2= mardi,..., 6=samedi.

pour utiliser la formule il faut d'abord calculer "c" pour calculer "a" et "m" qui sont utilisés dans la formule:

c=(14 - mois)div 12; en fait, c=1 pour janvier et février, c=0 pour les autres mois .

a=année - c.

m=mois + (12*c) - 2.

conseils: attention aux dates invalides.

exemples de dates invalides:

31/04/2000; 29/02/2003; 34/01/1830.donc, vous devriez forcer l'utilisateur à introduire une date valide.

Structure du programme:

program jour_de_lasemaine;

..................................{déclaration des variables}

.................................. {lecture et vérification de la validité des données (pensez à la boucle repeat)}

……………………..{calcul de j}

……………………..{edition du résultat (vous devriez utiliser la structure à choix multiples << case >> )}

Fin.

الحل
عليك باستخدام if - else
والطريقة سهلة جدا وتعتمد على تحديد ان يكون التاريخ صحيح
ارجوا ان تكون قد وضخت الفكرة

[dreamergirl]

j'ai exercice de module compilation : micro compilateur de programme pascal(analyse lexical+analyse syntaxique) aidez moi svp

[بن علي عبد الغاني]

ecrire un programme qui lit N nombres entiers qui calcule leur moyenne et affiche sa valeur en utilisant
la boucle for
la boucle while
-la boucle repeat
dèduire laquelle est la plus appropriée

[jabermrf]

nous voulons sauvegarder les moyennes d'une classe de 30 élèves en mathématique. sachant que la moyenne est egale (devoir+compo*2)/3 faites ce qui suit
créer un tableau en sauvegardant ces moyennes
classer les moyennes des élèves en utilisant le tri a bulle
donner la moyenne générale de la classe

[راجية المغفرة]

where is the solution of (centre du carré ) help me please