و بارك الله فيكم
اياا واحد جماعة يعطينا الحل
ما تكونوش بخلاء هههه
n1+n2 div 4–> reel
x1 mod x2+ n3 –> entier
n2+n3<n1 et non log2 –> Bolean
pred (c+1)–> caracter
5 –> boolean
6–> caracter
7–> boolean
و ليك هذا الرابط h t t p://xoomer.virgilio.it/gciabu/engl/pascal/pas036.htm
ماتنسساش تدعيلنا نلقاو خدمة
الله يرزقك ان شاء الله من حيث لا تحتسب
بارك الله فيك خيو
أرجو من جميع طلاب الmi
التعاون في الموضوع هذا لحل اي تمرين ألغورتم
وساكون انا طبعا واحداا منهم
كل واحد يضع تمرين
ونتعاون سويا في حله
تحياتي لكم
 |
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
J’ai 3 Exo d Algorithme !
1/ Trier dans un ordre croissant (décroissant) X,Y,Z TROIS VARIABLES CONTENANT DES VALEURS R2ELLES
2/ Résoudre une équation du second degré (avec tout les cas possibles réels et complexes)
3/Compter le nombre d’occurrence des valeurs nulles , positives et négative dans une suite de N (eg N=100) nombres entiers lus un par un
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
لضيق الوقت لن أضع حلول السؤالين 1 و 3
يمكن أن نلتقي في الجامعة إن شاء الله
Algorithme solu_2_deg; Declaration Variable a, b, c Delta : réel ; écrire ('Résolution de ax2 + bx + c = 0'); écrire 'Introduisez le coefficient de x2:'; lire (a); écrire 'Introduisez le coefficient de x:'; lire b écrire 'Introduisez le terme indépendant:'; lire c si a=0 alors écrire 'Equation du premier degré.' sinon Debut Delta <-- b*b-4a*c si Delta>0 alors écrire ('2 racines réelles distinctes:') écrire ('x1=',(-b+Delta)/(2*a)); écrire ('x2=',(-b-Delta)/(2*a)); sinon si Delta=0 alors écrire ('2 racines réelles égales:'); écrire ('x1=x2=",-b/(2*a)'); sinon écrire ('2 racines complexes conjuguées:'); écrire ('x1=',-b/(2*a),' + i',-Delta/(2*a)); écrire ('x2=',-b/(2*a),' - i',-Delta/(2*a)); finsi finsi fin finsi
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
|
المشاركة الأصلية كتبت بواسطة killer21
 البرنامج الثاني
أنا أيضا أدرس في جامعة قسنطينة 2 groupe 9 لضيق الوقت لن أضع حلول السؤالين 1 و 3 كود:
Algorithme solu_2_deg; Declaration Variable a, b, c Delta : réel ; écrire ('Résolution de ax2 + bx + c = 0'); écrire 'Introduisez le coefficient de x2:'; lire (a); écrire 'Introduisez le coefficient de x:'; lire b écrire 'Introduisez le terme indépendant:'; lire c si a=0 alors écrire 'Equation du premier degré.' sinon Debut Delta <-- b*b-4a*c si Delta>0 alors écrire ('2 racines réelles distinctes:') écrire ('x1=',(-b+Delta)/(2*a)); écrire ('x2=',(-b-Delta)/(2*a)); sinon si Delta=0 alors écrire ('2 racines réelles égales:'); écrire ('x1=x2=",-b/(2*a)'); sinon écrire ('2 racines complexes conjuguées:'); écrire ('x1=',-b/(2*a),' + i',-Delta/(2*a)); écrire ('x2=',-b/(2*a),' - i',-Delta/(2*a)); finsi finsi fin finsi
|
merci bcp mon frere t fait un grand plaisir
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
ecrire un algorithme permettant de faire la
difference entre deux horaires saisis en heure, minutes, secondes
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
الله يخليكم ساعدوني في حل التمرين
S4=n ! S2=2+4+6+…..2n 2n+1
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
S4=n ! S2=2+4+6+…..2n 2n+1
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
|
المشاركة الأصلية كتبت بواسطة fbensalem
الله يخليكم ساعدوني في حل التمرين
un algorithme qui cherche SIN est un nombre premier ou non
S3=+1-3+5-7-9…(-1)(2n+1) S1=1+1/2+1/3+1/4+…1/n S4=n ! S2=2+4+6+…..2n 2n+1 |
s3 لم أفهمه
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
ربي يخليك و يجازيك انشاء الله
|
Untitled 1.jpg (52.0 كيلوبايت, المشاهدات 5) |
عفوا نا تاني نحوس عليهم
شكراا جزيلاا
lire(x,y);
z:=x*y+x*2;
ecrire(z);
fin.
fin.
Ecrire un elgorithme qui demande l’heure sous forme de 3 nombres ( en heures H, minutes M, et secondes S), puis vérifier si l’heure est valide, ensuite dire quel serai l’heure après 30 secondes (Dans le cas valide)
g pas compris SVP aidez moi
|
comp.JPG (89.1 كيلوبايت, المشاهدات 5) |
——————————————————–
Program HelloWorld(output);
var h,m,s:integer;
var valid:boolean;
begin
repeat
valid:=false;
writeln('donnez h,m,s: ');
readln(h,m,s);
if((h<0) or (h>23)) then writeln('heures pas valide !')
else if((m<0) or (m>59)) then writeln('minutes pas valide !')
else if((s<0) or (s>59)) then writeln('seconds pas valide !')
else valid:=true;
until(valid=true);
if(
s<30) then s:=s+30
else
begin
s:=s-30 ; {Kifkif m3a s:=(s+30)-60}
if(m<59) then m:=m+1
else
begin
m:=0;
if (h=23) then h:=0
else h:=h+1;
end;
end;
writeln('heure apres 30 seconds est:');
writeln(h,':',m,':',s);
end.
|
comp.JPG (89.1 كيلوبايت, المشاهدات 5) |
احتاج لحل هذا التمرين ليوم السبت ان شاء الله تعيشوا لي يقدر يعاونني فيه
soit F un fichier d’entiers représentant des séquences de nombres séprés par un ou plusieurs zéro
ecrire un algorithme qui réalise les traitements suivant ::
1-
partir de F (fichier existant) créé un fichier G contenant pour chque séquance la moyenne des nombres qui la constituent
2-
puis supprimer les valeurs nulles du fichier G-
