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

[enemi05]

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

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

had pdf y3awnke



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

[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.

[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

[dreamergirl]

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

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

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

[كريمة 118]

[LEFTh سلام اخواني اريد حل هذا التمرين لان غدا عندي فرض وجزاكم الله خير
]Soit un ordinateur multicouches ou chaque couche des instructions m fois plus puissantes que celles de la couche immédiatement inférieure , c'est-à-dire qu’une instructions de niveau r fait le même travail que m instructions de niveau r 1.si un programme de niveau 1 nécessite k secondes pour s’exécuter . combien de temps prendraient des programmes équivalents de niveau 2 et 3 ,en supposant qu’il faut n instructions de niveau r pour interpréter une instruction de niveau r+1?
application numérique ;m=5,n=3,et k=10 .


[/LEFT]

[kadourbousaada]

السلام عليكم و رحمة الله تعالى، اريد طريقة تحميل بعض التمارينات المحلولة في الرياضيات و الإعلام الآلي للسنة الأولى جامعي و شكرا

[عبدالرحيم1995]

TRAVAIL DEMANDÉ
En utilisant le langage C++, on vous demande d’écrire le programme qui réalise
l’évaluation d’une expression arithmétique en utilisant une structure de données sous
forme d’une pile.
NB : enrichir le code avec les commentaires nécessaires

[lysine]

موضوع رائع ساحتاج اليه في الايام القادمة

للدراسة

شكرا

[سماعين عصام]

من فضلكم اريد حل تكاملات Fredholemمن الدرجة الثانية باستعمالMtlab أوMatématicaأوMAPLEوشكرا.

[عودة امل]

السلام عليكم
كيف اقوم بحذف عنصر من الجدول دون استخدام الدالة
بارك الله فيكم

[ayoub henni]

الرجاء المساعدة في حل هذا التمرين
On désire programmer un agenda dans le but de mémoriser une liste de rendez-vous est défini par sa date, ses horaires ( heure et minute de début et fin ) et sa description (message de 200 caractères au plus) .
. proposer une structure de donné
. écrire la procédure afficher rendez-vous du jour qui prend comme paramètres d’entrée la date d’un jour et affiche à l’écran les rendez-vous du jour spécifié.
Exemple d’affichage :
Journée du 16-11-1997
8h15-10h15 réunion pédagogique
14h00-15h30 cours info 2
18h30-19h30 faire des cours
3 rendez-vous pour cette journée

[sak86]

Exercice04 ) -
Écrire un algorithme effectuant la saisie de 3 nombres entiers. Vous concevrez un algorithme affichant ces 3 nombres dans l'ordre croissant. Vous utiliserez exclusivement des conditions élémentaires (i.e. ne faisant pas intervenir d'opérateurs logiques).
من فضلكم الااااااااااااااااااااااااااان