|
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
2013-12-29, 21:42 | رقم المشاركة : 586 | ||||
|
أين المساعدة؟
|
||||
2013-12-31, 21:31 | رقم المشاركة : 587 | |||
|
السلام عليكم
الرجاء من اخواني مساعدتي في وضع 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 |
|||
2014-01-02, 13:28 | رقم المشاركة : 588 | |||
|
بليز قولولي كيفاه ncree une liste simple chainee trie et doublement trie |
|||
2014-01-02, 17:41 | رقم المشاركة : 589 | |||
|
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. |
|||
2014-01-02, 22:47 | رقم المشاركة : 590 | |||
|
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.
|
|||
2014-01-03, 01:56 | رقم المشاركة : 591 | ||||
|
اقتباس:
had pdf y3awnke https://www.gulfup.com/?wB94r3 |
||||
2014-01-03, 02:28 | رقم المشاركة : 592 | ||||
|
اقتباس:
c mn cours ana/num polycopie scanithom |
||||
2014-01-04, 17:54 | رقم المشاركة : 593 | ||||
|
اقتباس:
أريد حل ه>ه الخوارزمية في أسرع وقت ممكن |
||||
2014-01-05, 15:40 | رقم المشاركة : 594 | |||
|
من فضلكم انا بحاجة ماسة للمساعدة |
|||
2014-01-06, 14:00 | رقم المشاركة : 595 | |||
|
désincrémentation svp!
salam alikoum idans un tableau on peut faire une désincrémentation i.e ; pour i<- --N a 1
merciii |
|||
2014-01-09, 06:04 | رقم المشاركة : 596 | ||||
|
اقتباس:
عليك باستخدام if - else والطريقة سهلة جدا وتعتمد على تحديد ان يكون التاريخ صحيح ارجوا ان تكون قد وضخت الفكرة |
||||
2014-01-10, 16:30 | رقم المشاركة : 597 | |||
|
j'ai exercice de module compilation : micro compilateur de programme pascal(analyse lexical+analyse syntaxique) aidez moi svp |
|||
2014-01-10, 16:30 | رقم المشاركة : 598 | |||
|
ecrire un programme qui lit N nombres entiers qui calcule leur moyenne et affiche sa valeur en utilisant |
|||
2014-01-10, 23:21 | رقم المشاركة : 599 | |||
|
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 |
|||
2014-01-16, 20:31 | رقم المشاركة : 600 | |||
|
Centre du carré
where is the solution of (centre du carré ) help me please |
|||
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc