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

[you92cef]

التمرين الثالث ليس مكتوب بشكل مفهوم

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

[salemk]

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

شكرا اخي لمك انتبه جيدا كيف عرفت نوع n

ولكن البرنامج والاستاذ طلب ان ندخل n على اساس string

شكرا لك

Une solution récursive utilisant une chaîne formée seulement par des chiffres

Program somme ;
Uses wincrt ;
Var
N:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;

function verif(s:string):boolean;
begin
if length(s)= 0 then 
verif:= true
else
begin
if not(s[1] in ['0'..'9']) then 
	verif := false;
verif:=verif(copy(s,2,length(s)-1));
end;
end;


Begin
repeat
Readln(N) ;
Until verif(N);
writeln(som(N));
end.

[salemk]

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

الاستاذ طلب ان ندخل n على اساس string

Une itérative

Program somme ;
Uses wincrt ;
Var
N:string;

function som(s:string):integer;
var
   r,i,d,e:integer;
begin
r:=0;
for i :=1 to length(s) do
begin
val(s[i],d,e);
r:=r+d;
end;
som:=r;
end;


function verif(s:string):boolean;
var
i:integer;
begin

i:=1;
while s[i] in ['0'..'9'] do
begin
i:=i+1;
end;

verif:=i>length(s);

end;



Begin
repeat
Readln(N) ;
Until verif(N);
writeln(som(N));
end.

[marwa.dz]

ecrire un algorithme permettant de faire la difference entre deux horaires saisis en heure, minutes, secondes.

[AKKAINMOH]

النجدة ياإخوان في algotithme

lire une chaine de caractéres et l'affiche avec sa longueur
lire un caractére et affiche son successeur

[salemk]

المشاركة الأصلية كتبت بواسطة marwa.dz

ecrire un algorithme permettant de faire la difference entre deux horaires saisis en heure, minutes, secondes.

On suppose que heure2 (h2 :m2 :s2) est supérieur à heure1 (h1 :m1 :s1)
On suppose que les deux dates sont  valides 
Actions à faire
0) Lire les paramètres de chaque heure
1)  Convertir chaque heure en seconde (rs1 et rs2)
2)  Faire la différence D des deux résultats de conversion
3)  Transforme D en heure (h), minute (m) et seconde (s)

Soit la séquence d’algorithme suivante

Lire (h1, m1, s1)
Lire (h2, m2, s2)
Rs1<-- h1*3600+ m1*60 +s1
Rs2 <-- h2*3600 +m2*60+s2
D <-- rs2-rs1
H <-- D div 3600
M <-- (D-H) div 60 
S <-- (D mod 3600) mod 60
Ecrire (H, M, S)

الشكر أو النقد لن يكلّف كثيرا

[salemk]

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

النجدة ياإخوان في algotithme

lire une chaine de caractéres et l'affiche avec sa longueur
lire un caractére et affiche son successeur

On utilise les fonctions prédéfinis longueur et successeur

Soit la séquence d’algorithme qui suit

Lire (ch)
Ecrire (ch, longeur(ch))
Lire(c)
Ecrire (succ(c))


 En pascal

Read(ch);
Write(ch, length(ch));
Read(c);
Write(succ(c));

الشكر أو النقد لن يكلّف كثيرا

[Arzt]

يرجى المساعدة هنا

[salemk]

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

يرجى المساعدة هنا

بالنسبة للتمرين الاول عدّل هذا الحل للحصول على القيمة الاكبر فقط دون الاهتمام بالقيمة الصغرى مالوسطى

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

التمرين الاول
dans un ordre croisant

program ex05;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
begin
readln(a,b,c);
if a>b then if b>c then begin
                        grand:=a;
                        moyen:=b;
                        petit:=c;
                        end
            else if a>c then begin
                             grand:=a;
                             moyen:=c;
                             petit:=b;
                             end
                  else begin
                       grand:=c;
                       moyen:=a;
                       petit:=b;
                       end
else if a>c then begin grand:=b;
                 moyen:=a;
                 petit:=c;
                 end
     else if b>c then begin grand:=c;
                      moyen:=c;
                      petit:=a;
                      end
          else begin grand:=c;
               moyen:=b;
               petit:=a;
               end;

writeln('grand:',grand);
writeln('moyen:',moyen);
writeln('petit:',petit);
end.

عدل في التعليقات فقط

للحصول على البرنامج الثاني عدل في تريتب التعليقات فقط

الشكر أو النقد لن يكلّف كثيرا

[salemk]

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

يرجى المساعدة هنا

Program ex2 ;
Uses wincrt ;
Var
i ,n :  integer ;
h :real ;
Begin
Repeat 
Readln(n) ;
Until n >=0 ;
h :=0 ;
For  i := 1 to n do 
h :=h + 1/i ;
Writeln(h :12 :6) ;
End.

الشكر أو النقد لن يكلّف كثيرا

[you92cef]

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

une solution récursive utilisant une chaîne formée seulement par des chiffres

program somme ;
uses wincrt ;
var
n:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;

function verif(s:string):boolean;
begin
if length(s)= 0 then 
verif:= true
else
begin
if not(s[1] in ['0'..'9']) then 
	verif := false;
verif:=verif(copy(s,2,length(s)-1));
end;
end;


begin
repeat
readln(n) ;
until verif(n);
writeln(som(n));
end.

شكرا لك اخي البرنامج شغال ساحاول فهمه ان شاء الله

ممكن سؤال في اي سنة تدرس ؟

[-asma-]

j'ai 2 exercices PASCAL
écrire un programme qui convertit un nombre de seconde donné en son équivalent en heures, minutes et secondes
écrire un programme permettant d'échanger les valeurs de deux entiers A et B en utilisent uniquement les deux variables A et B

[aimad17]

مساعدة عاجلة من فضلكم
ECRIRE UN ALGORITHME PERMETTANT DE RéSOUDRE UNE éQUATION DU SECOND DEGRé DE LA FORME AX°2+BX+C=0.(considérer le cas oU a=b=c=0
ملاحظة: c'est en pascal

[you92cef]

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

j'ai 2 exercices PASCAL
écrire un programme qui convertit un nombre de seconde donné en son équivalent en heures, minutes et secondes
écrire un programme permettant d'échanger les valeurs de deux entiers A et B en utilisent uniquement les deux variables A et B

بخصوص التمرين الاول
يجب تحديد ان تدخل عدد الثواني مثلا

تستخدم 2 مرات la boucle while

lمثلا تدخل 521462 ثانية

تقوم بتقسيم العدد على 3600*-* وتقوم بعمل عداد هذا العداد سيكون عدد الساعات*-*
البوكل الثاني يعمل في حالة كان الباقي اقل من 3600 فتقسمه على 60 لتحديد الدقائق
الباقي سوف يكون اقل من 60 وهو عدد الثواني
في الاخير تظهر العدادان +الباقي

التمرين الثاني
نقوم بهذه اللوغارتيم
x:=x+y
y:=x-y
x:=x-y

نجرب مثلا ب
x=5
y:=10
x:=x+y=15


y:=x-y=15-10=05


x:=x-y=15-05=10

y:=5
x:=10

[you92cef]

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

مساعدة عاجلة من فضلكم
ECRIRE UN ALGORITHME PERMETTANT DE RéSOUDRE UNE éQUATION DU SECOND DEGRé DE LA FORME AX°2+BX+C=0.(considérer le cas oU a=b=c=0
ملاحظة: c'est en pascal

التمرين موجود في الردود السابقة فقط هو بالباسكال وليس الغوريتم عوضي الكلمات الانجليزية بالفرنسية

else---sinon
if---si
end;---finsi
readln ou read---lire
writeln ou write---- ecrire
program----algorithe