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

[you92cef]

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

السلام عليكم aide moi,svp
écrire le programme pascal qui lit une phrase caractère par caractèreet l’affiche dans le sens inverse (de la fin au début) .la fin de la phrase est détectépar le caractère

هناك العديد من الطرق لبرمجتها

يمكن استعمال
les tableau+avec des boucles

او استعمال عبارات

جرب*-*ي*-* برمجتها بنفسك
++++++

الالغوريتم موجود في *-*سلسلة التمارين في بداية سلسلة التمارين *-*td01 *-*السابقة *-*الرابطين في الاعلى*-*

[بهاار]

النتائج تظهر لكن انا اريد طباعتها استعملت impr écran لكن لم تنفع معي

[بهاار]

شكرا لك لقد وجدتها

[العلم طريقي]

السلام عليكم
ارجو منكم المساعدة
algorithme lire 10 nombres entier aléatoire
نستعملو random مي ماعرفتش كيفاش ندير
شكرا للجميع

[lina-dz]

svp aidez moi!!!
j'avais un Tp en turbo pascal sur les boucles

voilà l'exo :

Soit la suite u definie par u1 = 0, u2 = 9 et la relation de recurrence : Pour tout n et n entier, un+2 = 6un+1 - 9un.
On pose pour tout n 2 N, Sn la somme des n premiers termes de la suite.
-Ecrire un programme en Turbo-Pascal qui demande la valeur de n puis qui calcule et affiche un.
-Completer le programme precedent, pour qu'il calcule et affiche Sn.




corrigez moi ce programme , est ce qu'il est juste ou non ??

Program suit1;
Uses crt;
Var i,n: Integer; u,v,s,aux:Real;
Begin
clrscr;
Writeln('Entrer n>0');Readln(n);
if (n=0) then writeln ('erreur')
Else
if (n=1) then Writeln ('u1=0 et s1=0')
Else
Begin
u:= 0 ; v:= 9 ; s:= 9;
For i := 3 to n Do
Begin
aux := u; u:= v ; v:= 6*v-9*aux;
s:= s+v;
end;
writeln ('u-',n,'=',v,'et s-',n,'=',s);
end;
readln;
end.

[algeriano9354]

svp aidez moi!!!
j'avais un Tp en turbo pascal sur les boucles

voilà l'exo :

Soit la suite u definie par u1 = 0, u2 = 9 et la relation de recurrence : Pour tout n et n entier, un+2 = 6un+1 - 9un.
On pose pour tout n 2 N, Sn la somme des n premiers termes de la suite.
1-Ecrire un programme en Turbo-Pascal qui demande la valeur de n puis qui calcule et ache un.
2-Completer le programme precedent, pour qu'il calcule et ache Sn.

[أبو عبد الرحمن 87]

المشاركة الأصلية كتبت بواسطة lina-dz;12702700
[LEFT

corrigez moi ce programme , est ce qu'il est juste ou non ??
[/LEFT]

Program suit1;
Uses crt;
Var i,n: Integer; u,v,s,aux:Real;
Begin
clrscr;
Writeln('Entrer n>0');Readln(n);
if (n=0) then writeln ('erreur')
Else
if (n=1) then Writeln ('u1=0 et s1=0')
Else
Begin
u:= 0 ; v:= 9 ; s:= 9;
For i := 3 to n Do
Begin
aux := u; u:= v ; v:= 6*v-9*aux;
s:= s+v;
end;
writeln ('u-',n,'=',v,'et s-',n,'=',s);
end;
readln;
end.

هذا البرنامج صحيح

[sun shin]

السلام عليكم اتمنى منكم المساعدة في هذا التمرين

Ecrire un programme qui demande à l’utilisateur de saisir une heure de début (heures + minutes) et une heure de fin (heures + minutes aussi). Ce programme doit ensuite calculer en heures + minutes le temps écoulé entre l’heure de début et l’heure de fin. Si l’utilisateur saisit 10h30 et 12h15, le programme doit lui afficher que le temps écoulé entre l’heure de début et celle de fin est 1h45. On suppose que les deux heures se trouvent dans la même journée, si celle de début se trouve après celle de fin, un message d’erreur doit s’afficher. Lors la saisie des heures, séparez les heures des minutes en demandant à l’utilisateur de saisir :

heures de début
minutes de début
heures de fin
minutes de fin


و جزاكم الله كل خير

[seddik47]

Montrer que si f 2 O(g), alors O(f)  O(g), et O(max(f; g)) = O(g)

[salemk]

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

شكرا على الشرح
اسف لم ادرك المطلوب جيدا لاننا لم نتطرق لدرس
tri par comptage

وانما تطرقنا لدرس
tri par selection
لذلبك لم افهم المطلوب جيدا

ارجوا ان تستمر في مساعدة الطلبة لانني سوف اغيب بسبب الامتحانات

جزاك الله بفضله ورحمته وجعلها لك عنده ذخرا،
وربي يوفّقك ويجيبك في الصواب

لست دائم التواجد والانترنات ديما طايحة ولكن ساحاول قدر المستطاع

[salemk]

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

السلام عليكم
ارجو منكم المساعدة
algorithme lire 10 nombres entier aléatoire
نستعملو random مي ماعرفتش كيفاش ندير
شكرا للجميع

Avec un programme Pascal

program remplir;
uses wincrt;

var

i : integer;
t : array[1..10] of integer ;

begin
randomize;  (* pour initialiser le générateur des valeurs aléatoire*)
	(*sans “randomize” la liste des valeurs sera la même à chaque exécution*)
		(*pour voir la différence essayez avec et sans “randomize” pour voir la différence*) 

for i := 1 to 10 do

t[i]:=random(100);
	(*“random(x)” renvoie une valeur de type entier entre 1 et x-1*)
	(* “random” sans paramètre renvoie un réel entre 0 et 1*) 
end.

[salemk]

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

السلام عليكم اتمنى منكم المساعدة في هذا التمرين

Ecrire un programme qui demande à l’utilisateur de saisir une heure de début (heures + minutes) et une heure de fin (heures + minutes aussi). Ce programme doit ensuite calculer en heures + minutes le temps écoulé entre l’heure de début et l’heure de fin. Si l’utilisateur saisit 10h30 et 12h15, le programme doit lui afficher que le temps écoulé entre l’heure de début et celle de fin est 1h45. On suppose que les deux heures se trouvent dans la même journée, si celle de début se trouve après celle de fin, un message d’erreur doit s’afficher. Lors la saisie des heures, séparez les heures des minutes en demandant à l’utilisateur de saisir :

heures de début
minutes de début
heures de fin
minutes de fin


و جزاكم الله كل خير

الرجاء مراجعة هذه الردود فقد ينفعك في شيء

https://www.djelfa.info/vb/showpost.p...0&postcount=29
https://www.djelfa.info/vb/showpost.p...0&postcount=21

[you92cef]

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

[بهاار]

Ecrire un algorithme qui recherche un caractère dans un vecteur V de N=200 éléments dont ces élément sont de types caractères et indique combien de fois apparait il et a quel le position apparait il ?
S
O
U
R
I
S
…

Exemple : S il apparait 2 fois a la position : 1 ;6

[you92cef]

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

Ecrire un algorithme qui recherche un caractère dans un vecteur V de N=200 éléments dont ces élément sont de types caractères et indique combien de fois apparait il et a quel le position apparait il ?
S
O
U
R
I
S
…

Exemple : S il apparait 2 fois a la position : 1 ;6

البرنامج التالي يقوم بقرائة 200 حرف
يمكن تعديله وجعله يملء الجدول بحروف عشوائية

program ex;
uses wincrt;
type tableau=array[1..200] of char;
type tab=array[1..200]of integer;
var i,j:integer;
t:tableau;
ch:char;
p:tab;
begin
j:=0;
for i:=1 to 200 do begin
writeln('Entrez le carrecter n',i,':');
readln(t[i]);
end;
writeln('read le carectere que vous vouler chercher');
read(ch);
for i:=1 to 200 do begin
if t[i]= ch then begin
j:=j+1;
p[i]:=i;
end;
end;
writeln('le cherecter',ch,'aparaitre a les positions suivant:');
for i:= 1 to 200 do begin
if p[i]<>0 then 
writeln(p[i]);
end;
writeln(ch,' figure ',j,' fois');
end.